даю 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;
Объяснение:
Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді. → Мұғалім оқушыларға 20 таңбадан тұратың мәтінді компьютерде теру тапсырмасын берді.
Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді,ал Болат қуаты 256 таңба болатын алфавитпен терді. → Оқушы мәтінді қуатын 16 таңбадан тұратың алфавитпен терді, ал Болат қуаты 256 таңба болатын алфавитпен терді.
Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз. → Екі түрлі алфавитпен жазылған ақпарат көлемін анықтаңыз және ерекшелігін түсіндірініз.
Ақпарат көлемі → Ақпарат көлемі
var c: string;
begin
writeln('Введите 1 число.');
readln(a);
writeln('Введите 2 число.');
readln(b);
writeln('Знак операции.');
readln(c);
if c='*' then writeln(a*b);
if c='/' then writeln(a/b);
if c='-' then writeln(a-b);
if c='+' then writeln(a+b);
end.
2 ЗАДАЧА
var a, b: real;
begin
writeln('Зарабаток Пети:');
readln(a);
writeln('Зарабаток Петрова:');
readln(b);
if a>b then writeln('Петя заработал больше Петрова.')
else if a=b then writeln('Петров и Петя заработали одинаково.')
else
writeln('Петров заработал больше Пети.');
writeln('Среднее: ', (a+b)/2);
end.