Залить экран бирюзовым цветом, ввести два числа с клавиатуры. Затем залить экран сиреневым цветом и вывести в центре экрана в столбик сумму, разность, произведение и частное заданных двух чисел.
Математическая формулировка задачи:
Следует помнить о том, что команда TextBackGround (n) только устанавливает цвет фона в параметрах, но не производит очистку экрана. Для того, чтобы залить экран нужным цветом, надо после установки цвета фона дать команду очищения экрана ClrScr.Для вывода в центре экрана нужно перенести курсор в позицию 40, 12. Однако следующее значение должно быть выведено тоже в центре экрана, но в следующей строке. Поэтому придется задавать команду GoToXY(x, y) несколько раз, перед выводом каждого значения.
Алгоритм решения задачи 1: Текст программы к задаче 1:
Program Ex_1;
Uses Crt;
Var
x, y: integer; { два числа }
Begin
TextBackGround(3);
ClrScr;
Writeln(‘Введите два числа ’);
Readln(x, y);
TextBackGround(3);
ClrScr;
GotoXY(40, 12);
Write(x+y);
GotoXY(40, 13);
Write(x-y);
GotoXY(40, 14);
Write(x*y);
GotoXY(40, 15);
Write(x/y);
Readln;
End.
