Урок 32 Условный оператор в языке Pascal

1.

28 января 2022 г.
Условный оператор IF

2.

Cтруктура Ветвление
а) Полное ветвление
условие
да
нет
команды
команды
В зависимости от условия, выбирается один из двух
возможных вариантов последовательности команд.

3.

Cтруктура Ветвление
б) Неполное (сокращённое) ветвление
условие
да
нет
команды
Команды выполняются только при выполнении условия.

4.

Условный оператор
Формат условного оператора
if <лог.выражение> then <оператор> [else <оператор>]
Если условие истинно, то выполняется оператор после THEN,
в противном случае – оператор после ELSE.
Внимание:
вторая ветвь (else …) может отсутствовать (неполная
форма)

5.

Примеры
if <лог.выражение> then <оператор> [else <оператор>]
if a>b then x:=a else x:=b
if D<0 then writeln(’Нет корней’)
else writeln(’Корни есть’)
if (a=b)and(b=c)
then writeln(’Треугольник равносторонний’)
Внимание:
• перед else точка с запятой НЕ ставится!

6.

Составной оператор
Если в качестве оператора должна выполниться
серия операторов, то они заключаются в
операторные скобки begin и end.
например:
begin y:=1; z:=0 end
Такая конструкция называется составным
оператором.
Составной оператор описывает линейную структуру,
которая вкладывается в другую структуру (в данном
случае – ветвь структуры ветвления)

7.

Упражнение
Какими будут значения переменных j и k после
выполнения условного оператора:
if j>k then j:=k-2 else k:=k-2
если исходные значения переменных равны:
1. j=3, k=5
2. j=3, k=3
3. j=3, k=2

8.

Разветвляющиеся алгоритмы
Алгоритмы, в которых последовательность шагов
зависит от выполнения некоторых условий, называются
разветвляющимися.
Задача. Ввести два целых числа и вывести на экран
наибольшее из них.
Идея решения: надо вывести на экран первое число,
если оно больше второго, или второе, если оно больше
первого.

9.

Вариант 1. С полным ветвлением
начало
полная
форма
ветвления
ввод a,b
a>b
да
нет
max:= b
вывод max
конец
max:= a
if a>b then
max:=a
else
max:=b;

10.

Вариант 2. С неполным ветвлением
начало
сокращененная
форма
ветвления
ввод a,b
max:= a
b>a
нет
вывод max
конец
да
max:= b
max:=a;
if b>a then
max:=b;

11.

Полный текст программы
program qq;
var a,b,max:integer;
begin
write('Введите два целых числа ');
readln(a,b);
полная форма
if a>b then
условного
max:=a
оператора
else
max:=b;
writeln('Наибольшее число ',max);
readln
end.

12.

ЗАДАЧА
Составить программу, которая вводит два
целых числа и выводит на экран наибольшее
из них.

13.

Работаем за компьютером

14.

Задание
1. Записать в тетрадь три теста.
2. Создать в файл Max.pas
Написать программу.
3. Выполнить и протестировать программу
Отладить.
Закрыть среду с сохранением файла.

15.

Тестирование программы
компьютер
пользователь
Введите два целых числа: 25 30
Наибольшее число 30
компьютер
компьютер
пользователь
Введите два целых числа: 30 25
Наибольшее число 30
компьютер

16.

Шпаргалка

17.

18.

Домашнее задание
§ 19 (не весь) (стр. 132–134) – изучить.
Фотоотчет или файл выполненной работы
пришли учителю на электронную почту
emalakeeva2016@gmail.com