Вспомним!

Урок № 10, 11. Условный оператор. Логические выражения

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

В языках программирования ветвление реализуется с помощью условного оператора.

полное ветвление:

if логическое условие then оператор 1

else оператор 2;

неполное ветвление:

if логическое условие then оператор 1;

Буквально перевести эту конструкцию можно так: "Если условие истинно, то выполнить оператор 1, иначе оператор 2"

Перед else точка с запятой не ставится!

Вначале проверяется логическое выражение, если оно верно, то выполняется Оператор 1, после этого выполняется часть программы, расположенная ниже, если условие ложно, то Оператор 1, не выполняется, выполняется оператор ниже.

Логическое условие может содержать одно или несколько условий с функциями and (и), or (или), not (не).

Например, условие для принадлежности числа x интервалу (0;10): (x>0) and (x<10)

Операторы 1 и 2 могут быть простыми и составными.

Если оператор составной (состоит из нескольких команд), то он заключается в логические скобки begin … end;

 

Задача 1. Составим программу, находящую из двух чисел A и B большее.

a, b – исходные данные

с – результат (большее из чисел)

Program bol;

var a, b, c: integer;

Begin

writeln (‘введите два числа’);

readln (a, b);

if a>b then c:=a

else c:=b;

writeln (‘c= ’, c);

End.

Задача 2. Записать условный оператор, определяющий, является ли треугольник со сторонами a, b, c равносторонним?

if (a=b) and (b=c) and (a=c) then writeln( ‘треугольник равносторонний’ )

else writeln( ‘треугольник не равносторонний’ );

Задача 3. Дано x. Вычислить F.

if (x>= 0) and (x<=4) then F:=4*x*x+5 else F:=1/(3*x);

Задача 4. Найти корни квадратного уравнения ax²+bx+c=0. Если их нет, то сообщить об этом.

Program kor;

var a, b, c: integer;

d, x1,x2: real;

Begin

writeln (‘введите числа a, b, c’);

readln (a, b, c);

d:=b*b-4*a*c;

if d>=0 then begin

if d=0 then begin

x1:=-b/(2*a);

x2:=x1;

End