Задача 1.

Залить экран бирюзовым цветом, ввести два числа с клавиатуры. Затем залить экран сиреневым цветом и вывести в центре экрана в столбик сумму, разность, произведение и частное заданных двух чисел.

 

Математическая формулировка задачи:

Следует помнить о том, что команда TextBackGround (n) только устанавливает цвет фона в параметрах, но не производит очистку экрана. Для того, чтобы залить экран нужным цветом, надо после установки цвета фона дать команду очищения экрана ClrScr.Для вывода в центре экрана нужно перенести курсор в позицию 40, 12. Однако следующее значение должно быть выведено тоже в центре экрана, но в следующей строке. Поэтому придется задавать команду GoToXY(x, y) несколько раз, перед выводом каждого значения.

Текст программы к задаче 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.