Презентация 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.