Реферат: Взаимодействие основных частей ЭВМ при выполнении программы
procedure Page_4_7;
begin
SetViewPort(X, Y, GetMaxX - X, YS - 10, ClipOn);
SetColor(TxtCol);
MyText(0, 80, 'На этом выполнение первой машинной команды ' +
'заканчивается, происходит');
|
MyText(0, 88, 'переход к следующей по порядку машинной команде. ' +
'Содержимое ячейки ОЗУ с');
MyText(0, 96, 'адресом, следующим за стартовым, пересылается в УУ ' +
'и все повторяется.');
SetViewPort(0, 0, GetMaxX, GetMaxY, ClipOn)
end; {Page_4_6}
{-------------------}
{+------------------+}
{ }
{ Процедуры анимации }
{ }
{+------------------+}
procedure Move_1;
begin
BLink(150, 285, 'kurs.exe');
end; {Move_1}
{-------------------}
procedure Move_2;
begin
SetColor(Green);
Animation(150, 285, -125, 2, ' █ █', True)
end; {Move_2}
{-------------------}