Программирование на языке Паскаль. Ветвления

Слайд 2

Разветвляющиеся алгоритмы Задача. Ввести два целых числа и вывести на экран

Разветвляющиеся алгоритмы

Задача. Ввести два целых числа и вывести на экран наибольшее

из них.
Идея решения: надо вывести на экран первое число, если оно больше второго, или второе, если оно больше первого.
Особенность: действия исполнителя зависят от некоторых условий (если … иначе …).

Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися.

Слайд 3

Вариант 1. Блок-схема полная форма ветвления блок "решение" вывод max

Вариант 1. Блок-схема

полная форма ветвления

блок "решение"

вывод max

Слайд 4

Вариант 1. Программа max := a; max := b; полная форма

Вариант 1. Программа


max := a;

max := b;

полная форма условного оператора

program qq;
var

a, b, max: integer;
begin
writeln('Введите два целых числа');
read ( a, b );
if a > b then begin
end
else begin
end;
writeln ('Наибольшее число ', max);
end.
Слайд 5

Условный оператор if then begin {что делать, если условие верно} end

Условный оператор

if <условие> then begin
{что делать, если условие верно}

end
else begin
{что делать, если условие неверно}
end;

Особенности:
перед else НЕ ставится точка с запятой

Слайд 6

Что неправильно? if a > b then begin a := b;

Что неправильно?

if a > b then begin
a := b;

end
else
b := a;
end;

if a > b then begin
a := b;
else begin
b := a;
end;

if a > b then begin
a := b;
end;
else begin
b := a;
end;

if a > b then begin
a := b;
end
else b > a begin
b := a;
end;

begin

end

begin

end

Слайд 7

Вариант 2. Блок-схема неполная форма ветвления вывод max

Вариант 2. Блок-схема

неполная форма ветвления

вывод max

Слайд 8

Вариант 2. Программа program qq; var a, b, max: integer; begin

Вариант 2. Программа


program qq;
var a, b, max: integer;
begin
writeln('Введите два целых

числа');
read ( a, b );
max := a;
if b > a then
max := b;
writeln ('Наибольшее число ', max);
end.

неполная форма условного оператора

Слайд 9

Вариант 2Б. Программа program qq; var a, b, max: integer; begin

Вариант 2Б. Программа

program qq;
var a, b, max: integer;
begin
writeln('Введите два целых

числа');
read ( a, b );
max := b;
if ??? then
???
writeln ('Наибольшее число ', max);
end.

max := a;

a > b

Слайд 10

Задания "4": Ввести три числа и найти наибольшее из них. Пример:

Задания

"4": Ввести три числа и найти наибольшее из них.
Пример:
Введите три

числа:
4 15 9
Наибольшее число 15
"5": Ввести пять чисел и найти наибольшее из них.
Пример:
Введите пять чисел:
4 15 9 56 4
Наибольшее число 56