1.Понятие команды ветвления 2.Общий вид команды ветвления 3.Примеры 4.Операторные скобки 5.Самостоятельная работа 6.Домашнее задание

Ветвление это выполнять разные действия в зависимости от результата проверки какого-либо условия. Для этого служит оператор if. Он позволяет реализовать алгоритм ветвления.

Блок-схема: Алгоритмически й язык Язык Бейсик если условие то серия 1 то серия 1 иначе серия 2 иначе серия 2все IF условие THEN серия1 ELSE серия2 Язык Паскаль IF условие THEN серия1 ELSE серия2

If условие Then оператор 1 else оператор 2; If условие Then оператор 1 else оператор 2; условие - это переменная типа boolean или логическое выражение, которое может быть простым или сложным: оператор 1 и оператор 2 - любой оператор (Writeln, Readln, оператор присваивания, if и т.д.) или несколько операторов, заключенных в "операторные скобки".

Операторными скобками называется пара зарезервированных слов Операторными скобками называется пара зарезервированных слов "begin... еnd". "begin... еnd". Если по логике решения задачи нужно выполнить серию из нескольких операторов, а Паскаль позволяет ставить только один, то эту серию заключают в операторные скобки. Если по логике решения задачи нужно выполнить серию из нескольких операторов, а Паскаль позволяет ставить только один, то эту серию заключают в операторные скобки.

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

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

Задача: Даны два числа А и В. Определить большее из них. Результат положить в ячейку – Х. Аргументы – А, В Результаты – Х

Алгоритмический язык Паскаль алг Пример (цел А, В, X) арг А, В арг А, В рез Х рез Хнач если А >= В если А >= В то Х : =А то Х : =А иначе Х : =В иначе Х : =В все всекон Program pr1; Var a,b,Х :integer; Var a,b,Х :integer;Begin Write ('a='); Readln (a); Write ('a='); Readln (a); Write ('b='); Readln (b); Write ('b='); Readln (b); IF a>=b THEN Х:=a ELSE Х:=b; IF a>=b THEN Х:=a ELSE Х:=b; Writeln (Х=',Х); Writeln (Х=',Х); Readln ReadlnEnd.

Program Пример; Var a,b,Х :integer; Var a,b,Х :integer;Begin Write ('a='); Readln (a); Write ('a='); Readln (a); Write ('b='); Readln (b); Write ('b='); Readln (b); IF a>=b THEN Х:=a ELSE Х:=b; IF a>=b THEN Х:=a ELSE Х:=b; Writeln (Х=',Х); Writeln (Х=',Х); Readln ReadlnEnd.

Даны три числа А, В, С. Определить большее из них. Результат положить в ячейку – Х.