Контрольная работа: Розробка програмного продукту "Тестер"

if (Time<>0) then

begin

if Second=0 then

s:='00';

if (second<10)and (second>0) then s:='0'+inttostr(second);

if second>9 then s:=inttostr(second);

Label7.Caption:=inttostr(minute)+':'+s;

end

else

GetResult;

Time:=Time-1000;

end ;

procedure TForm1.WritePutanya;

var i:integer;

begin

Label1.Caption:=mas[Potochne].putanya;

RadioGroup1.Items.Clear;

for i:=1 to mas[Potochne].n do

RadioGroup1.Items.Add(mas[Potochne].mas[i-1]);

end ;

procedure TForm1.GetResult;

var Otsinka:integer;

r:integer;

begin

Timer1.Enabled:=false;

Panel1.Visible:=false;

Status:=tsNotActiv;

Label7.Caption:='';

// обчислити оцінку