Условный оператор Полная форма Неполная форма If условие Then оператор_1 If условие Then оператор Else оператор_2 Пример: Построить алгоритм вычисления значения функции Y=|x| Решение: Т. к. функция задается соотношением Y= Значит требуется проверить следующие условия: 1)Проверить больше или равен нулю х; 2)Если х, то y:=х Если х, то y:=-х

Примеры условного оператора на Паскале Пример1 If x

Примеры условного оператора на Паскале Пример 3 Для двух целых чисел определить являются они четными или нет. Решение: Для проверки четности используем условие: остаток от деления на 2 четного числа равен 0. mod – деление нацело Фрагмент программы: If a mod 2 = 0 then writeln (а – четное) else writeln (a – нечетное); If b mod 2 = 0 then writeln (b – четное) else writeln (b – нечетное);

Логические выражения Для построения сложных условий на Паскале используют логические операции and (и), or (или), not (не) 1- истина 0 – ложь Таблицы истинности для этих операций: X Y X and Y X Y X or Y X not X

Примеры построения сложных логических выражений Пример 1 Определить принадлежит ли точка с координатой х отрезку [a; b]. Решение: Используя логическую операцию and (и), запишем (x ) and (x b) Отношения, между которыми стоит логическая операция, заключаются в круглые скобки.

Примеры построения сложных логических выражений Пример 2. Имеется прямоугольное отверстие со сторонами a и b и кирпич с ребрами x, y, z. Требуется составить условие прохождения кирпича в отверстие. b y a x z Решение: Кирпич пройдет в прямоугольное отверстие, если выполнится сложное условие (a x) and (b y) or (a y) and (b x) or (a x) and (b z) or (a z) and (b x) or (a y) and (b z) or (a z) and (b y)

Примеры построения сложных логических выражений Пример 3. Определить принадлежность точки фигуре Решение: Пусть фигура задана ограничивающими ее прямыми (рис1). Для каждой прямой определим полуплоскость, в которой находится фигура – треугольник АВС. Полуплоскость задается неравенством y>0 (выше ох) AB: y=2x+2, а значит, полуплоскость задается неравенством y – 2*x - 2

Пример программы определения существования треугольника со сторонами a, b, c. Условие существования треугольника известно из геометрии: сумма любых двух сторон должна быть больше третьей. Program E4; Var a, b, c: real; Begin writeln (введите длины трех сторон треугольника); readln (a, b, c); write (треугольник со сторонами, a, b, c); If (a + b > c) and (b + c > a) and (a + c > b) then write (существует) else write (не существует); readln End.