- 1
- 2
- 3
- 4
- 5
- 6
while (entityIterator.hasNext()) {
Object[] results = entityIterator.next();
Long policyId = ((PolicyEntity) results[0]).getId();
PolicyEntity policy = (PolicyEntity) policyDao.findById(policyId);
processPolicy(policy);
}-
Java / Говнокод #8904
+78
Спецально не рефакторил этот шедевр, ждал, пока ГК поднимется.
roman-kashitsyn,
05 Января 2012
Комментарии (44) -
Pascal / Говнокод #8903
+98
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 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) -
JavaScript / Говнокод #8902
+151
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
001 // Определяем наборы изображений 002 var images = { 003 'Набор 1' : [ 004 'pic1.jpg', 005 'pic2.jpg', 006 'pic3.jpg', 007 'pic4.jpg', 008 'pic5.jpg', 009 'pic6.jpg', 010 'pic7.jpg', 011 'pic8.jpg', 012 'pic9.jpg', 013 'pic10.jpg' 014 ], 015 'Набор 2' : [ 016 'pic2.jpg', 017 'pic3.jpg', 018 'pic4.jpg', 019 'pic5.jpg', 020 'pic6.jpg', 021 'pic7.jpg', 022 'pic8.jpg', 023 'pic9.jpg', 024 'pic10.jpg', 025 'pic11.jpg', 026 'pic12.jpg', 027 'pic5.jpg', 028 'pic6.jpg', 029 'pic7.jpg', 030 'pic8.jpg' 031 ], 032 'Набор 3' : [ 033 'pic1.jpg', 034 'pic2.jpg', 035 'pic3.jpg', 036 'pic4.jpg', 037 'pic5.jpg', 038 'pic6.jpg', 039 'pic7.jpg', 040 'pic8.jpg', 041 'pic9.jpg', 042 'pic10.jpg', 043 'pic11.jpg', 044 'pic12.jpg', 045 'pic4.jpg', 046 'pic5.jpg', 047 'pic6.jpg' ...О_О Шок...
Takasu,
05 Января 2012
Комментарии (5) -
PHP / Говнокод #8901
+166
- 1
- 2
- 3
- 4
- 5
- 6
- 7
if ($_POST['login']!="" && $_POST['pas']!="" && $_GET['con']=='auth') { $login=$_POST['login']; $pas=$_POST['pas']; $fulld = mysql_query ("SELECT * FROM users WHERE login='$login' AND pas='$pas'",$link); ....Местных гурманов этим конечно не удивить. Но все же...
nyk0r,
05 Января 2012
Комментарии (9) -
1C / Говнокод #8900
−138
- 1
вайп
TarasGovno,
04 Января 2012
Комментарии (3) -
1C / Говнокод #8899
−137
- 1
вайп TarasGovno,
04 Января 2012
Комментарии (1) -
bash / Говнокод #8898
−85
- 1
вайп TarasGovno,
04 Января 2012
Комментарии (0) -
bash / Говнокод #8897
−104
- 1
вайп TarasGovno,
04 Января 2012
Комментарии (1) -
Objective C / Говнокод #8896
−313
- 1
вайп TarasGovno,
04 Января 2012
Комментарии (0) -
Ruby / Говнокод #8895
−121
- 1
1 TarasGovno,
04 Января 2012
Комментарии (1)
Follow us!