Школоло / Говнокод #3311 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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
  55. 55
  56. 56
  57. 57
  58. 58
  59. 59
  60. 60
  61. 61
  62. 62
  63. 63
  64. 64
  65. 65
  66. 66
  67. 67
  68. 68
  69. 69
  70. 70
  71. 71
  72. 72
  73. 73
  74. 74
  75. 75
  76. 76
  77. 77
  78. 78
  79. 79
  80. 80
  81. 81
  82. 82
  83. 83
  84. 84
  85. 85
  86. 86
  87. 87
  88. 88
  89. 89
  90. 90
  91. 91
  92. 92
  93. 93
  94. 94
  95. 95
  96. 96
  97. 97
  98. 98
//это как бы сортировка приоритетов
Try
Prior1:=StrToInt(Edit1.Text);
Prior2:=StrToInt(Edit2.Text);
Prior3:=StrToInt(Edit3.Text);
Prior4:=StrToInt(Edit4.Text);
Prior5:=StrToInt(Edit5.Text);
except
ShowMessage('Íåâåðíî çàäàíû ïðèîðèòåòû');   exit;
end;
min1:=100;
If prior1<min1 then begin min1:=prior1; nmin1:=1; end;
If prior2<min1 then begin min1:=prior2; nmin1:=2; end;
If prior3<min1 then begin min1:=prior3; nmin1:=3; end;
If prior4<min1 then begin min1:=prior4; nmin1:=4; end;
If prior5<min1 then begin min1:=prior5; nmin1:=5; end;
min2:=100;
If (prior1<min2)and(prior1>min1) then begin min2:=prior1; nmin2:=1; end;
If (prior2<min2)and(prior2>min1) then begin min2:=prior2; nmin2:=2; end;
If (prior3<min2)and(prior3>min1) then begin min2:=prior3; nmin2:=3; end;
If (prior4<min2)and(prior4>min1) then begin min2:=prior4; nmin2:=4; end;
If (prior5<min2)and(prior5>min1) then begin min2:=prior5; nmin2:=5; end;
min3:=100;
If (prior1<min3)and(prior1>min2) then begin min3:=prior1; nmin3:=1; end;
If (prior2<min3)and(prior2>min2) then begin min3:=prior2; nmin3:=2; end;
If (prior3<min3)and(prior3>min2) then begin min3:=prior3; nmin3:=3; end;
If (prior4<min3)and(prior4>min2) then begin min3:=prior4; nmin3:=4; end;
If (prior5<min3)and(prior5>min2) then begin min3:=prior5; nmin3:=5; end;
min4:=100;
If (prior1<min4)and(prior1>min3) then begin min4:=prior1; nmin4:=1; end;
If (prior2<min4)and(prior2>min3) then begin min4:=prior2; nmin4:=2; end;
If (prior3<min4)and(prior3>min3) then begin min4:=prior3; nmin4:=3; end;
If (prior4<min4)and(prior4>min3) then begin min4:=prior4; nmin4:=4; end;
If (prior5<min4)and(prior5>min3) then begin min4:=prior5; nmin4:=5; end;
min5:=100;
If (prior1<min5)and(prior1>min4) then begin min5:=prior1; nmin5:=1; end;
If (prior2<min5)and(prior2>min4) then begin min5:=prior2; nmin5:=2; end;
If (prior3<min5)and(prior3>min4) then begin min5:=prior3; nmin5:=3; end;
If (prior4<min5)and(prior4>min4) then begin min5:=prior4; nmin5:=4; end;
If (prior5<min5)and(prior5>min4) then begin min5:=prior5; nmin5:=5; end;

//далее горы подобного кода (где-то 20-30 страниц):
hile t<=60 do begin
Application.ProcessMessages;

t:=t+1;
Sleep(100);

    If nmin1=1 then begin

    If t-tpi1=t1 then begin
    i1:=i1+1;
    datetime:=now;
x1:=random(311)/10+29+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x1;
table1.FieldByName('datchik').AsInteger:=1;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series1.AddXY(i1, x1, '',clred);
if (x1>60)or(x1<30) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
  if (x1>60.5)or(x1<29.5) then begin
  table1.FieldByName('krit').AsBoolean:=True;
  Label1.Visible:=True;
  end;
end;
table1.Post;
tpi1:=t;
end; //end if

end;
If nmin1=2 then begin

   If t-tpi2=t2 then begin
   i2:=i2+1;
   datetime:=now;
x2:=random(211)/10+9+random(10)/10;
table1.Insert;
table1.FieldByName('znachenie').AsFloat:=x2;
table1.FieldByName('datchik').AsInteger:=2;
table1.FieldByName('oshibka').AsBoolean:=False;
table1.FieldByName('krit').AsBoolean:=False;
table1.FieldByName('DateTime').AsDateTime:=Datetime;
series2.AddXY(i2, x2, '',clgreen);
if (x2>30)or(x2<10) then
begin
table1.FieldByName('oshibka').AsBoolean:=True;
  if (x2>30.5)or(x2<9.5) then begin
  table1.FieldByName('krit').AsBoolean:=True;
  Label1.Visible:=True;
  end;
end;
table1.Post;
tpi2:=t;
end;

курсовая работа одного студента (идущего на красный диплом, кстати)

Запостил: GovnocoderJr GovnocoderJr, (Updated )

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

  • ava guest # Ссылка на оригинал 0

    Диплом ни о чём не говорит. В аспирантуру со всего потока пошли конченные дебилы. Самые же шаристые просто ушли. Бросили институт нахрен. Вроде как живут, не жалуются.
    Ответить

    • ava UncleAli # Ссылка на оригинал 0 ⇈

      К сомну дебилов обычно присоединяются те, кто в армию не хочет, а откосить, как большинство, не в состоянии. Хотя они нормальные люди и специалисты. Так что не показатель.
      А красный диплом говорит лишь о том, что его обладатель имеет такую железную волю, что способен заставить себя не менее 4-х лет учить всякую поебень и сдавать её на "отлично".
      Ответить

  • ava guest # Ссылка на оригинал 0

    Всегда подпрыгиваю на стуле, когда получаю такое сообщение:
    ShowMessage('Íåâåðíî çàäàíû ïðèîðèòåòû');
    Ответить

    • ava guest # Ссылка на оригинал 0 ⇈

      В переводе с непонятного:
      ShowMessage('Неверно заданы приоритеты');
      Ответить

      • ava guest # Ссылка на оригинал 0 ⇈

        Это ты ниасилил.
        Давно пора научится это читать:
        Íåâåðíî çàäàíû ïðèîðèòåòû
        Компьютерщик всеже...
        Ответить

      • ava guest # Ссылка на оригинал 0 ⇈

        Это какая то старая версия, скорее всего семерка. 2010 у меня такого нету.
        Ответить

  • ava D3NC0D3R # Ссылка на оригинал 0

    знаем мы таких студентов, знаем как были получены их красные дипломы.
    кстати он часом не по обмену с Китая приехал?
    Ответить

  • ava guest # Ссылка на оригинал 0

    Хорошие программисты идут в гугл.
    Остальные -- на красный диплом.

    Оставшиеся становятся PHP разработчиками и пишут CMSы
    Ответить

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓