Алгоритм называется ветвящимся, если в зависимости от выполнения условия совершаются те или иные действия.
Формат оператора: IF условие THEN оператор 1 ELSE оператор 2 ; Правило работы: 1. Проверяется условие. 2. Если условие истинно, то выполняется оператор1 3. Если условие ложно, то выполняется оператор2.
> больше (а >5) >= больше или равно (a>=b) < меньше (x<6) <= меньше или равно (y<=0) = равно (r=10) <> неравно (a<>d)
В условном операторе после слов THEN и ELSE можно помещать по несколько операторов. В этом случае их объединяют в СОСТАВНОЙ оператор, который начинается словом BEGIN и заканчивается словом END; (на конце не точка, а точка с запятой!) Пример: if x < y then begin z:=x; x:= 2* y; y:=z -2: end;
Полная форма Неполная форма Выбор
УСЛОВИЕ Да Нет одно или несколько действий Pascal : if условие then действие ; или if условие then begin группа действий ; end ;
УСЛОВИЕ Да Нет группа действий2 группа действий1 Pascal : if условие then действие1 else действие2 ; или if условие then begin группа действий1 ; end else begin группа действий2 ; end;
Pascal : case переменная of список значений 1 : действие 1 ; список значений 2 : действие 2 ; список значений 3 : действие 3; ……………………………………………………… список значений n : действие n else действие n+1; end;
Program primer; var x, a, b : integer; Begin writlen ( ‘ введите числ o x =’ ); write ( x ); if x > 0 then a := a * 2 ; b := b / 2; if x <= 0 then a := a / 2 ; b := b * 2; writeln ( ‘ a = ’, a ); writeln ( ‘ b = ’, b ); End.
Program primer; var x, a, b : real ; Begin writeln ( ‘ введите числ o x =’ ); read ( x ); if x > 0 then begin a := a * 2 ; b := b / 2; end else begin a := a / 2 ; b := b * 2; end; writeln ( ‘ a = ’, a ); writeln ( ‘ b = ’, b ); End.
