Конструктор тестів
1
Відновіть правильну послідовність запису коду
var a: array [1..10] of real; i: integer; max: real;
Procedure TForm1.Button1Click(Sender: TObject);
max := a[1];
for i := 1 to 10 do a[i] := StrToFloat(Memo1.Lines[i-1]);
Label1.Caption := FloatToStr(max) + ‘ – найбільше значення’;
end;
begin
for i := 2 to 10 do if a[i] > max then max := a[i];
2
Вкажіть на коди, записані з помилками
3
Які записи не містять помилок?
4
Відновіть правильний запис коду
Procedure TForm1.Button1Click(Sender: TObject);
var a: array [ ] of real; i: integer; max: ;
begin
for i := 1 to 10 do a[i] := (Memo1.Lines[i-1]);
max := a[1];
for i := to 10 do if a[i] > max then max := a[i];
Label1.Caption := (max) + ‘ – найбільше значення’;
end;
5
Вкажіть на рядок коду, яким замінюємо найменше значення
6
Вкажіть на рядок коду, в якому вводяться величини
7
Вкажіть на рядок коду, в якому вважаємо, що найменше значення – значення першого елемента
8
Знайдіть код з помилкою
9
Знайдіть код з помилкою
10
Знайдіть код з помилкою
11
Яке слово пропущено в записі?
var a: array [1..10] of real; i: ; max: real;
Рефлексія від 2 учнів
Сподобався:
Так: 2
Ні: 0
Зрозумілий:
Так: 1
Ні: 1
Потрібні роз'яснення:
Ні: 2
Так: 0