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

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

Дані з рядка багаторядкового текстового поля перевести в дійсне число і присвоїти елементу одновимірного масиву:

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

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

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

s := 0; 

Label1.Caption := FloatToStr(s);

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

x := StrToFloat(Edit1.Text);

Запитання 2

Введення заданого числа:

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

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

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

s := 0; 

Label1.Caption := FloatToStr(s);

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

x := StrToFloat(Edit1.Text);

Запитання 3

Початкове значення для змінної, значення якої визначатиме суму значень елементів одновимірного масиву:

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

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

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

s := 0; 

Label1.Caption := FloatToStr(s);

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

x := StrToFloat(Edit1.Text);

Запитання 4

Додавання до змінної s значення чергового елемента одновимірного масиву:

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

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

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

s := 0; 

Label1.Caption := FloatToStr(s);

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

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

Запитання 5

Збільшення на 1 значення лічильника, якщо значення чергового елемента одновимірного масиву дорівнює заданому числу:

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

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

Label1.Caption := IntToStr(k) + ‘ разів’;

s := 0; 

Label1.Caption := FloatToStr(s);

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

x := StrToFloat(Edit1.Text);

Запитання 6

Виведення результату в напис з додаванням пояснювального тексту:

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

Label1.Caption := IntToStr(k) + ‘ разів’;

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

s := 0; 

Label1.Caption := FloatToStr(s);

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

x := StrToFloat(Edit1.Text);

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

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