8 кл. Урок 56. Складання алгоритмів опрацювання величин у навчальному середовищі програмування

Додано: 26 квітня 2020
Предмет: Інформатика, 8 клас
Тест виконано: 7 разів
8 запитань
Запитання 1

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

program pr1;

Uses sysutils;

var i: Integer; j: real; S: String; 

begin

 S := '';

 for i:=1 to 2 do begin

    j := 0.1; 

    While j<1 do begin 

       j := j+0.3;

       S := S + FloatToStr(j) +' ';

    end; 

 end;

 WriteLn(S);

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

0.4 0.7 1 0.4 0.7 1

Запитання 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!

var i, n: Integer; f: longint; 

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

 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; 

 f:= 1; n:=10; i:=1;  While i<n Do  begin  i:=i+1; f := f*i; end;

Запитання 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

Що виведе оператор WriteLn після виконання програми:

program pr1;

var

i:Integer; A,S:Real;

begin S := 0; A := 0;

 For i := 1 To 5 Do begin

  A := A+0.2; 

  S := S+A end;

 WriteLn(S);

end.

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

1

2

3

4

3.0000000000000000E+000


Запитання 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); 

Запитання 7

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

program pr1;

Uses sysutils;

var i, j: Integer; S: String; 

begin

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

    j := 0.1; 

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

 end;

 WriteLn(S);

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

0.4 0.7 1 0.4 0.7 1

Нічого сформовано не буде. Програма не буде виконуватися, бо є помилки.

Запитання 8

До якого типу може відноситись змінна F, якщо F=10!

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

REAL 

BOOLEAN

CHAR 

INTEGER 

WORD

LONGINT

DOUBLE

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

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