Задача 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. Арифметические выражения. Программирование алгоритмов линейной структуры.
При выполнении работы необходимо знать: · Что такое арифметические выражения. · Стандартные арифметические функции. · Как применить генератор случайных чисел, задать интервал для случайных чисел. · Уметь составить схему программы (алгоритм) линейной структуры для данной задачи и записать программу по готовому алгоритму.
Теоретический минимум:
|
