Реферат: Взаимодействие основных частей ЭВМ при выполнении программы

TempCol[3] := MenuCol[4];

TempCol[4] := MenuCol[4];

K := 1;

repeat

SetColor(BRDCol);

Rectangle(GetMaxX div 2 - 150, GetMaxY div 2 - 60,

GetMaxX div 2 + 150, GetMaxY div 2 + 40);

Rectangle(0, 0, GetMaxX, GetMaxY);

ExtentedKey := False; {флаг поступления расширенного кода}

TextT(TempCol, Menu);

while KeyPressed do ReadKey; {очистка буфера клавиатуры}

C := ReadKey; {считывание кода новой нажатой клавиши}

if C = #0 then {если "да" - код расширенный}

begin

КР. 991096.00.00.00 ПЗ Лист ——– Изм. Лист № докум. Подп. Дата 16

C := ReadKey; {считывается второй символ расширенного кода}

ExtentedKey := True

end;

if ExtentedKey then {если код был расширенный}

case C of

#72: K := K - 1;

#80: K := K + 1

end;

if C = #13 then

case K of

1: Play; {Обучение}

2: TestMode; {Проверка знаний}

3: Exit {Выход}

end;

if K < 1 then K := 3;