Цикли. Лазарус.

Тести Інформатика 9 клас Тест
Музика І. К.
Додано: 4 травня 2022
Предмет: Інформатика, 9 клас
Тест виконано: 138 разів
Домашня робота
В реальному часі
Тестування
Відповідності
Флеш-картки
Роздрукувати
10 запитань
Запитання 1

Задано фрагмент алгоритму. Скільки разів буде виконуватися команда тіла циклу?

n:=1;

for i:=1 to 4 do

  n:=n*i;

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

3

4

5

0

Запитання 2

Задано фрагмент алгоритму. Яке значення буде мати змінна a після виконання даного фрагменту?

a:=20;

while a<=100 do

  a:=a*2;

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

80

100

120

160

Запитання 3

Цикл - це алгоритмічна структура при якій

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

одна і та ж послідовність дій виконується декілька разів, поки виконується деяка умова

послідовність дій виконується в залежності від виконання умови

дії виконуються одна за одною без пропусків та повторень

Фрагмент алгоритму, у якому одна або декілька команд можуть виконуватися більше, ніж один раз

Запитання 4

Вкажіть значення змінної x після виконання наведеного фрагменту алгоритму:

x:=11;

while x>1 do x:=x-4;

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

7

-1

3

11

Запитання 5

Вкажіть значення змінної x після виконання наведеного фрагменту алгоритму:

x:=10;

y:=3;

while x>y do x:=x-y;

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

1

7

4

-1

Запитання 6

Вкажіть значення змінної y після виконання наведеного фрагменту алгоритму:

x:=10;

y:=3;

while x>3 do

begin

x:=x-3;

y:=y+1;

end;

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

1

4

6

8

Запитання 7

Яким повинно бути початкове значення x, щоб цикл виконався 3 рази?

x := ____?

while x < 50 do

x := x +10;

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

10

0

30

20

Запитання 8

n = 45230. Проаналізуйте фрагмент алгоритму.

Чому дорівнюватиме значення а.


n:=StrToInt(Edit1.Text);

  a:=0;

  while n>0 do

   begin

    if n mod 10>a then a:=n mod 10;

    n:=n div 10;

   end;   

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

4

5

2

3

0

Запитання 9

n = 45230. Проаналізуйте фрагмент алгоритму.

Чому дорівнюватиме значення n?

 

n:=StrToInt(Edit1.Text);

    while n>9 do

      n:=n div 10;

     label1.Caption:=IntToStr(n) 

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

4

5

2

3

0

Запитання 10

Задано послідовність з n цілих чисел. Знайти кількість парних та не кратних 5 одночасно. Вкажіть алгоритм, що задовільняє умову:

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

procedure TForm1.Button1Click(Sender: TObject);

var k,n,i,a:integer;

begin

    k:=0;

    for i:=0 to n-1 do

    begin

       a:=StrToInt(Memo1.Lines[i]);

       If (a mod 2=0) and (a mod 5<>0) then

        k:=k+1;

    end;

     label1.Caption:=IntToStr(k)

end;  

procedure TForm1.Button1Click(Sender: TObject);

var k,n,i,a:integer;

begin

  n:=Memo1.Lines.Count;

  k:=0;

    for i:=0 to n-1 do

          a:=StrToInt(Memo1.Lines[i]);

       If (a mod 2=0) and (a mod 5<>0) then

        k:=k+1;

        label1.Caption:=IntToStr(k)

end;  

procedure TForm1.Button1Click(Sender: TObject);

var k,n,i,a:integer;

begin

  n:=Memo1.Lines.Count;

  k:=0;

    for i:=0 to n-1 do

    begin

       a:=StrToInt(Memo1.Lines[i]);

       If (a mod 2=0) and (a mod 5<>0) then

        k:=k+1;

    end;

     label1.Caption:=IntToStr(k)

end;  

procedure TForm1.Button1Click(Sender: TObject);

var k,n,i,a:integer;

begin

  n:=Memo1.Lines.Count;

  k:=0;

    for i:=0 to n do

    begin

       a:=StrToInt(Memo1.Lines[i]);

       If (a mod 2=0) or (a mod 5<>0) then

        k:=k+1;

    end;

     label1.Caption:=IntToStr(k)

end;  

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

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