Реализация ветвлений в алгоритмах. Структурные операторы (Object Pascal)

План

1.      Понятие «условие».
2.      Условный оператор ЯП Object Pascal
3.      Составной оператор ЯП

1. Понятие «условие»

Условие – это свойство величин, которое может соблюдаться или

Условие:
- простое
- составное
(a>90) or (b>90) or (c>90)

Таблица истинности

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

Полная форма

Если условие
То
серия 1
Иначе
серия 2
Конец - если
if <условие>

Задача: определить вид треугольника по введенным углам
program Pr2;
Var a,b,c:integer;
begin
writeln(‘введите углы

Задача: вывести на экран максимальное из двух чисел
Program Pr3;
Var x,y,max:integer;
begin
writeln(‘введите

Неполная форма

Если условие
То
серия
Конец - если

if <условие> then <оператор>;

Задача: вывести на экран максимальное из двух чисел
Var x, y, max:integer;
begin

3. Составной оператор

последовательность произвольных операторов программы, заключенная в операторные скобки

 begin
begin
begin
end;
end;
end;

Задача: найти площадь треугольника по формуле Герона
Var a, b, c, r

Составной условный оператор
if <условие1> then
if <условие2> then
<оператор1>
else

 
if <условие1> then
begin
if <условие2> then <оператор1>
end
else <оператор2>;

Нет

Да

условие

условие

Да

Нет

S2

4. Оператор выбора

Выбор выражение
Список значений 1 выполнять Серия 1
Список значений

case <выражение> of
<список значений 1>: <оператор 1>;
<список значений 2>: <оператор 2>;

Задача: определить порядок целого числа n от 0 до 999

Var

Задача: определить тип символа

Var symbol: Char;
…
case symbol of
’0’..’9’: writeln('это цифра');