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

begin

SetColor(GetBkColor);

SetColor(Green);

Animation(100, 168, -70, 1, ' 1 2 +', True)

end; {Move_3}

{-------------------}

procedure Move_4_1;

begin

SetColor(GetBkColor);

OutTextXY(30, 176, ' 1 2');

SetColor(Green);

Animation(47, 198, 63, 1, ' 1 2', False);

SetColor(GetBkColor);

OutTextXY(150, 168, ' █ █');

SetColor(Green);

OutTextXY(150, 168, ' a b')

end; {Move_4_1}

{-------------------}

procedure Move_4_2;

begin

SetColor(Green);

Animation(150, 160, -95, 2, ' a b', True)

end; {Move_4_2}

{-------------------}

procedure Move_4_3;

begin

setcolor(getbkcolor);

OutTextXY(30, 176, ' +');

SetColor(Green);