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) RSS

    • ava guest 10.04.2010 15:28 # +0.6

      Где здесь ООП?! o_O
      Ответить

      • ava ka3ax 10.04.2010 15:47 # −0.4

        вобщем полный проект здесь (735 кб) http://ka3ax-ka3ax.narod.ru/govnokod.rar
        Программа уже 1,5 года работает без сбоев на производстве.
        Ответить

    • ava guest 10.04.2010 16:00 # +3.6

      Вот какой, значит, софт использовался на Саяно-Шушенской ГЭС :)
      Ответить

      • ava ka3ax 10.04.2010 16:06 # +4.4

        Наговнокодил за 100 баксов))). Больше платить не хотят, начальники думают что проги писать легко, раз-два и готово.
        Ответить

    • ava guest 14.04.2010 23:17 # +3

      С++ говно. Дельфи рулит!
      Ответить

    • ava StriderMan 23.04.2010 17:15 # 0

      а где собссно говно?
      Ответить

    • ava ka3ax 23.04.2010 17:19 # −1

      Обращаюсь к спецам! Оцените код этой программы http://ka3ax-ka3ax.narod.ru/govnokod.rar если не влом, отпишитесь, помоему лучшего решения этой задачи нету, так как работает как часы
      Ответить

      • ava xXx_totalwar 23.04.2010 17:25 # +2 

        WriteString('<html xmlns:o="urn:schemas-microsoft-com:office:office"'+#13+#10);
WriteString('xmlns:w="urn:schemas-microsoft-com:office:word"'+#13+#10);
WriteString('xmlns="http://www.w3.org/TR/REC-html40">'+#13+#10);
WriteString('<head>'+#13+#10);
WriteString('<meta http-equiv=Content-Type content="text/html; charset=windows-1251">'+#13+#10);
WriteString('<meta name=ProgId content=Word.Document>'+#13+#10);
WriteString('<meta name=Generator content="Microsoft Word 11">'+#13+#10);
WriteString('<meta name=Originator content="Microsoft Word 11">'+#13+#10);
WriteString('<link rel=File-List href="TN.files/filelist.xml">'+#13+#10);
WriteString('<!--[if gte mso 9]><xml>'+#13+#10);


        вырвизглазный пздц
        ctrl-c crtl-v случайно до дыр не затерлись ?
        Ответить

        • ava ka3ax 23.04.2010 17:33 # +1

          Просто лень было оптимизацией заниматься, так как платили мало и поджимали со сроками сдачи программы. Можно было выкинуть метаданные, но тяжко за такую сумму 100$ заниматся этим.
          А отчет то генерится неплохо.
          Ответить

          • ava xXx_totalwar 23.04.2010 17:37 # 0

            сотня енотов? это ж рабство какое-то
            Ответить

            • ava ka3ax 23.04.2010 17:39 # 0

              Так у нас оценивается работа программиста, так как некоторые руководители думают что кидать кнопки на форму это раз два и готово.
              Ответить

            • ava ka3ax 23.04.2010 17:45 # 0

              Во сколько это можно оценить?
              Ответить

              • ava xXx_totalwar 23.04.2010 17:47 # 0

                не видя ТЗ сложно оценить
                Ответить

                • ava ka3ax 23.04.2010 17:54 # −1

                  ТЗ - написать программу для сбора и архивирования информации
                  с двух приборов ТРМ-138 и предоставления отчета в нормальном бумажном виде.
                  Ответить

                  • ava xXx_totalwar 23.04.2010 17:58 # 0

                    это разве тз?
                    вот поэтому и цены такие - даже нормальную смету не составить
                    Ответить

                    • ava ka3ax 23.04.2010 18:31 # 0

                      Моя задача была писать программу. А смету составляла шаражкина контора.
                      Ответить

              • ava bugmenot 01.06.2010 21:12 # 0

                писят баксов и шампусик
                Ответить

        • ava ka3ax 23.04.2010 17:35 # 0

          > ctrl-c crtl-v случайно до дыр не затерлись ?
          Стёрлись.
          Ответить

      • ava whiskey 26.04.2010 18:11 # +2

        Вот, что надо было постить (это твой Unit1.pas):

        function RoundEx(chislo: double; Precision: Integer): string;
        var
        ChisloInStr: string;
        ChisloInCurr: currency;
        begin
        ChisloInCurr := chislo;
        Str(ChisloInCurr: 20: Precision, ChisloInStr);
        ChisloInStr[Pos('.', ChisloInStr)] := ',';
        RoundEx := Trim(ChisloInStr);
        end;
        Ответить

        • ava Говногость 26.04.2010 18:18 # 0

          Ну для этого можно было бы завести и отдельный говнокод, а не постить в комментах. :)
          Ответить

          • ava ka3ax 26.04.2010 18:44 # 0

            Эта функция из DelphiWorld была взята, не моя.
            Ответить

            • ava whiskey 26.04.2010 19:48 # 0

              Извини, не знал. А исходник я твой посмотрю на досуге, хоть и не великий профи. Как связаться с тобой?
              Ответить

    • ava guest 01.06.2010 21:22 # +1

      Казах маладес, в Казакстане живут лучшый праграмисты, братан так держать!
      Ответить

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