Question

В яких операторах допущені помилки? А) If a mod 2 =0 Then a := a div 2 Else a := a*2; Б) Case Х mod 2; 0 : ShowMessage ('Парне'); 1 : ShowMessage ('Непарне'); end; В) If a>5 Then a := True; Г) If a>5 Then a := 0; Else a := 10;

Answer 1

Відповідь:

Б

Пояснення:

Answer 2

Давайте розглянемо кожен оператор по черзі:

А) If a mod 2 = 0 Then a := a div 2 Else a := a * 2; Тут помилок немає. Це конструкція умовного оператора "if-else", яка перевіряє, чи є значення змінної "a" парним числом. Якщо так, то змінна "a" ділиться на 2, інакше змінна "a" множиться на 2.

Б) Case Х mod 2; 0: ShowMessage ('Парне'); 1: ShowMessage ('Непарне'); end; Цей оператор також є коректним. Він використовує "case" для визначення парності змінної "X". Якщо значення "X" ділиться на 2 без остачі, виводиться повідомлення "Парне", в іншому випадку виводиться повідомлення "Непарне".

В) If a > 5 Then a := True; У цьому операторі є помилка. Умова "a > 5" перевіряє, чи змінна "a" більше 5, і в разі виконання цієї умови змінна "a" присвоюється значення "True". Проте, здається, що тут була помилка, і мала бути перевірка на булеве значення. Виправлена версія може виглядати так:

cssCopy code
If a > 5 Then a := True Else a := False;

Г) If a > 5 Then a := 0; Else a := 10; Тут теж є помилка. Оператор "if-else" потребує тіло умови навіть якщо воно складається з одного оператора. Виправлена версія може виглядати так:

cssCopy code
If a > 5 Then a := 0 Else a := 10;

Ось виправлені версії:

Виправлена версія А:

lessCopy code
If a mod 2 = 0 Then a := a div 2 Else a := a * 2;

Виправлена версія Б:

vbnetCopy code
Case Х mod 2 of
  0: ShowMessage ('Парне');
  1: ShowMessage ('Непарне');
end;

Виправлена версія В:

cssCopy code
If a > 5 Then a := True Else a := False;

Виправлена версія Г:

cssCopy code
If a > 5 Then a := 0 Else a := 10;