Масиви (опитування на початку уроку)

Додано: 6 березня
Предмет: Інформатика, 9 клас
7 запитань
Запитання 1

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

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

for i := 0 to 9 do a[i] := StrToFloat(Memo1.Lines[i]); 

var a: array [0..9] of real; i: integer; s: real; 

for i := 0 to 9 do s := s + a[i];

Label1.Caption := FloatToStr(s);

Запитання 2

Виберіть команду, яка здійснює додавання до змінної s значення чергового елемента одновимірного масиву

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

for i := 0 to 9 do a[i] := StrToFloat(Memo1.Lines[i]); 

var a: array [0..9] of real; i: integer; s: real; 

for i := 0 to 9 do s := s + a[i]; 

Label1.Caption := FloatToStr(s);

Запитання 3

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

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

for i := 0 to 9 do a[i] := StrToFloat(Memo1.Lines[i]); 

var a: array [0..9] of real; i: integer; s: real; 

for i := 0 to 9 do s := s + a[i];

Label1.Caption := FloatToStr(s); 

Запитання 4

Виберіть відповідь, де здійснюється оголошення змінних, які використовуються у процедурі

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

for i := 0 to 9 do a[i] := StrToFloat(Memo1.Lines[i]); 

var a: array [0..9] of real; i: integer; s: real;

for i := 0 to 9 do s := s + a[i];

Label1.Caption := FloatToStr(s);

Запитання 5

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

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

k := 0;

for i := 1 to 10 do

if a[i] = x then k := k + 1;

f := false;

for i := 1 to 10 do

if a[i] = x then begin f := true; break; end;

max := a[1];

for i := 2 to 10 do

if a[i] > max then max := a[i];

s := 0;

for i := 1 to 10 do s := s + a[i]; 

Запитання 6

Для введення даних в одновимірний масив використовують елемент керування...

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

Edit

Memo 

Label

Button

Запитання 7

Виберіть фрагмент проєкту для знаходження кількості значень елементів одновимірного масиву, що дорівнюють заданому числу

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

k := 0;

for i := 1 to 10 do

if a[i] = x then k := k + 1; 

f := false;

for i := 1 to 10 do

if a[i] = x then begin f := true; break; end;

max := a[1];

for i := 2 to 10 do

if a[i] > max then max := a[i];

s := 0;

for i := 1 to 10 do s := s + a[i];

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

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