Алгоритми з розгалуженням 1
Список вопросов теста
Вопрос 1
Який оператор відповідає поданій блок-схемі?
Варианты ответов
- If A<5 Then A := A-1 Else A := A+1;
- If A<5 Then A := A+1;
- If A<5 Then A := A+1 Else A := A-1;
- If A<5 Then A := A-1;
Вопрос 2
Який оператор відповідає поданій блок-схемі?

Варианты ответов
- If A<5 Then A := A-1 Else A := A+1;
- If A<5 Then A := A+1;
- If A<5 Then A := A+1 Else A := A-1;
- If A<5 Then A := A-1;
Вопрос 3
Який оператор реалізує дію:
Змінній К: Boolean присвоїти значення True, якщо числа А, В, С упорядковані за зростанням, і значення False в протилежному випадку?
Варианты ответов
- K := (A < B) And (B < C);
- K := (A < B) Or (B < C);
- If (A < B) And (B < C) Then K := True Else K := False;
- If (A < B< C) Then K := True Else K := False;
Вопрос 4
Який оператор реалізує дію:
Якщо А - від’ємне число, змінити його знак на протилежний.
(Функція Abs(A) повертає модуль числа А)
Варианты ответов
- If A < 0 Then A := Abs(A);
- If A < 0 Then A := -A;
- If A > 0 Then A := -A;
- If A < 0 Then A := -A Else A := 0;
Вопрос 5
Встановіть порядок виконання операторів програми для визначення більшого з трьох чисел а, b, с.
Варианты ответов
- 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
Встановіть відповідність між операторами і діями, які вони реалізують
1.
If A mod 2 = 0 Then A := A div 2 Else A := 10*A;
2.
If A mod 2 = 0 Then A := A div 2;
3.
If A > B Then A := A-B Else B := B-A;
4.
If A > B Then Мах := A Else Мах:= B;
Варианты ответов
- Від більшого з чисел А і В відняти менше.
- Змінній Мах присвоїти значення більшого з чисел А і В.
- Якщо ціле число А парне, поділити його на 2.
- Якщо ціле число А парне, поділити його на 2, в протилежному випадку помножити на 10.
Вопрос 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;
{…}
Варианты ответов
- 13
- 11
- 12
- 1
- 25


