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

Form1.Caption:='Tester';

Application.CreateForm(TForm2, Form2);

with form2.Memo1.Lines do

begin

Clear;

Add('Результат проходження тесту');

Add('---------------------------------------------------');

Add('Кількість питань: '+inttostr(ArrayM.MAX));

Add('Кількість правильних відповідей: '+inttostr(KilkistPraviln));

r:=Floor( 100/ArrayM.MAX*KilkistPraviln*100 );

Add('В процентному відношені: '+floattostr( r/100 )+'%');

Add('Оцінка: '+inttostr(Otsinka));

Add('---------------------------------------------------');

end ;

Form2.ShowModal;

end ;

end .