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

OutTextXY(XC + 60, YC + 160, ' обведены части');

OutTextXY(XC + 60, YC + 170, ' входящие в состав');

OutTextXY(XC + 60, YC + 180, ' процессора (ЦПУ)');

OutTextXY(XC + 20, YC + 200, '█ - содержимое файла');

OutTextXY(XC + 20, YC + 210, '1 - адрес первого операнда');

OutTextXY(XC + 20, YC + 220, '2 - адрес второго операнда');

OutTextXY(XC + 20, YC + 230, '3 - адрес результата');

SetTextJustify(0, 0)

end; {Context}

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

procedure BildFuncKey;

const

StrFK: array [1..4] of string[11] =

('Помощь F1', 'Назад <-', 'Вперед ->', 'Выход Esc');

FkbCol: Word = Green;

TxtCol: Word = LightCyan;

begin

SetColor(BRDCol);

Rectangle(XS, YS, GetMaxX - XS, GetMaxY - XS);

SetTextJustify(1, 1);

SetFillStyle(1, DarkGray);

for I := 1 to 4 do

begin

SetColor(FkbCol); {Установка цвета границы клавиш}

Bar((GetMaxX - XS * 2) div 5 * I - Length(StrFK[I]) * 4, YS + 7,

(GetMaxX - XS * 2) div 5 * I + Length(StrFK[I]) * 4, YS + 23);

Rectangle((GetMaxX - XS * 2) div 5 * I - Length(StrFK[I]) * 4, YS + 7,

(GetMaxX - XS * 2) div 5 * I + Length(StrFK[I]) * 4, YS + 23);

SetColor(Black); {Установка цвета текста клавиш}