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

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

 

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

Следует помнить о том, что команда 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.

 

Лабораторная работа №2.

Арифметические выражения. Программирование алгоритмов линейной структуры.

 

При выполнении работы необходимо знать:

· Что такое арифметические выражения.

· Стандартные арифметические функции.

· Как применить генератор случайных чисел, задать интервал для случайных чисел.

· Уметь составить схему программы (алгоритм) линейной структуры для данной задачи и записать программу по готовому алгоритму.

 

Теоретический минимум: