Алгоритм опрацювання табличних величин

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

Засобами мов програмування можна автоматизувати процес знаходження підсумкових даних:


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

Суми

Остачі

Добутку

Середнього значення

Різниці

Запитання 2

Який оператор використовують у програмах, де передбачені дії з елементами табличної величини, що задовільнять деяким умовам?


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

then

if

for

or

Запитання 3

Які оператори порівняння використовують для запису простих умов?

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

@, #, $, %, ^

=, ^, (), (_)

>, <, <=, >=, =, < >

+, -, <, >, /

Запитання 4

Вкажи правильну задачу на знаходження добутоку всіх елементів масиву А[1..N]. 

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

Р := 1;

For і := 1 to N do P :=Р*А[і];

S:=0;

For і := 1 to N do

If A[i] > 0 Then S := S+A[i];

Запитання 5

Вкажи правильно задачу на знаходження суми додатніх елементів масиву A[1..N].


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

Р := 1;

For і := 1 to N do P :=Р*А[і];

S:=0;

For і := 1 to N do

If A[i] > 0 Then S := S+A[i];

Запитання 6

Знайди правильний роз'язок до задачі.

"Визначити найбільше значення елементів табличної величини."

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

procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i, nmax, nmin: integer; max, min: real;

begin

    for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

     max := a[1]; nmax := 1; // значення першого елемента важаємо найбільшим

     min := a[1]; nmin := 1; // значення першого елемента важаємо найменшим

     for i := 2 to 10 do

    If a[i] > max {порівняння значення чергового елемента з найбільшим на цей момент}

    Then

    begin

       max := a [i]; // замінюємо значення найбільшого елемента

       nmax := i; // замінюємо номер найбільшого елемента

    end 


procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..10] of real; i: integer; max: real;

begin

 for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);

   max := a[1]; {вважаємо, що найбільше значення — значення першого елемента}

   for i := 2 to 10 do If a[i] > max Then max := a[i]; {замінюємо найбільше значення}

   Label1.Caption := FloatToStr (max) + ' — найбільше значення’;

end;


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

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