Поліваріантне розгалуження

Тести 8 клас Тест
Пальчун К. С.
Додано: 24 березня 2021
Предмет: , 8 клас
Тест виконано: 43 рази
Домашня робота
В реальному часі
Тестування
Відповідності
Флеш-картки
Роздрукувати
9 запитань
Запитання 1

Чому дорівнює А після виконання оператора, якщо початкове значення А = 8?

Позначте одну правильну відповідь.

    Case А mod 10 of

        0..3 : A := A*2;

        3..5 : A := A+10;

        6..9 : A := A*10;

        end;

варіанти відповідей

16

18

80

8

Запитання 2

Чому дорівнює А після виконання оператора, якщо початкове значення А = 22?

Позначте одну правильну відповідь.

    Case А mod 10 of

        0..3 : A := A*2;

        3..5 : A := A+10;

        6..9 : A := A*10;

        end;  

варіанти відповідей

44

32

22

220

Запитання 3

Чому дорівнює А після виконання оператора, якщо початкове значення А = 22?

Позначте одну правильну відповідь.

    Case А mod 10 of

        0..3 : A := A*2;

        3..5 : A := A+10;

        6..9 : A := A*10;

        end;  

варіанти відповідей

26

23

13

130

Запитання 4

В яких операторах допущені помилки? (декілька варіантів відповіді)

варіанти відповідей

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

 If a>5 Then a := True;

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

Case Х mod 2;

        0 : ShowMessage ('Парне');

        1 : ShowMessage ('Непарне');

         end;

Запитання 5

Визначте, який оператор реалізує дію:

Вивести у поле Edit1 кількість цифр в цілому числі А, що належить діапазону від 1 до 999. (декілька варіантів відповіді)

варіанти відповідей

 If A<10 Then Edit1.Text := '1' Else If A<100 Then Edit1.Text := '2'

                                         Else Edit1.Text := '3';

Edit1.Text := IntToStr(A div 100);

If A<10 Then Edit1.Text := IntToStr(A) Else

                       If A<100 Then Edit1.Text := IntToStr(A div 10)

                                                                        Else Edit1.Text := IntToStr(A div 100);

Case А of

            0..9 : Edit1.Text := '1';

            10..99 : Edit1.Text := '2';

            100..999 : Edit1.Text := '3';

             end;

Запитання 6

Який оператор еквівалентний оператору  If A = 0 Then B := C Else B := D;  ?

варіанти відповідей

 If A >= B Then A := A–B Else B := B–A; 

 If A< >0 Then B := D Else B := C;

If A >= B Then B := A Else A := B;

If A >= B Then H := Y Else H := X;

Запитання 7

Який оператор еквівалентний оператору If A<B Then H := X Else H := Y; ?

варіанти відповідей

If A >= B Then A := A–B Else B := B–A; 

If A< >0 Then B := D Else B := C;

 If A >= B Then B := A Else A := B;

If A >= B Then H := Y Else H := X;

Запитання 8

Який оператор еквівалентний оператору If A<B Then B := B–A Else A := A–B;  ?

варіанти відповідей

 If A >= B Then A := A–B Else B := B–A;

 If A< >0 Then B := D Else B := C;

If A >= B Then B := A Else A := B;

 If A >= B Then H := Y Else H := X;

Запитання 9

Чому дорівнює А після виконання оператора, якщо початкове значення А = 9?

    Case А of

        0..3 : A := A*2;

        3..5 : A := A+10;

        6..9 : A := A*10;

        Else А := 100;

         end;

варіанти відповідей

А= 9

А= 99

А= 90

А= 900

Створюйте онлайн-тести
для контролю знань і залучення учнів
до активної роботи у класі та вдома

Створити тест