На сайте 100500 рефератов в 150 категориях	Искать реферат
Рефераты на 5 с плюсом С нашим сайтом написать реферат проще простого

Видеопамяти пять

Категория: Компьютерные науки

версия для печати

Страница: [1] [2] [3] [4] [5] [6]

PutSymbol ('V', $ 1E, 3,1);

PutSymbol ('I', $ 1E, 3,2);

PutSymbol ('D', $ 1E, 3,3);

PutSymbol ('E', $ 1E, 3,4);

PutSymbol ('O', $ 1E, 3,5);

PutSymbol ('M', $ 70,2,4);

PutSymbol ('E', $ 02,3,4);

PutSymbol ('M', $ 70,4,4);

PutSymbol ('O', $ 70,5,4);

PutSymbol ('R', $ 70,6,4);

PutSymbol ('Y', $ 70,7,4);

J: = 0;

REPEAT

IF Dir THEN PutSymbol ('', $ 00, J-1, 11)

ELSE PutSymbol ('', $ 00, J +6,11);

PutSymbol ('D', $ 0E, J, 11);

PutSymbol ('C', $ 0E, J +1,11);

PutSymbol ('S', $ 0E, J +2,11);

PutSymbol ('S', $ 0E, J +3,11);

PutSymbol ('-',$ 0E, J +4,11);

PutSymbol ('1 ', $ 0E, J +5,11);

IF (J0)

THEN DEC (J)

ELSE BEGIN

Dir: = NOT Dir;

END;

Delay (120);

UNTIL KeyPressed;

ClearScreen;

Страница: [1] [2] [3] [4] [5] [6]

версия для печати