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

• Все
• Лучший
• Сток
• Глупый поиск
• Наговнокодить!
• Oтзывы

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

1. PHP (5698)
2. C++ (2733)
3. Куча (2323)
4. JavaScript (2027)
5. C# (1924)
6. Java (1501)
7. Си (1095)
8. Pascal (647)
9. Python (582)
10. 1C (531)
11. SQL (431)
12. ActionScript (292)
13. Objective C (202)
14. bash (196)
15. Perl (194)
16. Assembler (146)
17. Ruby (142)
18. VisualBasic (138)
19. Lua (49)
20. Go (28)
21. Swift (27)
22. Haskell (26)
23. Kotlin (13)

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

   0

   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

   procedure TForm9.FormShow(Sender: TObject);
   var i_vx,o_dt,o_kt: real;
   begin
     Form9.Caption:='Èòîãî ïî æóðíàëó';
     r_:='select sum(sma) as ism from '+t_ss;
     with DM.ZQ_all do
     begin
       Close;
       SQL.Clear;
       SQL.Add(r_);
       SQL.Add('where ch=1 and gd*100+ms<:rgd*100+:rms');
       Params.ParamByName('rgd').Value :=t_gd;
       Params.ParamByName('rms').Value :=t_ms;
       Open;
       first;
       if Eof=true then i_vx:=0 else i_vx:=Fieldbyname('ism').asfloat;
   
       Close;
       SQL.Clear;
       SQL.Add(r_);
       SQL.Add('where ch=2 and gd*100+ms<:rgd*100+:rms');
       Params.ParamByName('rgd').Value :=t_gd;
       Params.ParamByName('rms').Value :=t_ms;
       Open;
   
       first;
       if not Eof=true then  i_vx:=i_vx - Fieldbyname('ism').asfloat;
       LEdit1.Text:=Format('%10.2f',[i_vx]);
       Close;
       SQL.Clear;
       SQL.Add(r_);
       SQL.Add('where ch=1 and gd*100+ms=:rgd*100+:rms');
       Params.ParamByName('rgd').Value :=t_gd;
       Params.ParamByName('rms').Value :=t_ms;
       Open;
       first;
       if Eof=true then o_dt:=0 else o_dt:=Fieldbyname('ism').asfloat;
       LEdit2.Text:=Format('%10.2f',[o_dt]);
       Close;
       SQL.Clear;
       SQL.Add(r_);
       SQL.Add('where ch=2 and gd*100+ms=:rgd*100+:rms');
       Params.ParamByName('rgd').Value :=t_gd;
       Params.ParamByName('rms').Value :=t_ms;
       Open;
       first;
       if Eof=true then o_kt:=0 else o_kt:=Fieldbyname('ism').asfloat;
       Close;
       LEdit3.Text:=Format('%10.2f',[o_kt]);
       LEdit4.Text:=Format('%10.2f',[i_vx+o_dt-o_kt]);
     end;
   
   end;

   Baiumka, 06 Января 2022

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

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

   −8

   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

   Program print_numbers_twice;
   
   Procedure give(p: pptrint);
   begin
   	if pptrint(p^) <> nil then begin
   		give(pptrint(p^));
   		writeln((p-1)^)
   	end
   end;
   
   Procedure take;
   var n: ptrint;
   begin
   	if not SeekEof then begin
   		read(n);
   		take
   	end else begin
   		n := (pptrint(@n)+1)^;
   		give(pptrint(n));
   		give(pptrint(n))
   	end
   end;
   
   Begin
   	take
   End.

   На входе программа получает неизвестное заранее количество целых чисел, разделенных пробельными символами, а затем выводит их два раза в том же порядке по одному числу в строке.
   
   Очень простая и короткая программа. Я думаю, вам не составит труда понять, как она работает. Пишите в комментариях!

   Threadwalker, 22 Декабря 2021

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

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

   −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
   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

   // Подгрузка аватаров пользователей.
       Bmp:=TBitMap.Create; // Нет более изящного спооба узнать тип изображения, не колупаясь в заголовках. Расширение файлов картинок зачастую фиктивное.
       try                  // Зная, что ава может быть только двух типов - jpg и png, я решил пойти конём.
         Bmp.PixelFormat:=pf32Bit;
         Bmp.Width:=16;
         Bmp.Height:=16;
         ImgConv:=True;
         Png:=TPngObject.Create;
         try
           try
             Comm.RawAvatar.Position:=0;
             Png.LoadFromStream(Comm.RawAvatar);
             Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect, Png);
           except
             ImgConv:=False;     // Ошибка конвертирования. Не совпал формат - идем дальше, пробуем jpg...
           end;
         finally
           Png.Free;             // нет смысла раскручивать стек, ибо исключение в любом случае отловится try..except
         end;
         if not ImgConv then
         begin
           Jpg:=TJPEGImage.Create;
           try
             try
               Comm.RawAvatar.Position:=0;
               Jpg.LoadFromStream(Comm.RawAvatar);
               Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect, Jpg);
             except
             end;
           finally
             Jpg.Free;
           end;
         end;
         CommentList.Items[I].ImageIndex:=Images.AddMasked(Bmp, clWhite);
       finally
         Bmp.Free;
       end;
     end;

   "Тут всюду густая вонь, то жаркая и приятная, то теплая и противная, но одинаково волнующая, особая, пароходная, мешающаяся с морской свежестью"
   
   @ Бунин.
   
   Теперь минусатор умеет подгружать авы.
   https://dropmefiles.com/USQKW

   Support, 05 Ноября 2021

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

4. Pascal / Говнокод #27748

   −1

   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
   66. 66
   67. 67
   68. 68
   69. 69
   70. 70
   71. 71
   72. 72
   73. 73
   74. 74
   75. 75
   76. 76
   77. 77

   function ReplaceHTMLSpec(First, Last, RepTo, RepEd:string):string;
   var
     I, P, St:Integer;
     SS, Temp:string;
   begin
     Temp:='';
     ST:=0;
     while True do
     begin
       P:=Pos(First, Result);
       if P = 0 then Break;
       SS:=Copy(Result, ST, P-1)+RepTo;
       Temp:=Temp+SS;
       ST:=P+Length(First);
       Result:=Copy(Result, ST, MaxInt);
       P:=Pos(Last, Result);
       if P > 0 then
       begin
         SS:=Copy(Result, 1, P-1)+RepEd;
         Temp:=Temp+SS;
         ST:=P+Length(Last);
         SS:=Copy(Result,ST, MaxInt);
         Temp:=Temp+SS;
       end;
       Result:=Temp;
     end;
   end;
   
   function DecorateText(S:string):string;
   const
     Arr:array[0..3] of string=('<br>','&quot;','&lt;','&gt;');
   var
     I, P, St:Integer;
     SS, Temp:string;
   begin
     Result:=S;
     for I:=0 to 3 do
     Result:=StringReplace(Result, Arr[I], '',[rfreplaceall]);
     Result:=StringReplace(Result,'<br />',#13#10,[rfreplaceall]);
     Result:=StringReplace(Result,'<i>','[i]',[rfreplaceall]);
     Result:=StringReplace(Result,'</i>','[/i]',[rfreplaceall]);
     Result:=StringReplace(Result,'<b>','[b]',[rfreplaceall]);
     Result:=StringReplace(Result,'</b>','[/b]',[rfreplaceall]);
     Temp:='';
     ST:=0;
    { while True do
     begin
       P:=Pos('<span style="font-size:10px;">', Result);
       if P = 0 then Break;
       SS:=Copy(Result, ST, P-1)+'[size=10]';
       Temp:=Temp+SS;
       ST:=P+Length('<span style="font-size:10px;">');
       Result:=Copy(Result, ST, MaxInt);
       P:=Pos('</span>', Result);
       if P > 0 then
       begin
         SS:=Copy(Result, 1, P-1)+'[/size]';
         Temp:=Temp+SS;
         ST:=P+Length('</span>');
         SS:=Copy(Result,ST, MaxInt);
         Temp:=Temp+SS;
         Result:=Temp;
       end;
     end;   }
   
     Result:=ReplaceHTMLSpec('<span style="color:white;">','</span>','[color=white]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:red;">','</span>','[color=red]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:blue;">','</span>','[color=blue]','[/color]');
     Result:=ReplaceHTMLSpec('<span style="color:green;">','</span>','[color=green]','[/color]');
     Result:=ReplaceHTMLSpec('<pre><code class="">','</code></pre>','[code]','[/code]');
     Result:=ReplaceHTMLSpec('<span style="font-size:10px;">','</span>','[size=10]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="font-size:15px;">','</span>','[size=15]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="font-size:20px;">','</span>','[size=20]','[/size]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:underline;">','</span>','[u]','[/u]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:line-through;">','</span>','[s]','[/s]');
     Result:=ReplaceHTMLSpec('<span style="text-decoration:blink;">','</span>','[blink]','[/blink]');
   end;

   Пахнет селёдкой. Ой блять, забыл подмыться.

   Support, 16 Октября 2021

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

5. Pascal / Говнокод #27689

   +1

   1. 1
   2. 2
   3. 3

   Ой, девачьки, я 5 лет не заходило. Почему нет говнокодов на Дульфи? Я десять страниц промотал! Неужели все дульфисты впали 
   в старческий маразм и не могут больше срать на этом недоязыке? Почему? Он же изначально создавался для даунов.
   Что стало с Тарасом? Что стало с поняшей-ассемблеристом?

   Только одфаги меня вспомнят.

   DelphiGovno, 28 Сентября 2021

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

6. Pascal / Говнокод #27528

   +4

   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
   66. 66
   67. 67
   68. 68
   69. 69
   70. 70
   71. 71
   72. 72
   73. 73

   #!/usr/bin/env instantfpc
   
   program PrintCharTable;
   
   const
   	space = ' '; { }
   	point = '.'; {.}
   	caret = '^'; {^}
   	vline = '|'; {│}
   	hline = '-'; {─}
   	cross = '+'; {┼}
   	hex_0 = ord('0');
   	hex_a = ord('A')-10;
   
   function tohex(d: integer): char;
   begin
   	if d < 10 then
   		tohex := chr(d+hex_0)
   	else
   		tohex := chr(d+hex_a)
   end;
   
   var
   	i, j: integer;
   	code: integer;
   
   begin
   	write(space, space, vline);
   	for i := 0 to 15 do
   		write(space, point, tohex(i));
   	writeln;
   
   	write(hline, hline, cross);
   	for i := 0 to 15 do
   		write(hline, hline, hline);
   	writeln;
   	
   	for i := 0 to 15 do begin
   		write(tohex(i), point, vline);
   		for j := 0 to 15 do begin
   			code := i * 16 + j;
   			if code < 32 then
   				write(space, caret, chr(code+64))
   			else if code = 127 then
   				write(space, caret, chr(code-64))
   			else
   				write(space, space, chr(code))
   		end;
   		writeln
   	end
   end.
   
   {
   $ ./print_ascii.pas | iconv -f koi8-r
     | .0 .1 .2 .3 .4 .5 .6 .7 .8 .9 .A .B .C .D .E .F
   --+------------------------------------------------
   0.| ^@ ^A ^B ^C ^D ^E ^F ^G ^H ^I ^J ^K ^L ^M ^N ^O
   1.| ^P ^Q ^R ^S ^T ^U ^V ^W ^X ^Y ^Z ^[ ^\ ^] ^^ ^_
   2.|     !  "  #  $  %  &  '  (  )  *  +  ,  -  .  /
   3.|  0  1  2  3  4  5  6  7  8  9  :  ;  <  =  >  ?
   4.|  @  A  B  C  D  E  F  G  H  I  J  K  L  M  N  O
   5.|  P  Q  R  S  T  U  V  W  X  Y  Z  [  \  ]  ^  _
   6.|  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o
   7.|  p  q  r  s  t  u  v  w  x  y  z  {  |  }  ~ ^?
   8.|  ─  │  ┌  ┐  └  ┘  ├  ┤  ┬  ┴  ┼  ▀  ▄  █  ▌  ▐
   9.|  ░  ▒  ▓  ⌠  ■  ∙  √  ≈  ≤  ≥     ⌡  °  ²  ·  ÷
   A.|  ═  ║  ╒  ё  ╓  ╔  ╕  ╖  ╗  ╘  ╙  ╚  ╛  ╜  ╝  ╞
   B.|  ╟  ╠  ╡  Ё  ╢  ╣  ╤  ╥  ╦  ╧  ╨  ╩  ╪  ╫  ╬  ©
   C.|  ю  а  б  ц  д  е  ф  г  х  и  й  к  л  м  н  о
   D.|  п  я  р  с  т  у  ж  в  ь  ы  з  ш  э  щ  ч  ъ
   E.|  Ю  А  Б  Ц  Д  Е  Ф  Г  Х  И  Й  К  Л  М  Н  О
   F.|  П  Я  Р  С  Т  У  Ж  В  Ь  Ы  З  Ш  Э  Щ  Ч  Ъ
   }

   Печатает таблицу нужной кодировки. Пример использования в комменте после end.

   Threadwalker, 20 Июля 2021

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

7. Pascal / Говнокод #27324

   +1

   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

   program square;
   
   var sep, input: string;
     i, j, n, m : integer;
     
   
   begin
     write('sep:');
     readln(sep);
     
     write('str:');
     readln(input);
     
     for i:=1 to length(input) do write(input[i], ' ');
     writeln();
     for i:=2 to length(input)-1 do begin
       write(input[i]);
       for j:=1 to length(input)*2-3 do write (sep);
       writeln(input[length(input) - i + 1]);
     end;
     for i:=0 to length(input)-1 do 
       write(input[length(input)-i], ' ');
   end.

   Написала на скучной лекции программку на телефоне, чтобы распечатывать
   
   

   Х У Й
   
   У   У
   
   Й У Х

   
   
   и прочие интересности UwU
   
   Пользуйтесь на здоровье, лицензия GNU GPL V3!

   KoWe4Ka_l7porpaMMep, 28 Марта 2021

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

8. Pascal / Говнокод #27297

   0

   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

   type
   .....
   TSyncParamsPasser = class
      PassedJSON:String;
      constructor Create(RJS:String);
      procedure ProcessExternalCmd;
     end;
   .....
   .....
   procedure TForm1.TCPServerExecute(AContext: TIdContext);
   begin
   .....
      SyncParamsPasser:=TSyncParamsPasser.Create(CustomData);
      TIdSync.SynchronizeMethod(SyncParamsPasser.ProcessExternalCmd);
      FreeAndNil(SyncParamsPasser);
   .....
   end;
   .....
   constructor TSyncParamsPasser.Create(RJS:String);
   begin
    PassedJSON:=RJS;
   end;
   
   procedure TSyncParamsPasser.ProcessExternalCmd;
   var
    JSON:TJSONObject;
   begin
    JSON:=TJSONObject.ParseJSONValue(PassedJSON) as TJSONObject;
   .....

   Событие OnExecute компонента TCPServer вызывается из рабочего потока, в котором обрабатывается входящее подключение.
   
   Способ передачи параметров в процедуру, выполняющуюся внутри Synchronize, с помощью класса.
   Говно или сойдёт?

   SmseR, 16 Марта 2021

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

9. Pascal / Говнокод #27214

   −2

   1. 1
   2. 2
   3. 3
   4. 4
   5. 5

   procedure ProgramRestart(Sender: TObject);
   begin
      Application.Terminate;
      ShellExecute(0,'open',Application.ExeName,'','',SW_NORMAL); // ))
   end;

   Неделю когда-то пытался понять почему этот код не работает: "Я же программу вырубил? - вырубил... Я же ее запускаю? - запускаю... А че она не запускается?)))..."

   vovka3003, 13 Января 2021

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

10. Pascal / Говнокод #27031

    −1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5

    // добавляем новые ссылки
      for i := 0 to ATags.Count - 1 do
      begin
        // так мне кажется лучше
        Application.ProcessMessages;

    кому или чему лучше кроме тебя, автор ?

    xoodoo, 15 Октября 2020

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

• ← влево
• вправо →

• 65
• 64
• 63
• 62
• 61
• 60
• …
• 1