Г) натуральное n является полным квадратом.

program lap2_2_4;

uses crt;

var n:integer;

begin

clrscr;

writeln('n='); readln(n);

if n=sqr(round(sqrt(n))) then writeln('TRUE')

else writeln('FALSE');

readln;

end.

2. Вычислить значения выражений:

а) not odd(n)            при n=0;

При n=0 not odd(n) TRUE

б) t and (p mod 3=0) при t=true, p=101010;

При t=true, p=101010 TRUE

в) (x*y<>0) and (y>x) при x=2, y=1;

при x=2, y=1; (x*y<>0) and (y>x) FALSE

г) (x*y<>0) or (y>x) при x=2, y=1;

при x=2, y=1; (x*y<>0) or (y>x) TRUE

д) a or (not b)          при a=false, b=true.

при a=false, b=true; a or (not b) FALSE         

Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае

а) 0<x<1;            

(x>0) and (x<1);

б) x=max(x,y,z);

(x>=y) and (x>=z);

в) x≠max(x,y,z) (операцию not не использовать);

(x<y) or (x<z);

г) хотя бы одна из логических переменных a и b имеют значение true.

a or b;

д) обе логические переменные a и b имеют значение true.

a and b;

4. Объяснить ошибки в следующих записях:

а) 1 and 0 – нет

б) true + false; - Операция (+) используется для тип Boolean

(“Boolean” and “Boolean”)

в) true<0; - может быть сравнить между типами Boolean и Integer

г) not 2 = 5; - не существуют скобки “ not(2)=5”

д) x>0 or y = 4; - не существуют скобки “ (x>0) or (y=4);

е) not not b or or d. - не существуют скобки “ (not(not(b))) or (or(d))”

5. Указать порядок выполнения операций при вычислении выражения:

а) a and b or not c and d;

à(a and b) or (not c) and d

б) (x>=0) or t and odd(x) or (y*y<>4)

à ((x>=0) or t) and odd(x) or (y*y<>4)

6. Вычислить следующие выражения при a=true и b=false

а) a or b and not a; - TRUE

б) (a or b) and not a; - FALSE

в) not a and b; - FALSE

г) not (a and b). -TRUE

7. Записать на Паскале выражение, истинное при выполнении указанного условия и ложное в противном случае:

а) x принадлежит отрезку [0,1];

(x>=0) and (x<=1);

б) x лежит вне отрезка [0,1];

(x<0) or (x>1);

в) x принадлежит отрезку [2,5] или [-1,1];

((x>=2)and(x<=5)) or ((x>=(-1)) and (x<1));

Или ((x>=2)and(x<=5)) or abs(x)<=1;

г) x лежит вне отрезков [2,5] и [-1,1];

 (x<2) or (x>5) and (x<(-1)) and (x>1);

д) каждое из чисел x,y,z положительно;

(x>0) and (y>0) and (z>0)

е) хотя бы одно из чисел x,y и z положительно;

x>0 or y>0 or z>0;

ж) ни одно из чисел x,y и z не является положительным;

x<0 and y<0 and z<0;

з) только одно из чисел x,y и z положительно;

((x>0) and (y<0) and (z<0)) or ((x<0) and (y>0) and (z>0)) or ((x<0) and (y<0) and (z>0))

и) логическая переменная a имеет значение true, а логическая переменная b имеет значение false;

A and not b

к) год с порядковым номером y является високосным (год високосный, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400; например, 1700, 1800 и 1900 – невисокосные годы, а 2000 – високосный).

(k mod 400 = 0) or (k mod 4 = 0) and (k mod 100 <>0);

Нарисовать на плоскости (x, y) область, в которой и только в которой истинно указанное выражение

а) (y>=x) and (y+x>=0) and (y<=1);

б) (sqr(x)+sqr(y)<1) or (y>0) and (abs(x)<=1);

в) (trunc(y)=0) and (round(x)=0).

Записать на Паскале выражение, истинное при выполнении указанного условия и ложное иначе

а) целые n и k имеют одинаковую четность;

odd(n)=odd(k);

б) только одна из логических переменных a и b имеет значение true;

a<>b

в) только одна из логических переменных a,b и c имеет значение true.

 a<>b and b<>c and c<>a

Нарисовать на плоскости (x, y) область, в которой и только в которой истинно указанное выражение

а) (abs(x)<=1)>(abs(y)>=1);

б) (sqr(x)+sqr(y)<=4)=(y<=x)

11. Преобразовать указанное выражение к виду, не содержащему знаков отношения (a и b-логические переменные):

а) a<b;

not(a) and b;

б) a=b;

not(a xor b)

в) (a<b)=a

not(( not(a) and b) xor b)