Программирование на языке Паскаль
235.50K
Category: programmingprogramming

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

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

Тема 2. Ветвления
1

2.

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

3.

Вариант 1. Блок-схема
начало
блок "решение"
ввод a,b
да
a > b?
max:= a;
нет
полная форма
ветвления
max:= b;
вывод max
конец
3

4.

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

5.

Условный оператор
if <условие> then begin
{что делать, если условие верно}
end
else begin
{что делать, если условие неверно}
end;
Особенности:
• перед else НЕ ставится точка с запятой
5

6.

Что неправильно?
if a > b then begin
a := b;
end
else begin
b := a;
end;
if a > b then begin
a := b;
end
begin
else b
> a 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;
end
else begin
b := a;
end;
6

7.

Вариант 2. Блок-схема
начало
ввод a,b
max:= a;
да
b > a?
нет
неполная форма
ветвления
max:= b;
вывод max
конец
7

8.

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

9.

Вариант 2Б. Программа
program qq;
var a, b, max: integer;
begin
writeln('Введите два целых числа');
read ( a, b );
max := b;
if a???
> b then
???:= a;
max
writeln ('Наибольшее число ', max);
end.
9

10.

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

11.

Домашняя работа:
п. 4.5.1
№ 10
Напишите программу, которая производит обмен
значений переменных x и y, если x больше y.
Пример входных данных
x >> 5
y >> 6
x >> 6
y >> 5
Пример выходных данных
x=5
y=6
x=5
y=6
11
English     Русский Rules