Program Our_Function;

Var

x, y: real;

Begin

Writeln ('Введите значение x: ');

Readln (x);

if (x < 0)

Then

y:= x

Else

y:= 2 * x;

Writeln ('x = ', x, ' y = ', y);

End.

 

Перед else символ "точка с запятой" (;) не ставится!!!

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

Логические выражения (условия) могут быть составными. При этом различные их части, также являющиеся логическими выражениями (простыми или составными), соединяются друг с другом посредством следующих логических операций:

not – отрицание (не);

and – конъюнкция или логическое умножение (и);

or – дизъюнкция или логическое сложение (или).

Примеры:

not (Odd (x));

(a > 2) and (a < 3);

(y = 2) or (y = 3).

При вычислении значений логических выражений соблюдается следующий порядок действий:

1. вычисляются значения логических функций;

2. вычисляются результаты операций сравнения;

3. выполняются логические операции в последовательности:

Not

And

Or

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

При выполнении логических операций справедливы следующие таблицы истинности (показывают значение результата логической операции в зависимости от значений операн­дов):

1. not (не):

not FALSE = TRUE

not TRUE = FALSE

2. and (и):

TRUE and TRUE = TRUE

TRUE and FALSE = FALSE

FALSE and TRUE = FALSE

FALSE and FALSE = FALSE

3. or (или):

TRUE or TRUE = TRUE

TRUE or FALSE = TRUE

FALSE or TRUE = TRUE

FALSE or FALSE = FALSE

Отношения определены как на множестве числовых, так и на множестве логических и символьных величин. Большей считается величина, имеющая больший код в таблице символов. Для определения кода символов используется функция Ord (x). Если аргументом этой функции является символ, он должен быть взят в кавычки.

Например:

Ord ('0') = 48,

Ord ('x') = 120,

Ord (X) = 53, здесь X – переменная типа char, имеющая значение ' 5 '.