Складання алгоритмів опрацювання величин

Тести Інформатика 8 клас Тест
Вільшун Н.
Додано: 15 квітня 2020
Предмет: Інформатика, 8 клас
Тест виконано: 127 разів
Домашня робота
В реальному часі
Тестування
Відповідності
Флеш-картки
Роздрукувати
6 запитань
Запитання 1

var i, j: Integer; S: String; 

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

 S := ''; For і:=1 To 2 do begin

    j := 0.1; 

    While j<1 do begin j := j+0.3; S := S +IntToStr(j) +' ' end; 

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

0.1 0.4 0.7 1.0 0.1 0.4 0.7 1.0; 

0.1 0.7 1.0 0.4 0.7 1.0;

0.1 0.4 0.7 1.0;

0.4 0.7 1.0 0.4 0.7 1.0; 

Запитання 2

var i, j: Integer; S: String; 

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

  For i := 1 To 2 do begin

  S := S + IntToStr (i); 

  For j := 1 To 3 do S:=S + 'A'; 

end;

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

1AA2AA3AA; 

1A2A3A; 

1AAA2AAA; 

1A1A1A2A2A2A

Запитання 3

Визначте, які оператори реалізують обчислення f=10!.

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

 f:= 1; i := 1; While i<n Then begin i := i+1; f := f *і end; 

 f:= 1; For i := 1 To 10 Do f:=f +і; 

f:= 1; For i := 2 to 10 Do f := f*i;

f:= 1; For i := 1 To 10 Do f := f * A; 

Запитання 4

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

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

K := 0; For і := 9 To 1 Do K := K*2; 

K := 1; C := 0; For і := 1 To 64 Do begin K := K+і; C:=2*і; end; 

Y := 0; For X:=0.1 To 0.9 Do Y := Y+Sіn (X); 

K := 81; Y:=1; For і := 1 To Sqrt (K) Do Y := Y*2; 

Запитання 5

Чому дорівнює S після виконання фрагмента програми:

var і:Integer; A,S:Real;

begin S := 0; A := 0;

  For і := 1 To 5 Do begin

    A := A+0.2; 

    S := S+A end; 

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

1

2

3

4

Запитання 6

Вкажіть на правильний порядок розташування операторів у програмі для визначення кількості парних серед введених з клавіатури восьми довільних чисел. 

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

k := 0;

For i := 1 to 8 do begin 

a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0')); 

if a mod 2=0 Then k := k+1;

end; 

Edit1.text := IntToStr(k); 

k := 0;

if a mod 2=0 Then k := k+1;

For i := 1 to 8 do begin 

a := StrToInt(InputBox('Ввести 8 чисел', IntToStr(i), '0')); 

end; 

Edit1.text := IntToStr(k); 

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

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