dron2003

22.09.2022 06:09

Информатика

Есть ответ 👍

Завдання #1
Запитання:
Який оператор відповідає поданій блок-схемі?

Тести оператор розгалуження

Виберіть один з 4 варіантів відповіді:
1) If A<5 Then A := A-1 Else A := A+1;
2) If A<5 Then A := A+1;
3) If A<5 Then A := A+1 Else A := A-1;
4) If A<5 Then A := A-1;

Завдання #2
Запитання:
Який оператор відповідає поданій блок-схемі?

Тести оператор розгалуження 2

Виберіть один з 4 варіантів відповіді:
1) If A<5 Then A := A-1 Else A := A+1;
2) If A<5 Then A := A+1;
3) If A<5 Then A := A+1 Else A := A-1;
4) If A<5 Then A := A-1;

Завдання #3
Запитання:
Який оператор реалізує дію:
Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?

Виберіть декілька з 4 варіантів відповіді:
1) K := (A < B) And (B < C);
2) K := (A < B) Or (B < C);
3) If (A < B) And (B < C) Then K := True Else K := False;
4) If (A < B< C) Then K := True Else K := False;

Завдання #4
Запитання:
Який оператор реалізує дію:
Якщо А – від’ємне число, змінити його знак на протилежний.

Виберіть декілька з 4 варіантів відповіді:
1) If A < 0 Then A := Abs(A);
2) If A < 0 Then A := -A; 3) If A > 0 Then A := -A;
4) If A < 0 Then A := -A Else A := 0; Завдання #5 Запитання: Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с. Вкажіть послідовність всіх 4 варіантів відповіді: __ a := StrToInt(Edit1.Text); b := StrToInt(Edit2.Text); c := StrToInt(Edit3.Text); __ If a > b Then Мax := a Else Мax := b;
__ If c > max Then max := c;
__ Edit4.Text := IntToStr(max);

Завдання #6
Запитання:
Встановіть відповідність між операторами і діями, які вони реалізують

Вкажіть відповідність для всіх 4 варіантів відповіді:
1) Від більшого з чисел А і В відняти менше.
2) Змінній Мах присвоїти значення більшого з чисел А і В.
3) Якщо ціле число А парне, поділити його на 2.
4) Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.

__ If A mod 2 = 0 Then A := A div 2 Else A := 10*A;
__ If A mod 2 = 0 Then A := A div 2;
__ If A > B Then A := A-B Else B := B-A;
__ If A > B Then Мах := A Else Мах:= B;

Завдання #7
Запитання:
Визначте, якого значення набуває змінна В після виконання фрагмента програми.
var A, B, C, Max: Integer;
begin
A := 13; B := 12;
If A > B*B Then B := A-B;
If B > A-1 Then begin B := B-A;
A:= A-B end
Else begin A := A-B;
B := B-A end;
{…}

Запишіть число:
___________________________

Умаляю треба відповідь на всіі питання