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

until (I = Length(S));

end; {NyText}

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

procedure _Pause;

begin

ReadKey;

end; {_Pause}

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

procedure Animation(X, Y: Integer; D: Integer;

XY: Byte; S: string; Vis: Boolean);

{Animation}

var

DX, DY: Integer;

I: Integer;

begin

DX := 1;

DY := 1;

SetColor(Green);

if D < 0 then

begin

DX := -1;

DY := -1;

end;

case XY of

1: DY := 0;

2: DX := 0;

end;

D := Abs(D);

for I := 1 to D do