Конструктор тестів
1
var
a:array [1..100] of real;
Що описує дана процедура?
2
n:=StrToInt(Edit1.Text);
Що описує дана процедура?
3
for i:=1 to n do
a[i]:=StrToFloat(Memo1.Lines[i-1]);
Що описує дана процедура?
4
max:=a[i];
if a[i]>max then max:=a[i];
Що описує дана процедура?
5
min:=a[i];
if a[i]<min then min:=a[i];
Що описує дана процедура?
6
Edit3.Text:=FloatToStr(min);
Що описує дана процедура?
7
k:=0;
for i:=1 to n do
if a[i]=max then k:=k+1;
Що описує дана процедура?
8
Label7.Caption:='Новий рекорд встановлено'
Що описує дана процедура?
9
var
max,min:real;
Що описує дана процедура?
10
var
i,k,n: real;
Що описує дана процедура?
11
for i:= 0 to 6 do S:=S+a[i];
x:=S/7;
Що описує дана процедура?
12
k:=0;
for i:= 0 to 6 do
if a[i]>0 then k:=k+1;
Що описує дана процедура?
Рефлексія від 10 учнів
Сподобався:
Так: 4
Ні: 6
Зрозумілий:
Так: 5
Ні: 5
Потрібні роз'яснення:
Ні: 7
Так: 3