Создание теста в Delphi

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: решебник по физике, реферат значение
| Добавил(а) на сайт: Dovmont.

procedure pballov; begin if nomer=3 then begin case FormTest.RadioGroup1.ItemIndex of

0:begin Aa:=aa+2;bb:=bb+2;end;

1:begin aa:=aa+1;bb:=bb+1;end;

2:begin aa:=aa+2;bb:=bb+2;end; end; end; case nomer of

{AA} 27,52,76,101,126,151,176:begin case FormTest.RadioGroup1.ItemIndex of

0:Aa:=aa+2;

1:aa:=aa+1;

2:aa:=aa+2; end; end;

{BB} 28,54,78,103,128,153,178:begin case FormTest.RadioGroup1.ItemIndex of

0:bb:=bb+2;

1:bb:=bb+1;

2:bb:=bb+2; end; end;

...

{QQ3 и QQ4} 24,48,73,98,123,148,173:begin case FormTest.RadioGroup1.ItemIndex of

0:qq34:=qq34+2;

1:qq34:=qq34+1;

2:qq34:=qq34+2; end; 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;