Система программирования Turbo Pascal



                  


Программа вводит два целых числа



{ Программа вводит два целых числа и печатает результат применения к ним логических операций. Для выхода из программы ввести 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 .......

Содержание  Назад  Вперед