Тест з теми "Алгоритми і програми" - Лазарус (9 клас)

Button

Label

Entry

var A: array[1..5] of Integer;

var A: array[1..5] of Real; 

var A: array[0..4] of Integer;

Для редагування багаторядкового тексту

Для відображення малюнків

Для відображення заголовків, підписів інших елементів керування

  Для введення даних

 memo

 const

 integer

 array

одновимірний

двовимірний

тривимірний

багатовимірний

номер

індекс

число

істина

хибність

програма

Оцінки учня з інформатики, які він отримав протягом семестру

Температура повітря протягом тижня

Корінь квадратного рівняння

Тематична оцінка

програмою

алгоритмом

командою

дією

вираз

команда

змінна

константа

умова

алгоритм

цикл

команда

 begin

esc

 end

finish

при натисканні клавіші на клавіатурі

при натисканні кнопки на формі

при натисканні клавіші мишки

при натисканні на об'єкті "Напис"

6

8

4

7

3

var A: array[1..25] of Integer

var A: array[1..25] of Real;

var A: mas;

 var A: Integer;

Номер максимального елемента масиву

Розмірність масиву

Ознака числового масиву

Порядковий номер елемента у масиві

Button

Memo

Caption

Label

істина

хибність

програма

кнопка

алгоритм опрацювання даних, записаний спеціальною мовою та призначений для виконання комп'ютером.

 об’єкт, на якому можна розмістити різні компоненти (елементи керування), зокрема, кнопки, поля, написи, меню, смуги прокручування та інше.

вікно, на якому містяться відомості про хід завантаження

визначає ім'я форми;

визначає колір фону форми;

визначає текст у рядку заголовка форми;

визначає висоту вікна в пікселях;

begin

var

 procedure

real

Напис

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

 Кнопки

Заголовок

хакер

програміст

користувач

адміністратор

:=

=

=:

:

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];

0 і 8

1 і -1

-3 і 8

15 і -20

12

25

8

15

форма

  заголовок 

 кнопка

напис

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

Edit1.Text:=StrToFloat(s)

Label1.Caption := FloatToStr(s); 

Результат