Табличні величини в Lazarus

Додано: 9 травня 2022
Предмет: Інформатика, 9 клас
Тест виконано: 77 разів
11 запитань
Запитання 1

Таблична величина - це...

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

тип даних елемента

ім'я елемента табличної величини

упорядкований набір змінних одного типу

компонент форми

Запитання 2

Як оголошується змінна таблична величина в рядку var?

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

a:array(0..9)of real;

a:real;

a[0..9]of array;

a:array[0..9]of real;

Запитання 3

Яким може бути діапазон номерів елементів табличної величини?

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

[0..9]

[12..100]

[16..16]

[1..1000]

[45..2]

Запитання 4

Як називається об'єкт, який доданий на форму(див. зображення)?


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

Текстове поле

Багаторядкове текстове поле

Напис

Форма

Запитання 5

Які дії виконує поданий уривок програми?

for i:= 0 to 5 do

a[i]:=StrToInt(Memo1.Lines[i]);

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

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

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

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

очистити рядки першого багаторядкового текстового поля

Запитання 6

Який з уривків програми виконує дії поставлені у завданні?

Визначити суму значень усіх елементів табличної величини.

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

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..10]of real;   i:integer;   x:real;   f:boolean;

begin

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

  x:=StrToFloat(Edit1.Text);

  f:=false;

  for i:=1 to 10 do    if a[i]=x then begin

          f:=true;

          break;

         end;

  if f=true then Label1.Caption:='Число є' else Label1.Caption:='Числа немає'

end;        

procedure TForm1.Button1Click(Sender: TObject);

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

begin

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

   For i:=0 to 9 do a[i]:=a[i]*a[i];

   Memo2.Clear;

   For i:=0 to 9 do Memo2.Lines.Append(FloatToStr(a[i]));

end;                    

procedure TForm1.Button1Click(Sender: TObject);

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

begin

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

s:=0;

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

   Label1.Caption:=FloatToStr(s);

end;                    

Запитання 7

Яким буде результат обрахунку задачі, поданої в уривку програми, з такими вхідними даними: 54; -16; 128; 13; -7.


procedure TForm1.Button1Click(Sender: TObject);

var a: array [1..5] of real;  i: integer;   r: real;

begin

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

 r:= 0;

 for i:= 1 to 5 do r:= r-a[i];

 Label1.Caption:= FloatToStr(r); 

end;     

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

-64

-110

218

68

Запитання 8

Якою командою можна перервати виконання циклу у Lazarus?

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

Create

Close

Clear

Break

Запитання 9

Які дії виконує наведений фрагмент процедури?

k:=0;

for i:=1 to 6 do if a[i]=x then k:=k+1;

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

фрагмент процедури для визначення найбільшого значення серед елементів табличної величини

фрагмент процедури для обчислення суми значень елементів табличної величини

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

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

Запитання 10

На що вказує такий запис?

a:array[1..5]of TShape;

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

таблична величина a, яка складається з 5 елементів типу TShape, значеннями яких будуть компоненти Фігура, що розташовані на формі

таблична величина b, яка складається з 5 елементів типу TShape, значеннями яких будуть компоненти Фігура, що розташовані на формі

таблична величина a, яка складається з 6 елементів типу TShape, значеннями яких будуть компоненти Фігура, що розташовані на формі

таблична величина b, яка складається з 6 елементів типу TShape, значеннями яких будуть компоненти Фігура, що розташовані на формі

Запитання 11

Яку дію виконає такий запис?

b[i].Brush.Color:=clGreen;

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

команда зафарбування фігури в червоний колір

команда зміни висоти фігури

команда зафарбування фігури в зелений колір

команда зміни контуру фігури в зелений колір

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

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