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

    +92

    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
    {Обнуление сумм}
    
        sum1:=0;
        sum2:=0;
        sum3:=0;
        sum4:=0;
        sum5:=0;
        sum6:=0;
        sum7:=0.001;
        sum8:=0.001;
        giga1:=0;
        giga2:=0;
        sum9:=0;
        sum10:=0;
        sum11:=0;
        sum12:=0;
        sum13:=0;
        sum14:=0;
        sum15:=0;
        sum16:=0;
    
        for i:=0 to cnt do begin
        sum1:=sum1+TNP[i]; sum2:=sum2+TNO[i]; //Подсчёт "Прямого" и "Обратного"
        sum3:=sum3+TNP[i]-TNO[i]; //Подсчёт "Израсходовано воды"
        sum4:=sum4+PAR[i]; //Подсчёт "Израсходовано пара"
        sum5:=sum5+Tpar[i]; //Подсчёт "температуры пара"
        sum6:=sum6+Ppar[i]; //Подсчёт "давления пара"
        sum7:=sum7+Tprm[i]; //Подсчёт "температуры прямого"
        sum8:=sum8+Tobr[i]; //Подсчёт "температуры обратного"
        sum10:=sum10+Qvoz[i]; //Подсчёт "Израсходовано воздуха"
        sum11:=sum11+Tvoz[i]; //Подсчёт "температуры воздуха"
        sum12:=sum12+Pvoz[i]; //Подсчёт "давление воздуха"
        sum13:=sum13+Qhzv[i]; //Подсчёт "Израсходовано хоз. воды"
        sum14:=sum14+Qthv[i]; //Подсчёт "Израсходовано тех. воды"
        sum15:=sum15+Thzv[i]; //Подсчёт "Температуры. хоз воды"
        sum16:=sum16+Tthv[i]; //Подсчёт "Температуры. тех воды"
    
     // giga1:= (sum1 * 1000) * (660 * 0.000001) /  (sum7/sum8) ; // расчёт гигакалорий для отопления
     // giga1:= (sum1 * 1000) * (660 * 0.000001); // расчёт гигакалорий для отопления
    
        giga1:= (sum3 / 3.04); // расчёт гигакалорий для отопления
    
        giga2:= (sum4 * 1000) * (660 * 0.000001); // расчёт гигакалорий для пара
        end;    end;    end;

    ka3ax, 10 Апреля 2010

    Комментарии (28)
  2. C# / Говнокод #2980

    +120

    1. 1
    2. 2
    foreach(char Enter in Environment.NewLine)
                  this.Add(Enter);

    Говногость, 10 Апреля 2010

    Комментарии (10)
  3. PHP / Говнокод #2979

    +144.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    <?php
    if(!@isset($_POST[submit]))
    {
    ...
    ?>

    DmitryDick, 09 Апреля 2010

    Комментарии (27)
  4. SQL / Говнокод #2978

    −180.2

    1. 1
    SELECT ((SELECT COUNT(*) FROM `books` WHERE `author` = '?') + (SELECT COUNT(*) FROM `magazins` WHERE `author` = '?')));

    не многовато ли селектов?:))
    вместо '?' пхпшный код ставит значение.

    litrumb, 09 Апреля 2010

    Комментарии (26)
  5. PHP / Говнокод #2977

    +173.4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    function p_id($p_id)
    {
    	global $product_id;
    	
    	foreach($product_id as $k=>$v)if($p_id==$k)
    	{
    		$sel_r=$k;
    		$sel_t=$v;
    	}
    	return $sel_t;
    }

    Реальная функция и даже реально используется.
    Сотрудник, далекий от кодинга, иногда чтобы не отвлекать меня разные мелочи кодит сам... Ну там по образцам типа...
    Функцию эту кстати я трогать не стал исходя из золотого правила - "работает - не трогай!", так и используется и по сей день...

    larrygingras2, 09 Апреля 2010

    Комментарии (24)
  6. PHP / Говнокод #2976

    +146.4

    1. 1
    $where = $this->getAdapter()->quoteInto('idUser=?', (int)$this->idUser);

    надёжная защита от инъекций )))

    paranoid, 09 Апреля 2010

    Комментарии (10)
  7. C# / Говнокод #2975

    +117.4

    1. 1
    int? ipLong = ip != null ? (int?)ip.Address : null;

    Вот так взялись отрицательные IP в базе. А главное-то, правильно переменную назвать!

    Rom@nych, 09 Апреля 2010

    Комментарии (16)
  8. Pascal / Говнокод #2974

    +106.2

    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
    /////////////////////////// удаление спецсимволов
    Prbl:=' ';
    WS_h:=AnsiReplaceText(WS_h, Chr(13), Prbl);
    WS_h:=AnsiReplaceText(WS_h, Chr(10), Prbl);
    WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '           ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '          ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '         ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '        ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '       ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '      ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '     ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '    ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '   ', Prbl);
    WS_h:=AnsiReplaceText(WS_h, '  ', Prbl);
    /////////////////////////////////////////////////
    WS_h:=AnsiReplaceText(WS_h, '<span class=SpellE>', '');
    /////////////////////////// удаление спецсимволов

    Красиво оформленный код - залог успеха!

    Temnenkov, 09 Апреля 2010

    Комментарии (13)
  9. PHP / Говнокод #2973

    +156.2

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    switch ($result['state']) 
    {
        case 'Oregon':
    	$row->state = 'OR';
        break;
       case $row->state=='Washington':
    	$row->state = 'WA';
       break;
    }

    нашел у своего потрудника, долго не мог понять что второй кейс делает и как это вообще работало

    quard, 09 Апреля 2010

    Комментарии (2)
  10. Pascal / Говнокод #2972

    +110

    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
    Function IsBigLet(Let: String): Boolean;
    var r: bool;
    begin
    r:=false;
    if pos('Й',Let)>0 then r:=true;
    if pos('Ц',Let)>0 then r:=true;
    if pos('У',Let)>0 then r:=true;
    if pos('К',Let)>0 then r:=true;
    if pos('Е',Let)>0 then r:=true;
    if pos('Н',Let)>0 then r:=true;
    if pos('Г',Let)>0 then r:=true;
    if pos('Ш',Let)>0 then r:=true;
    if pos('Щ',Let)>0 then r:=true;
    if pos('З',Let)>0 then r:=true;
    if pos('Х',Let)>0 then r:=true;
    if pos('Ф',Let)>0 then r:=true;
    if pos('Ы',Let)>0 then r:=true;
    if pos('В',Let)>0 then r:=true;
    if pos('А',Let)>0 then r:=true;
    if pos('П',Let)>0 then r:=true;
    if pos('Р',Let)>0 then r:=true;
    if pos('О',Let)>0 then r:=true;
    if pos('Л',Let)>0 then r:=true;
    if pos('Д',Let)>0 then r:=true;
    if pos('Ж',Let)>0 then r:=true;
    if pos('Э',Let)>0 then r:=true;
    if pos('Я',Let)>0 then r:=true;
    if pos('Ч',Let)>0 then r:=true;
    if pos('С',Let)>0 then r:=true;
    if pos('М',Let)>0 then r:=true;
    if pos('И',Let)>0 then r:=true;
    if pos('Т',Let)>0 then r:=true;
    if pos('Б',Let)>0 then r:=true;
    if pos('Ю',Let)>0 then r:=true;
    Result:=r;
    end;

    Немножко индусского кода!

    Temnenkov, 09 Апреля 2010

    Комментарии (23)