Ветвление Полное ветвление Если УСЛОВИЕ то КОМАНДА 1 иначе КОМАНДА 2; IF УСЛОВИЕ THEN КОМАНДА 1 ELSE КОМAНДА 2; - презентация

1 Ветвление

2 Полное ветвление Если УСЛОВИЕ то КОМАНДА 1 иначе КОМАНДА 2; IF УСЛОВИЕ THEN КОМАНДА 1 ELSE КОМAНДА 2;

3 Ветвление (полное) услов ие Команда 2Команда 1

4 Неполное ветвление Если УСЛОВИЕ то КОМАНДА 1; IF УСЛОВИЕ THEN КОМАНДА 1;

5 Ветвление (не полное) Команда 1 услов ие

6 Определите значение переменной с после выполнения следующего фрагмента программы: a := 25; b := 2; a := a * 4 / b; if a > b then c := a + 5 * b else c := a - 5 * b;

7 1) Дано два числа. Определить большее из них. Var a,b:integer; begin writeln (введи два числа); readln (a,b); IF a>b THEN writeln (первое число больше) ELSE writeln (второе число больше); end.

8 2) Дано три числа. Определить большее из них. Var a,b,c:integer; begin writeln (введи три числа); readln (a,b,c); IF (a>b) and (a>c) THEN writeln (больше 1); IF (b>a) and (b>c) THEN writeln (больше 2); IF (c>b) and (c>a) THEN writeln (больше 3); end.

9 3) Дано три числа. Определить какие из них кратны одиннадцати. Var a,b,c:integer; begin writeln (введи три числа); readln (a,b,c); IF a mod 11=0 THEN writeln (да) ELSE writeln(нет); IF b mod 11=0 THEN writeln (да) ELSE writeln(нет); IF c mod 11=0 THEN writeln (да) ELSE writeln(нет); end.

10 4) Известны три стороны треугольника. Определить является ли треугольник прямоугольным. Var a,b,c:integer; begin writeln (введи три стороны треугольника); readln (a,b,c); IF (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a) THEN writeln (прямоугольный) ELSE writeln(не прямоугольный); end.