В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
rgfheh
rgfheh
16.01.2021 19:43 •  Информатика

даю 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;

Показать ответ
Ответ:
ressoli444
ressoli444
28.06.2022 00:39

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.

0,0(0 оценок)
Ответ:
orlovs2017
orlovs2017
18.07.2020 05:57

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота