1. Pascal / Говнокод #8903

    +98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    if RadioGroup1.ItemIndex=0   then cpr:=cpr+1;
if RadioGroup1.ItemIndex=1   then cth:=cth+1;
if RadioGroup2.ItemIndex=0   then cch:=cch+1;
if RadioGroup2.ItemIndex=1  then czs:=czs+1;
if RadioGroup3.ItemIndex=0   then chd:=chd+1;
if RadioGroup3.ItemIndex=1  then cpr:=cpr+1;
if RadioGroup4.ItemIndex=0   then  cth:=cth+1;
if RadioGroup4.ItemIndex=1  then cch:=cch+1;
if RadioGroup5.ItemIndex=0   then czs:=czs+1;
if RadioGroup5.ItemIndex=1  then chd:=chd+1;
if RadioGroup6.ItemIndex=0   then cpr:=cpr+1;
if RadioGroup6.ItemIndex=1  then cch:=cch+1;
if RadioGroup7.ItemIndex=0   then chd:=chd+1;
if RadioGroup7.ItemIndex=1  then cth:=cth+1;
....// Это всё в 60 строк
if (cpr>cth) and (cpr>cch) and (cpr>czs) and (cpr>chd) then cpr1:=+1
else
if (cth>cpr) and (cth>cch) and (cth>czs) and (cth>chd) then cth1:=+1
else
if (cch>cpr) and (cch>cth) and (cch>czs) and (cch>chd) then cch1:=+1
else
if (czs>cpr) and (czs>cch) and (czs>cth) and (czs>chd) then czs1:=+1
else
if (chd>cpr) and (chd>cch) and (chd>czs) and (chd>cth) then chd1:=+1;

if cpr>chd or czs or cth or cch     then
begin
ShowMessage('человек-природа – все профессии, связанные с растениеводством, животноводством и лесным хозяйством;')   ;
Datamodule4.ADOTable1.Edit;
Datamodule4.ADOTable1.FieldValues['test2']:=('человек-природа – все профессии, связанные с растениеводством, животноводством и лесным хозяйством;');
Datamodule4.ADOTable1.Post;
end
else
if chd>cpr or cth or cch or czs   then   begin
ShowMessage('человек-техника – все технические профессии;')   ;
Datamodule4.ADOTable1.Edit;
Datamodule4.ADOTable1.FieldValues['test2']:=('человек-техника – все технические профессии;');
Datamodule4.ADOTable1.Post;
...... И далее результаты в общем их 5
отдельная кнопка для вывода остальных 10 вопросов х)
procedure TForm1.Button1Click(Sender: TObject);
begin
Radiogroup11.Visible:=true;
Radiogroup12.Visible:=true;
Radiogroup13.Visible:=true;
Radiogroup14.Visible:=true;
Radiogroup15.Visible:=true;
Radiogroup16.Visible:=true;
Radiogroup17.Visible:=true;
Radiogroup18.Visible:=true;
Radiogroup19.Visible:=true;
Radiogroup20.Visible:=true;
Button2.Visible:=True;
end;

    Программа тестирования на профориентацию
    хД сколько он radiogroup создал)

    Запостил: Ryuko, 05 Января 2012

    Комментарии (8) RSS

    Добавить комментарий