Занятие 21 из 24
Прогресс сохраняется в этом браузере
Занятие 21. Ветвление
Условный оператор
if … then … else позволяет программе принимать решения. Часто строит «развилку»: одно действие — если условие истинно, другое — если ложно.
1. Прочитайте слова и словосочетания, переведите, запомните их значения.
| Опера́тор | Усло́вный опера́тор |
| Опера́тор вы́бора | |
| Переключа́тель (м.р.) | |
| Конста́нта | |
| Нумерова́ть I, пронумерова́ть I (что?) | Пронумерова́ть дни неде́ли |
📖 Теория
Полное и неполное ветвление
// Неполное: только then
if условие then оператор;
// Полное: then и else
if условие then оператор1
else оператор2;
// Составной оператор: begin … end
if условие then
begin
оператор1;
оператор2;
end
else
оператор3;Операции сравнения
= равно
<> не равно
< меньше
> больше
<= меньше или равно
>= больше или равно
▶ Запустить Тренажёр: проверка чёт/нечёт
Программа определяет, чётное число или нечётное.
EvenOdd.pas
program EvenOdd;
var n: integer;
begin
n := 17;
if n mod 2 = 0 then writeln(n, ' — чётное')
else writeln(n, ' — нечётное');
end.
▶ Запустить Тренажёр: максимум двух чисел
Программа выбирает большее из двух чисел.
MaxOf2.pas
program MaxOf2;
var a, b: integer;
begin
a := 23;
b := 41;
if a > b then writeln('Максимум: ', a)
else writeln('Максимум: ', b);
end.
Что выведет? Тренажёр: что выведет программа?
Вложенное условие — внимательно проследи логику.
program.pas
var n: integer;
begin
n := 0;
if n > 0 then writeln('положительное')
else if n < 0 then writeln('отрицательное')
else writeln('ноль');
end.
Заполни пропуск Тренажёр: заполни условие
Программа находит минимум из двух чисел. У нас a = 12, b = 7. Логика простая: если a меньше b — выводим a; иначе — выводим b. Подсказки в комментариях справа.
var a, b: integer;
begin
a := 12; b := 7;
if a b // введите знак сравнения
then writeln('Минимум: ', ) // введите имя переменной
else writeln('Минимум: ', ); // введите имя переменной
end.