Операции
С помощью программы примера 3.1 можно вывести на экран результат применения логических операций к двум целым числам.
Пример 3.1.
{Программа вводит два целых числа и печатает результат применения к ним логических операций.
Для выхода из программы ввести CTRL + Z и нажать Enter}
var
n,m: integer; begin
while not EOF do begin
Write('n,m='); ReadLn(n,m);
| WriteLn(' | not= | 1, not n, 'not m); |
| WriteLnC | and= | ', n and m) |
| WriteLnC | or = | 1, n or m); |
| WriteLnC | xor= | 1, n xor m) |
| WriteLn(' | shl= | 1,n shl m) |
| WriteLn(' | shr= | 1, n shr m) |
| end |
end.
В программе организуется ввод двух произвольных целых чисел и печать результата применения к ним всех логических операций. Для выхода из программы следует нажать CTRL + Z, и Enter.
Логические операции над логическими данными дают результат логического типа по правилам, указанным в табл. 3.3.
Таблица 3.3. Логические операции над данными типа Boolean.
| Операнд 1 | Операнд 2 | not | and | or | xor |
|---|---|---|---|---|---|
| True | False | ||||
| False | True | ||||
| False | False | False | False | False | |
| False | True | False | True | True | |
| True | False | False | True | True | |
| True | True | True | True | False |
Операция отношения IN применяется к двум операндам. Первым (левым) операндом должно быть выражение любого порядкового типа, вторым – множество, состоящее из элементов того же типа, или идентификатор множественного типа. Операция дает TRUE, если левый операнд принадлежит множеству, например:
var с: char; type digit = set of ' 0 '..' 9 '; begin if с in digit then…….