1. Список говнокодов пользователя ka3ax

    Всего: 3

  2. Pascal / Говнокод #14318

    +80

    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
    procedure WriteString(ST: Ansistring);
var
  leng: dword;
  I: dword;
  ss: Ansistring;
  stk: Ansistring;
begin
  leng := Length(ST);
  for I := 1 to leng do
  begin
    ss := Copy(ST, I, 1);
    stk := stk + ss;
  end;
  filestream1.Write(stk[1], Length(stk));
end;

    Процедура записи строки в файл.
    Использование:

    var
    filestream1: TfileStream;

    begin
    filestream1 := TfileStream.Create('file.dat', fmcreate);
    WriteString('bla bla bla');
    filestream1.Destroy;
    end;

    ka3ax, 06 Января 2014

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

  3. Pascal / Говнокод #14314

    +84

    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
    function Okruglenije(cislo: Currency; skolkonulei: Integer): string;
var

  outs: string;
  rst, cel, zn: string;
  p: integer;
begin
  outs := FloatToStr(cislo);

  p := Pos(',', outs) + 1;

  zn := Copy(outs, p, skolkonulei);

  cel := FloatToStr(trunc(cislo));

  if p > 1 then
    rst := Trim(cel + ',' + zn)

  else
    rst := Trim(cel);

  Okruglenije := rst;

end;

    Процедура округления

    ka3ax, 04 Января 2014

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

  4. 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)