даю 100 б
Тести на тему Величини логічного типу
Завдання #1
Запитання:
Чому дорівнює значення логічного виразу x <= 10, якщо х = 10?
Оберіть один із 2 варіантів відповіді
1) True
2) True
Завдання #2
Запитання:
Чому дорівнює значення логічного виразу (A <= B) and (A = B – 2), якщо А = 2, В = 4?
Оберіть один із 2 варіантів відповіді
1) True
2) True
Завдання #3
Запитання:
var x, y, z : Integer; A, B, C : Boolean;
Які оператори присвоювання допустимі?
Оберіть декілько правильних відповідей
1) z := x 2) A := x>y;
3) C := A Or B;
4) C := A + B;
Завдання #4
Запитання:
Які значення повертає функція BoolToStr(b,True)?
Оберіть декілько правильних відповідей
1) ‘-1’
2) ‘True’
3) ‘False’
4) ‘0’
Завдання #5
Запитання:
Встановіть відповідність між висловлюваннями і логічними виразами
Вкажіть відповідність
1) (Age < 10) or (Age > 18)
2) (Age >= 10) and (Age <= 18)
3) (x>0) and (y>0) and (z>0)
4) (x>0) or (y>0) or (z>0)
__ Значення Age належить проміжку від 10 до 18
__ Значення Age не належить проміжку від 10 до 18
__ x, y, z – додатні числа
__ Хоча б одне з чисел x, y, z – додатне
Завдання #6
Запитання:
Встановіть відповідність між операторами і діями, які вони реалізують
Вкажіть відповідність
1) Змінній А присвоїти значення True, якщо X>Y і X – парне число
2) Змінній А присвоїти значення True, якщо 5 3) Змінній А присвоїти значення True, якщо X – парне число
4) Змінній А присвоїти значення True, якщо X>Y
__ A := (X>5) and (X<10);
__ A := X>Y;
__ A := X mod 2 = 0;
__ A := (X mod 2 = 0) and (X>Y);
Завдання #7
Запитання:
Яке значення буде виведено в поле Edit1?
var X, Y, Z : Integer; A : Boolean;
begin
X := 10; Y := 12; Z := 30;
A := (X < Y) аnd (Y < Z) аnd (Z mod Y = 0);
Edit1.Text := BoolToStr(A,False);
end;
1)
var
a:array [1..5,1..10] of integer;
i,j,p:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(50)+1;
write(a[i,j]:3);
end;
writeln;
end;
writeln('меняем 1 и последнюю строки');
for j:=1 to 10 do
begin
p:=a[1,j];
a[1,j]:=a[5,j];
a[5,j]:=p;
end;
for i:=1 to 5 do
begin
for j:=1 to 10 do
write(a[i,j]:3);
writeln;
end;
end.
2)
var
a: array [1..5, 1..10] of integer;
i, j: integer;
p: real;
begin
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(50) + 1;
write(a[i, j]:3);
end;
writeln;
end;
writeln('произведения элементов строк');
for i := 1 to 5 do
begin
p := 1;
for j := 1 to 10 do
p := p * a[i, j];
writeln(p:25:0);
end;
end.
1)
var a,b,c,d:real;
begin
read(a,b);
c:=(a+b)/2;
d:=2*a*b;
if a>b then begin
a:=d;
b:=c;
end;
if a<b then begin
a:=c;
b:=d;
end;
writeln(a,' ',b);
end.
2)
var a,b:integer;
begin
read(a,b);
if (a<1) or (a>31) then writeln(' день введен неправильно');
if (b<1) or (b>12) then writeln(' месяц введен неправильно');
end.
3)
var a,b,c:real;
begin
read(a,b,c);
if (a>b)and(a>c)then writeln(a);
if (b>a)and(b>c)then writeln(b);
if (c>b)and(c>a)then writeln(c);
end.