Условный оператор, оператор выбора. Логические операции

Условный оператор
Для проверки условия используется условный оператор.
Формат:
Полная форма:
If <условие> Then <оператор1>
Else <оператор2>; Сокращенная форма:
If <условие> Then <оператор>;

Работа условного оператора
Вначале проверяется условие, если условие истинно, то выполняется оператор, стоящий за словом then. Если условие ложно, то выполняется оператор, стоящий за словом else.

Простые условия
Простые условия образуются с помощью операций отношения:
= равно
<> Не равно
<= меньше или равно
>= больше или равно
< меньше
> Больше
In принадлежит
Результат операции:
TRUE истина
FALSE ложь

Сложные условия
составное условие – это условие, состоящее из нескольких простых условий (отношений), связанных с помощью логических операций:
and – И (логическое умножение, конъюнкция,
одновременное выполнение условий)
or – ИЛИ (логическое сложение, дизъюнкция,
выполнение хотя бы одного из условий)
Простые условия (отношения)
< <= > >= = <>
равно
не равно

Составные условия
Порядок выполнения
выражения в скобках
not
and
or, xor
<, <=, >, >=, =, <>
Особенность – каждое из простых условий обязательно заключать в скобки.
Пример
4 1 6 2 5 3
if not (a > b) or (c <> d) and (b <> a)
then begin
...
end

Логические операции

Пример: Составить программу нахождения y:
Program aaa;
Var x, y : real;
Begin
Writeln(‘введите x’);
Readln(x);
If x>=2 Then y:=sqrt(x)
Else y:=x;
Writeln(‘y=’,y:6:2);
End.

Истинно или ложно при a := 2; b := 3; c := 4;d:=5;
(a < b) and (b < c)
not (a >= b) or (c = d)
(a < c) or (b < c) and (b < a)
Составные условия
True
True
True
Порядок выполнения
выражения в скобках
not
and
or, xor
<, <=, >, >=, =, <>

Особенности
В условном операторе после then и else можно помещать по одному оператору. Если более одного, то используют составной оператор (операторские скобки).

составной оператор (операторские скобки).
Формат:
begin
Оператор 1;
Оператор 2;
…
оператор n;
end;
if x<5 Then
begin Y:=7;
Z:=14;
end
Else Z:=15;
Пример

Текст программы с IF
Program cifra_if;
Var a : integer;
c: byte;
Begin
Writeln(‘введите трехзначное число’);
Readln(a);
c := a div 100;
If c mod 2 = 0 Then writeln (‘ первая цифра четная’:26)
Else writeln (‘ первая цифра нечетная’:26);
End.

Домашнее задание
Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.
Даны действительные числа x, y, z.
Выяснить, существует ли треугольник с длинами сторон x, y, z.
Если треугольник существует, то ответить—является ли он остроугольным
Вводится число от 1 до 4, определяющее пору года. Дать название этой поры года. (1 – зима, 2 – весна, 3 – лето, 4 – осень).