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

Rectangle(XC, YC, GetMaxX - X0, YC + 300);

SetTextJustify(1, 1);

SetColor(TxtCol + 1); {Заголовок}

OutTextXY(GetMaxX - (GetMaxX - X0 - XC) div 2 - X0, YC + 20, 'Обозначения ' +

'на схеме:');

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

CArrow := BArrow; {Стрелки}

SetColor(ARBCol);

SetFillStyle(1, Blue);

Arrow(XC + 50, YC + 50, 40, 2);

FloodFill(XC + 40, YC + 50, ARBCol);

CArrow := SArrow;

SetColor(ARSCol);

Arrow(XC + 50, YC + 80, 40, 2);

SetColor(LightGreen);

Arrow(XC + 50, YC + 80, 0, 2);

SetColor(MemCol);

SetLineStyle(1, 0, 0);

Line(XC + 10, YC + 110, XC + 34, YC + 110);

Line(XC + 10, YC + 126, XC + 34, YC + 126);

Line(XC + 14, YC + 106, XC + 14, YC + 128);

Line(XC + 30, YC + 106, XC + 30, YC + 128);

SetColor(CPUCol);

Line(XC + 12, YC + 150, XC + 30, YC + 150);

SetLineStyle(0, 0, 0);

SetColor(TxtCol);

SetTextJustify(0, 1); {Значения}

OutTextXY(XC + 60, YC + 50, ' - Передача данных');

OutTextXY(XC + 60, YC + 80, ' - Сигнал управления');

OutTextXY(XC + 60, YC + 120, ' - Ячейка памяти');