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

    −186.9

    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
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    for J1:=0 to Length(wArTypCoil[JJ])-1 do begin
          with wArTypCoil[JJ][J1] do begin
           with cTyp_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II;StrN:=2230;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:[email protected]_coil;inc(IJ5);inc(II);
           with cD_in do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2231;mEd:=true;NPos:=1;Lev:=2;end;P1;ArP1[IJ1]:[email protected]_in;inc(IJ1);inc(II);
           with cTyp_pr do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm6:=II;NTypChs1:=1;StrN:=2232;mEd:=true;Lev:=2;end;P6;ArP6[IJ6]:[email protected]_Pr;inc(IJ6);inc(II);
           with cRad_str do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II; StrN:=2233;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:[email protected]_str;inc(IJ5);inc(II);
           with cPW_coil_rad do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2235;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:[email protected]_coil_rad;inc(IJ2);inc(II);
           with cPW_coil_os do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2248;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:[email protected]_coil_os;inc(IJ2);inc(II);
           with cRat_cur do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2236;mEd:=true;NPos:=2;Lev:=2;end;P1;ArP1[IJ1]:[email protected]_cur;inc(IJ1);inc(II);
           with cTrn_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2237;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:[email protected]_coil;inc(IJ1);inc(II);
           with cRad_dim do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2271;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:[email protected]_dim;inc(IJ1);inc(II);
           //...
          end;
         end;
         with wArNconcentr[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm2:=II; StrN:=2279;mEd:=false;Lev:=1;end;P2;ArP2[IJ2]:[email protected][JJ];inc(IJ2);inc(II);
         with wArM_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2316;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
     //    with wArNumZoneOtvod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2317;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
     //    with wArNumZoneVdod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2318;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]eVdod_c[JJ];inc(IJ3);inc(II);
     //    with wArNxod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2319;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
     //    with wArNcur_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2320;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
     //    with wArParam_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2321;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
     //    with wArSw_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2322;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_c[JJ];inc(IJ3);inc(II);
         with wArNumKolc_top_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; ; Itm3:=II; StrN:=2328;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_top_c[JJ];inc(IJ3);inc(II);
         with wArNumKolc_bot_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2329;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_bot_c[JJ];inc(IJ3);inc(II);
         with wArNreek_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2313;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_ar[JJ];inc(IJ3);inc(II);
         with wArGshreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2314;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_ar[JJ];inc(IJ3);inc(II);
         with wArGtreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2315;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_ar[JJ];inc(IJ3);inc(II);
         with wArShreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2404;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_ar[JJ];inc(IJ3);inc(II);
         with wArNpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm2:=II; StrN:=2369;mEd:=true;Lev:=1;end;P2;ArP2[IJ2]:[email protected][JJ];inc(IJ2);inc(II);
         with wArShpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm1:=II; StrN:=2245;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected][JJ];inc(IJ1);inc(II);
    
         with wArRadZaz_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2323;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_w[JJ];inc(IJ3);inc(II);
         with wArStr_os_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm1:=II; StrN:=2324;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_os_w[JJ];inc(IJ1);inc(II);
         with wArPrizn_radop_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm4:=II;NTypChs:=0;StrN:=2325;mEd:=true;Lev:=1;end;P4;ArP4[IJ4]:[email protected]_radop_w[JJ];inc(IJ4);inc(II);
    
         with wArAxStr[JJ].awAxialStr do begin NRow:=1;NTab:=II_Tabl+5; Itm5:=II; StrN:=2243;mEd:=true;Lev:=1;end;P5;ArP5[IJ5]:[email protected][JJ].awAxialStr;inc(IJ5);inc(II);
         with wArYokeRast_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2265;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_bot_w[JJ];inc(IJ1);inc(II);
         with wArElectrH_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2266;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_w[JJ];inc(IJ1);inc(II);
         with wArElectr_centre[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2395;mEd:=false;NPos:=1;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_centre[JJ];inc(IJ1);inc(II);
         with wArKanBottom[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2341;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected][JJ];inc(IJ3);inc(II);
         with wArKanTop[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2342;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected][JJ];inc(IJ3);inc(II);
    
         with wArComIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2339;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected][JJ];inc(IJ1);inc(II);
         with wArMprIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2340;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:[email protected][JJ];inc(IJ1);inc(II);
         with wArKus_pr[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2249;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_pr[JJ];inc(IJ1);inc(II);
         with wArKus_bm_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2250;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_bm_is[JJ];inc(IJ1);inc(II);
         with wArKus_ob_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2251;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_ob_is[JJ];inc(IJ1);inc(II);
         with wArKus_mpr_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2252;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_mpr_is[JJ];inc(IJ1);inc(II);
     //    with wArKus_msl_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2253;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:[email protected]_msl_is[JJ];inc(IJ1);inc(II);
         with wArTypIsol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=2;StrN:=2254;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:[email protected][JJ];inc(IJ6);inc(II);
    
         with wArEndIsol_bot[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2258;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_bot[JJ];inc(IJ3);inc(II);
         with wArEndIsol_top[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2259;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_top[JJ];inc(IJ3);inc(II);
         with wArTypMat_end_top_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2326;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:[email protected]_end_top_w[JJ];inc(IJ6);inc(II);
         with wArTypMat_end_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2327;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:[email protected]_end_bot_w[JJ];inc(IJ6);inc(II);
         with wArNst_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2332;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_top_isol[JJ];inc(IJ3);inc(II);
         with wArNst_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2333;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_bot_isol[JJ];inc(IJ3);inc(II);
         with wArSh_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2334;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_top_isol[JJ];inc(IJ3);inc(II);
         with wArSh_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2335;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_bot_isol[JJ];inc(IJ3);inc(II);
         with wArRad_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2336;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_top_isol[JJ];inc(IJ3);inc(II);
         with wArRad_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2337;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:[email protected]_bot_isol[JJ];inc(IJ3);inc(II);
    
     //    with wArPriznZakr[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2338;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:[email protected][JJ];inc(IJ3);inc(II);
         //....
        end;

    Просто говно. Кусок одного из вложенных циклов

    Запостил: guest, 20 Декабря 2008

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

    • Stam:
      поднимите мою челюсть с пола
      Ответить
    • anmiles:
      какой пейзаж.... матрицаааа.... ааа... :)
      Ответить
    • ядщи:
      ...бануться
      Ответить
    • Vatson01:
      o_0
      первый раз попал на сайт...
      я в шоке, неужели такое бывает...
      Ответить
    • гость:
      Жесть.
      Что за воспаленный мозг мог родить такое?
      Ответить
    • говногость:
      это человек писал?
      Ответить
    • indapublic:
      Бля, я в ступоре
      Ответить
    • Qu:
      Ипааааааать...
      Ответить
    • ROFL:
      мдя ... пляяяяя..... он сам понимает что написал?
      Ответить
    • Maximing:
      Пиндец полнейший!!!!
      Ответить
    • Xanes:
      Ппц, такое впечатление что я сижу не дома за компом и читаю быдло код, а на лекции по программухе в универе:)
      Ответить
    • Армитаж:
      Надо же, там ещё закомментированы неправильные строчки.
      Ответить
    • kurguru:
      Волшебство!
      Ответить
    • Сан Саныч:
      Такое ощущение, что руки у автора растут даже не из жопы, а откуда-то глубже, может, из кишечника...
      Ответить
    • Наблюдатель:
      Дайте глянуть весь исходник)
      Уж больно интересный.
      Ответить
    • 2 Наблюдатель

      Думаю, остальной исходник в таком же духе написан.
      Ответить
    • Наверняка обыкновенный обфускатор поработал. Это и есть его работа - превращать код в гавно.
      Смешно читать каменты.
      Ответить
    • (@)_(@)
      Ответить
    • Это не вебкилл ебошил? xDD
      Ответить
    • Мой мозг испугался и вывалился из головы....
      это не просто говно, ЭТО МЕГА ГОВНО!
      и хватило же у этого пня терпения чтоб всё это сотворить...
      я буду повторять это вечно:
      while true do
      Say('МЕГА ГОВНО!!!');
      Ответить
    • тут же можно просто вложить операторы with!!!
      Ответить
    • Жутко плачевно ((((. Но я кажется знаю в чем дело.

      Автор этой мути не программер. Это какой-нибудь аспирант или КТН в технической, но не IT-шной специальности, которому понадобилось в своей научной работе выполнить расчеты каких-нибудь охеренно навороченных динамических систем. Как-то даже и язык не поворачивается обкладывать его изощренными убивающими эпитетами, большой вины его в этом безобразии нет.

      Автора жалко, какую гигантскую работу ему пришлось проделать за отсутствием навыков в программировании. А еще все это отладить!, а потом юзать!, сопровождать!, дополнительным функционалом обвешивать!

      В свое время ему преподавали в институте на первом курсе Турбо-Паскаль и было это где-нибудь в далеком 90-95 году. Потом, где-то уже году в 2000-м он перешел на более современную и очень популярную технологию Дельфи, и это было большим прорывом, казалось даже чуть-ли не подвигом.

      Все вместе это ПИЗДЕЦ!!!

      Нет, это даже не просто ПИЗДЕЦ. Это ПОЛНЕЙШИЙ ТОТАЛЬНЫЙ ВСЕОБЪЕМЛЮЩИЙ ВСЕЛЕНСКИЙ ПИЗДЕЦ!!!!!
      И так ведь пишет громадное число научных сотрудников во всех технических специальностях на необъятных просторах нашей необъятной страны ((((((.

      Хочется плакать.

      А код, конечно же, полное говнище.
      Ответить
    • нормальный код...
      Ответить
      • поддерживаю. всё просто и понятно, я физик и тут идёт простейший расчёт.
        Ответить
        • красава! усидчивый. если еще кодестайл добавить, то конфетка б вышла!
          Ответить
    • вот, тарасег, какое говно позволяют писать дельфовые with
      Ответить
    • это пичально....
      Чем нужно накуриться чтоб такое сотворит? Автор хотябы знает какая тутпеременная, что обознаечет..?
      Ответить
    • Ну это вообще пушка.
      Ответить
    • имхо это физика (если правильно понял что среди переменных попадаются токи, индуктивности и изоляция). Если так - то говна не вижу, просто расшифровка где-нибудь в РПЗ
      Ответить
    • пыщ

      Ответить
    • Хуясе, скалы из копролита o_O
      Вот что ctrl+c ctrl+v животворящие делают.
      Ответить
      • Чего только не наплетёт веретено...

        Тут в качестве препроцессора вполне сгодился бы "PHP":
        <?php foreach($data as $item) { ?>
        with <?=$item['botname']?>[JJ] do begin NRow:=<?=$item['nrow']?>;NTab:=II_Tabl+<?=$item['ntab_offset']?>; Itm<?=$item['index']?>:=II; StrN:=<?=$item['strn']?>;mEd:=<?=$item['med']?>;NPos:=<?=$item['npos']?>;Lev:=<?=$item['lev']?>;end;P<?=$item['index']?>;ArP<?=$item['index']?>[IJ<?=$item['index']?>]:[email protected]<?=$item['botname']?>[JJ];inc(IJ<?=$item['index']?>);inc(II);
        <?php } ?>
        Ответить

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