Операции отношения

Операция	Действие	Выражение	Результат
=	Равно	А=В	Тrue, если А=В
<>	Не равно	А<>В	Тrue, если А<В или А>В
<	Меньше	А<В	Тrue, если А<В
>	Больше	А>В	Тrue, если А>В
<=	Меньше или равно	А<=В	Тrue, если А<В или А=В
>=	Больше или равно	А>=В	Тrue, если А>В или А=В

Пример 1. При заданных значениях переменных и вычислить по одной из формул:

PROGRAM PASCAL_PRIMER1;

VAR А, В, У: REAL;

BEGIN

WRITELN ('ВВЕДИТЕ А, В');

READLN (А, В);

IF А>В THEN Ү: =sin (А)

ELSE Ү: =cos (В);

WRITELN (‘У=‘, У: 10:6);

END.

Рис.2. Схема алгоритма

решения примера 1

Пример 2. При заданном значении вычислить по одной из формул:

PROGRAM PASCAL_PRIMER2;

VAR Х, Ү: INTEGER;

BEGIN

WRITELN (‘ВВЕДИТЕ X’);

READLN (X);

IF X<0 THEN Y: =1

ELSE

IF Х<10 THEN Ү: =2

ELSE Ү: =3;

WRITELN (‘Ү=‘, Ү: 3);

END.

Рис: 2 Схема алгоритма решения

У оператора IF ветвь ELSE может отсутствовать, тогда опе­ратор записывается в следующем виде:

IF <логическое выражение> ТНЕN <оператор 1>;

и реализующая его схема имеет вид:

Рис. 3 Схема условного оператора IF при отсутствии ветви ELSE

Если логическое выражение истинно (ветвь "Да"), то выполняется оператор 1, затем следующий за IF оператор. Если логиче­ское выражение ложно (ветвь "Нет"), то управление сразу передается следующёму за IF оператору.

Пример 3. Заданы числа а, b, с. Вывести на печать отрицательные из них.

PROGRAM PASCAL_PRIMER3;

VAR А, В, С: INTEGER;

BEGIN

WRITELN (‘ВВЕДИТЕ А, В, С, ');

READLN (А, В, С);

IF А<0 THEN

WRITELN (‘А=‘, А: 3);

IF В<0 THEN

WRITELN ('В=', В: 3);

IF С<0 THEN

WRITELN ('С=', С: 3);

END.

Рис. 4. Схема алгоритма решения примера 3

Если в ветвях ТНЕN или ELSE необходимо выполнить не один, а несколько операторов, то они записываются между операторами BEGIN и END и называются составным оператором.

Пример 4. Если X < Ү, то перенести содержимое перемен­ной X в переменную Ү, а содержимое переменной Ү, наоборот, - в переменную X.

Рис. 5. Схема алгоритма решения примера 4.