Реферат: Создание теста в Delphi

end;

end;

FormTest.RadioGroup1.ItemIndex:=-1;

end;

{Подсчёт вывод и сохранение результата }

procedure whoru;

begin

clear;

{подсчёт всех факторов}

case formmain.ComboAge.ItemIndex of{от 16 до 18 лет}

0:begin

if formmain.ComboSex.ItemIndex=0 then {Ж.}

begin

case aa of

0..6:a:=1;

7..8:a:=3;

9..10:a:=4;

11:a:=5;

12..13:a:=6;

14..15:a:=7;

16:a:=8;

17..18:a:=9;

19..20:a:=10;

end;

case bb of

0..1:b:=1;

8,9:b:=8;

11,12:b:=10;

else b:=bb;