Алгоритмы с
ветвлениями. Часть 3
Контроль знаний
Пример. Задано число x. Если число четное, то нарисовать на экране зеленый прямоугольник, а если нечетное, то красный круг.
Этапы выполнения задания.
I. Определение исходных данных: переменная x (введенное число).
II. Определение результатов: рисунок, зависящий от значения x.
III. Алгоритм решения
задачи.
1. Ввод исходных данных
2. Результат будет зависеть от того, истинным или ложным является значение логического выражения x mod 2=0. Для решения воспользуемся условным оператором.
3. Вывод результата.
IV. Описание
переменных:
Переменная x – integer.
V. Программа:
uses graphabc;
var x:integer;
begin
writeln(' Введите значение х=');readln(x);
if x mod 2=0
then
begin
rectangle(150,150,450,350);
FloodFill(153,153,clgreen);
end
else
begin
circle(400,300,100);
FloodFill(400,300,clred);
end;
end.
Можешь
загрузить!
Пример
VI. Тестирование
программы:
1. Запустите программу и введите значение x=2.
Проверьте, результат должен быть следующим:
2. Поэкспериментируйте с программой вводя различные значения.
3.
Заполните таблицу
4. Найдите в программе составные операторы и объясните зачем они здесь нужны.
5. Какие минимальные изменения нужно внести в программу, что бы для четных чисел рисовался красный круг, а для нечетных – зеленый квадрат?
6. Внесите в программу изменения, так что бы пользователю задавался один из вопросов: 'Введи
цвет прямоугольника' или 'Введи цвет круга'.
Проверка знаний
Самостоятельная работа
1. Задано число x. Если число нечетное, то нарисовать на экране овал, в котором горизонтальный радиус больше вертикального, а если четное, овал, в котором вертикальный радиус больше горизонтального.
2. Задано число x. Нарисовать на экране круг, вписанный в квадрат, если число x положительное или квадрат, вписанный в круг, если число x неотрицательное.
3. Заданы два числа x, y. Нарисовать на экране компьютера эллипс c горизонтальным и вертикальным радиусами, равными x и y. Если x<1, или x>400, или y<1, или y>300 , то выдать сообщение о том, что эллипс нарисовать нельзя.