Говнокод #234 — Pascal — Говнокод.ру

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

−186.9

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]:=@cTyp_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]:=@cD_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]:=@cTyp_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]:=@cRad_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]:=@cPW_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]:=@cPW_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]:=@cRat_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]:=@cTrn_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]:=@cRad_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]:=@wArNconcentr[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]:=@wArM_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]:=@wArNumZoneOtvod_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]:=@wArNumZoneVdod_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]:=@wArNxod_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]:=@wArNcur_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]:=@wArParam_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]:=@wArSw_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]:=@wArNumKolc_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]:=@wArNumKolc_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]:=@wArNreek_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]:=@wArGshreik_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]:=@wArGtreik_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]:=@wArShreik_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]:=@wArNpr[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]:=@wArShpr[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]:=@wArRadZaz_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]:=@wArStr_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]:=@wArPrizn_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]:=@wArAxStr[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]:=@wArYokeRast_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]:=@wArElectrH_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]:=@wArElectr_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]:=@wArKanBottom[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]:=@wArKanTop[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]:=@wArComIsZone[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]:=@wArMprIsZone[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]:=@wArKus_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]:=@wArKus_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]:=@wArKus_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]:=@wArKus_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]:=@wArKus_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]:=@wArTypIsol[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]:=@wArEndIsol_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]:=@wArEndIsol_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]:=@wArTypMat_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]:=@wArTypMat_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]:=@wArNst_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]:=@wArNst_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]:=@wArSh_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]:=@wArSh_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]:=@wArRad_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]:=@wArRad_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]:=@wArPriznZakr[JJ];inc(IJ3);inc(II);
     //....
    end;

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

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

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

guest 21.12.2008 19:43 # +1

Stam:
поднимите мою челюсть с пола
Ответить
guest 23.12.2008 20:27 # +3

anmiles:
какой пейзаж.... матрицаааа.... ааа... :)
Ответить
guest 26.12.2008 09:34 # +2

ядщи:
...бануться
Ответить
guest 27.12.2008 17:53 # 0

Vatson01:
o_0
первый раз попал на сайт...
я в шоке, неужели такое бывает...
Ответить
guest 29.12.2008 22:55 # +1

гость:
Жесть.
Что за воспаленный мозг мог родить такое?
Ответить
guest 31.12.2008 03:10 # +2

говногость:
это человек писал?
Ответить
guest 09.01.2009 15:42 # 0

indapublic:
Бля, я в ступоре
Ответить
guest 22.01.2009 14:01 # +1

Qu:
Ипааааааать...
Ответить
guest 23.01.2009 12:06 # +2

ROFL:
мдя ... пляяяяя..... он сам понимает что написал?
Ответить
guest 07.02.2009 11:20 # +1

Maximing:
Пиндец полнейший!!!!
Ответить
guest 13.02.2009 23:28 # −1.8

Xanes:
Ппц, такое впечатление что я сижу не дома за компом и читаю быдло код, а на лекции по программухе в универе:)
Ответить
guest 27.02.2009 16:06 # +2

Армитаж:
Надо же, там ещё закомментированы неправильные строчки.
Ответить
guest 23.03.2009 08:39 # +1

kurguru:
Волшебство!
Ответить
guest 26.04.2009 11:25 # +9

Сан Саныч:
Такое ощущение, что руки у автора растут даже не из жопы, а откуда-то глубже, может, из кишечника...
Ответить
guest 28.05.2009 13:36 # +1

Наблюдатель:
Дайте глянуть весь исходник)
Уж больно интересный.
Ответить
guest 04.06.2009 19:14 # 0

2 Наблюдатель

Думаю, остальной исходник в таком же духе написан.
Ответить
guest 10.08.2009 18:25 # −2

Наверняка обыкновенный обфускатор поработал. Это и есть его работа - превращать код в гавно.
Смешно читать каменты.
Ответить
guest 31.08.2009 23:03 # 0

(@)_(@)
Ответить
danxill 04.02.2010 06:22 # 0

Это не вебкилл ебошил? xDD
Ответить
guest 19.04.2010 12:12 # +3

Мой мозг испугался и вывалился из головы....
это не просто говно, ЭТО МЕГА ГОВНО!
и хватило же у этого пня терпения чтоб всё это сотворить...
я буду повторять это вечно:
while true do
Say('МЕГА ГОВНО!!!');
Ответить
guest 19.04.2010 18:43 # 0

тут же можно просто вложить операторы with!!!
Ответить
Pauchok-Anaynckiy 25.11.2010 16:40 # +4

Жутко плачевно ((((. Но я кажется знаю в чем дело.

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

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

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

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

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

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

А код, конечно же, полное говнище.
Ответить
guest 05.04.2011 17:43 # −3

нормальный код...
Ответить
- guest 24.05.2011 00:59 # +2
  
  поддерживаю. всё просто и понятно, я физик и тут идёт простейший расчёт.
  Ответить
  - guest 27.02.2015 21:26 # 0
    
    красава! усидчивый. если еще кодестайл добавить, то конфетка б вышла!
    Ответить
guest 24.05.2011 08:34 # −2

вот, тарасег, какое говно позволяют писать дельфовые with
Ответить
- TheHamstertamer 25.05.2011 19:40 # +1
  
  все зависит от пишущего
  Ответить
guest 07.10.2011 00:22 # 0

это пичально....
Чем нужно накуриться чтоб такое сотворит? Автор хотябы знает какая тутпеременная, что обознаечет..?
Ответить
guest 10.02.2012 03:44 # 0

Ну это вообще пушка.
Ответить
guest 09.03.2012 14:38 # 0

имхо это физика (если правильно понял что среди переменных попадаются токи, индуктивности и изоляция). Если так - то говна не вижу, просто расшифровка где-нибудь в РПЗ
Ответить
Fluttie 24.11.2016 23:01 # 0

пыщ

Ответить

KaKou-To_xyu 17.10.2018 10:28 # 0

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

Ответить

4EPTA_KyJIuC 18.10.2018 11:26 # 0

Чего только не наплетёт веретено...

Тут в качестве препроцессора вполне сгодился бы "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']?>]:=@<?=$item['botname']?>[JJ];inc(IJ<?=$item['index']?>);inc(II);
<?php } ?>

Ответить

Говнокод: по колено в коде.

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

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

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