Презентация Pascal_условный оператор

Тема урока:
Условный оператор

Иногда нам нужно выполнить различные действия в зависимости от условий.

Структуры ветвления

Если - то











Неполное ветвление

Иногда нам нужно выполнить различные действия в зависимости от условий.
Структуры ветвления

Иногда нам нужно выполнить различные действия в зависимости от условий.
Структуры ветвления

Запись команды ветвления на языке программирования Pascal

If (условие) если
then (оператор1); то

Запись команды ветвления на языке программирования Pascal

If (условие) если
then (оператор1) то
else (оператор 2); иначе

Пример
Написать программу. Ввести два числа, если первое число больше второго, вывести первое число, иначе вывести второе число.

program sravni;
var
A,B:integer;
begin
write ('введите число A=');
readln (A);
write ('введите число B=');
readln (B);
if A>B then write ('A=',A)
else
write ('B=',B)
end.

Пример
Написать программу. Ввести два числа,
если первое число больше второго, вывести первое число,
если первое число меньше второго, вывести второе число,
иначе (то есть числа равны) ничего не выводить.

program sravni2;
var
A,B:integer;
begin
write ('введите число A=');
readln (A);
write ('введите число B=');
readln (B);
if A>B then write ('A=',A)
else
if Athen write ('B=',B)
else write ('')

end.

Пример
Написать программу. Ввести два числа,
если первое число больше второго, вывести сумму этих чисел,
иначе вывести разность этих чисел.

program sravni3;
var
A,B,C:integer;
begin
write ('введите число A=');
readln (A);
write ('введите число B=');
readln (B);
if A>B then write ('Вывести сумму C=',A+B)
else write ('Вывести разность C=',B-A);
end.

Задание
Написать программу.
Ввести два числа.
Если первое число меньше второго, вывести произведение этих чисел. Если первое число больше второго, вывести разность этих чисел.
Иначе ( то есть числа равны) вывести сумму этих чисел.