Алгоритмы с ветвящейся структурой. Урок программирования в Паскале

1. Алгоритмы с ветвящейся структурой

Урок программирования в
Паскале

2.

Задача 1. Из двух чисел выбрать большее.
Вывести его на экран.
Исходные числа вводить с клавиатуры.
Блок-схема
Структура полное ветвление
начал
о
Ввод А,
В
да
нет
А>B
C:=A
C:=B
Решение задачи в
конструкторе алгоритмов
Вывод
С
конец
Программа на Паскале

3.

Структура неполного ветвления
начало
Ввод А,
В
С:=B
да
А>B
C:=A
Вывод
С
конец
нет
операция Проверк
а
условия
А
В
С
Ввод А, В
7
5
-
С:=В
7
5
5
7
5
5
C:=А
7
5
7
Вывод С
7
5
7
А>B
да

4. Оператор ветвления на Паскале

Если <условие>, то <оператор 1>
иначе <оператор 2>
If <условие>, then <оператор 1>
else <оператор 2>;
Например,
If A<B, then C:=A
else C:=B;

5.

Задача 2. Упорядочить значения двух переменных Х
и У по возрастанию
Блок схема.
нет
да
Решение задачи в
конструкторе
алгоритмов

6. Оператор ветвления на Паскале

Если <условие>, то <оператор >
If <условие>, then <оператор >;
Например,
If X>Y, then
begin
Составной
C:=X;
оператор, begin
…end
X:=Y;
операторные
скобки
Y:=C;
end;

7.

Задача 3. Найти наибольшее значение среди
трёх величин А, В, С.
Блок схема.
Последовательное ветвление
начало
Ввод А,
В, С
да
А>B
D:=A
нет
D:=B
да
нет
C>D
D:=C
Вывод
D
конец

8. Задача 1. Из двух чисел выбрать меньшее. Вывести его на экран. Исходные числа вводить с клавиатуры.

Program MID_1;
Var A,B,C:real; {вещественный тип}
Begin
readln(A,B);
If A < B then C:=A
else C:=B;
writeln(c);
End.
MID_1.pas

9. Программирование диалога с компьютером

Program MID_1D;
Var A,B,C:real; {вещественный тип}
Begin
writeln(‘Введите числа А и В для сравнения’);
readln(A,B);
If A < B then C:=A
else C:=B;
writeln(‘Меньшее из чисел равно’, С)
writeln(‘Всего доброго !’);
End.
MID_1D.pas

10. Домашнее задание

• §§ 12, 13, 14; Д/з № 25