Иллюстрированный самоучитель по Turbo Pascal

Операции

С помощью программы примера 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…….
Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.