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

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

+2

1
2
3
4
5
6
7
8
9

case ((((parametr[3, 1] - parametr[1, 1]) / parametr[4, 2] = (parametr[3, 2] - parametr[1, 2]) / parametr[4, 2]) and ((parametr[3, 2] - parametr[1, 2]) / parametr[4, 2] = (parametr[3, 3] - parametr[1, 3]) / parametr[4, 3])) xor           
            ((parametr[4, 1] = 0) and (parametr[1, 1] = parametr[2, 1]) and (parametr[2, 1] = parametr[3, 1]) and ((parametr[3, 2] - parametr[1, 2]) / parametr[4, 2] = (parametr[3, 3] - parametr[1, 3]) / parametr[4, 3])) xor          
             ((parametr[4, 2] = 0) and (parametr[1, 2] = parametr[2, 2]) and (parametr[2, 2] = parametr[3, 2]) and ((parametr[3, 1] - parametr[1, 1]) / parametr[4, 1] = (parametr[3, 3] - parametr[1, 3]) / parametr[4, 3])) xor                           
                ((parametr[4, 3] = 0) and (parametr[1, 3] = parametr[2, 3]) and (parametr[2, 3] = parametr[3, 3]) and ((parametr[3, 1] - parametr[1, 1]) / parametr[4, 1] = (parametr[3, 2] - parametr[1, 2]) / parametr[4, 2])) xor             
                   ((parametr[4, 3] <> 0) and (parametr[4, 1] = 0) and (parametr[4, 2] = 0) and (parametr[3, 1] = parametr[2, 1]) and (parametr[3, 2] = parametr[2, 2])) xor                    
                      ((parametr[4, 2] <> 0) and (parametr[4, 1] = 0) and (parametr[4, 3] = 0) and (parametr[3, 1] = parametr[2, 1]) and (parametr[3, 3] = parametr[2, 3])) xor                       
                         ((parametr[4, 1] <> 0) and (parametr[4, 2] = 0) and (parametr[4, 3] = 0) and (parametr[3, 2] = parametr[2, 2]) and (parametr[3, 3] = parametr[2, 3])) xor                         
                            ((parametr[4, 1] = 0) and (parametr[4, 2] = 0) and (parametr[4, 3] = 0))) of true:
         writeln('Все точки лежат на одной прямой. Такой треугольник не существует.');

Проверка треугольника в декартовой системе координат

Meliodas, 04 Октября 2015

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

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

+5

1

Commission:= Commission/100*StrToInt(Label8.Caption); //Вычисление комиссии

Терминальщики :|

Dego1n, 23 Сентября 2015

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

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

+4

1
2
3
4
5
6
7
8

with TfmVersionUpdate.Create(Application) do
begin
  try
    Init;
  except
  end;
  Free;
end;

Такой код 100500% отработает без ошибок. Зачем вообще сообщения о них выводить...

kiryl, 19 Августа 2015

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

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

+1000

1
2
3
4

procedure PP.Execute;
begin inherited;
(Sender as TIndusImage).KOT;
end;

В Delphi XE, не знаю с какой версии начиная (в XE7 и XE8 точно) крупные проблемы с TGifImage, а если точнее - если быстро и много их менять, то рано или поздно вываливается тупо всё вместе с интерфейсом (100% где-то в потоках налажали), причем если быстро менять BMP, то всё ОК.

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

Писал особо не заботясь ни о чем, а потом заметил вот таких индусских котов.

KOTOM, 03 Августа 2015

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

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

+7

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51

function variant (x0, y0, x1, y1, x2, y2, x3, y3:real):integer;
begin
    if (x0<=x1) and (y0<=y1) and (x1<=x2) and (y1<=y2) and (x2<=x3) and (y2<=y3) or
       (x0>=x1) and (y0<=y1) and (x1>=x2) and (y1<=y2) and (x2>=x3) and (y2<=y3) or
       (x0>=x1) and (y0>=y1) and (x1>=x2) and (y1>=y2) and (x2>=x3) and (y2>=y3) or
       (x0>=x1) and (y0<=y1) and (x1>=x2) and (y1<=y2) and (x2>=x3) and (y2<=y3) then variant:=1;
    if (x0<=x1) and (y0<=y1) and (x1<=x3) and (y1<=y3) and (x3<=x2) and (y3<=y2) or
       (x0>=x1) and (y0<=y1) and (x1>=x3) and (y1<=y3) and (x3>=x2) and (y3<=y2) or
       (x0>=x1) and (y0>=y1) and (x1>=x3) and (y1>=y3) and (x3>=x2) and (y3>=y2) or
       (x0>=x1) and (y0<=y1) and (x1>=x3) and (y1<=y3) and (x3>=x2) and (y3<=y2) then variant:=2;
    if (x1<=x0) and (y1<=y0) and (x0<=x2) and (y0<=y2) and (x2<=x3) and (y2<=y3) or
       (x1>=x0) and (y1<=y0) and (x0>=x2) and (y0<=y2) and (x2>=x3) and (y2<=y3) or
       (x1>=x0) and (y1>=y0) and (x0>=x2) and (y0>=y2) and (x2>=x3) and (y2>=y3) or
       (x1>=x0) and (y1<=y0) and (x0>=x2) and (y0<=y2) and (x2>=x3) and (y2<=y3) then variant:=3;
    if (x1<=x0) and (y1<=y0) and (x0<=x3) and (y0<=y3) and (x3<=x2) and (y3<=y2) or
       (x1>=x0) and (y1<=y0) and (x0>=x3) and (y0<=y3) and (x3>=x2) and (y3<=y2) or
       (x1>=x0) and (y1>=y0) and (x0>=x3) and (y0>=y3) and (x3>=x2) and (y3>=y2) or
       (x1>=x0) and (y1<=y0) and (x0>=x3) and (y0<=y3) and (x3>=x2) and (y3<=y2) then variant:=4;
    if (x0<=x3) and (y0<=y3) and (x3<=x1) and (y3<=y1) and (x1<=x2) and (y1<=y2) or
       (x0>=x3) and (y0<=y3) and (x3>=x1) and (y3<=y1) and (x1>=x2) and (y1<=y2) or
       (x0>=x3) and (y0>=y3) and (x3>=x1) and (y3>=y1) and (x1>=x2) and (y1>=y2) or
       (x0>=x3) and (y0<=y3) and (x3>=x1) and (y3<=y1) and (x1>=x2) and (y1<=y2) then variant:=5;
    if (x0<=x3) and (y0<=y3) and (x3<=x2) and (y3<=y2) and (x2<=x1) and (y2<=y1) or
       (x0>=x3) and (y0<=y3) and (x3>=x2) and (y3<=y2) and (x2>=x1) and (y2<=y1) or
       (x0>=x3) and (y0>=y3) and (x3>=x2) and (y3>=y2) and (x2>=x1) and (y2>=y1) or
       (x0>=x3) and (y0<=y3) and (x3>=x2) and (y3<=y2) and (x2>=x1) and (y2<=y1) then variant:=6;
    if (x0<=x2) and (y0<=y2) and (x2<=x1) and (y2<=y1) and (x1<=x3) and (y1<=y3) or
       (x0>=x2) and (y0<=y2) and (x2>=x1) and (y2<=y1) and (x1>=x3) and (y1<=y3) or
       (x0>=x2) and (y0>=y2) and (x2>=x1) and (y2>=y1) and (x1>=x3) and (y1>=y3) or
       (x0>=x2) and (y0<=y2) and (x2>=x1) and (y2<=y1) and (x1>=x3) and (y1<=y3) then variant:=7;
    if (x0<=x2) and (y0<=y2) and (x2<=x3) and (y2<=y3) and (x3<=x1) and (y3<=y1) or
       (x0>=x2) and (y0<=y2) and (x2>=x3) and (y2<=y3) and (x3>=x1) and (y3<=y1) or
       (x0>=x2) and (y0>=y2) and (x2>=x3) and (y2>=y3) and (x3>=x1) and (y3>=y1) or
       (x0>=x2) and (y0<=y2) and (x2>=x3) and (y2<=y3) and (x3>=x1) and (y3<=y1) then variant:=8;
    if (x1<=x2) and (y1<=y2) and (x2<=x0) and (y2<=y0) and (x0<=x3) and (y0<=y3) or
       (x1>=x2) and (y1<=y2) and (x2>=x0) and (y2<=y0) and (x0>=x3) and (y0<=y3) or
       (x1>=x2) and (y1>=y2) and (x2>=x0) and (y2>=y0) and (x0>=x3) and (y0>=y3) or
       (x1>=x2) and (y1<=y2) and (x2>=x0) and (y2<=y0) and (x0>=x3) and (y0<=y3) then variant:=9;
    if (x1<=x3) and (y1<=y3) and (x3<=x0) and (y3<=y0) and (x0<=x2) and (y0<=y2) or
       (x1>=x3) and (y1<=y3) and (x3>=x0) and (y3<=y0) and (x0>=x2) and (y0<=y2) or
       (x1>=x3) and (y1>=y3) and (x3>=x0) and (y3>=y0) and (x0>=x2) and (y0>=y2) or
       (x1>=x3) and (y1<=y3) and (x3>=x0) and (y3<=y0) and (x0>=x2) and (y0<=y2) then variant:=10;
    if (x2<=x0) and (y2<=y0) and (x0<=x1) and (y0<=y1) and (x1<=x3) and (y1<=y3) or
       (x2>=x0) and (y2<=y0) and (x0>=x1) and (y0<=y1) and (x1>=x3) and (y1<=y3) or
       (x2>=x0) and (y2>=y0) and (x0>=x1) and (y0>=y1) and (x1>=x3) and (y1>=y3) or
       (x2>=x0) and (y2<=y0) and (x0>=x1) and (y0<=y1) and (x1>=x3) and (y1<=y3) then variant:=11;
    if (x2<=x1) and (y2<=y1) and (x1<=x0) and (y1<=y0) and (x0<=x3) and (y0<=y3) or
       (x2>=x1) and (y2<=y1) and (x1>=x0) and (y1<=y0) and (x0>=x3) and (y0<=y3) or
       (x2>=x1) and (y2>=y1) and (x1>=x0) and (y1>=y0) and (x0>=x3) and (y0>=y3) or
       (x2>=x1) and (y2<=y1) and (x1>=x0) and (y1<=y0) and (x0>=x3) and (y0<=y3) then variant:=12;
end;

Источник: http://e-olimp.blogspot.com/2013/08/12.html

Felytic, 29 Июля 2015

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

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

+139

1
2
3
4
5
6
7

s:=0; k:=1;
while s<200 do begin
s:=s+3*k;
end;
if s<200 then begin
k:=k+1;
end;

Ничего такого..

MaxLevs, 11 Июня 2015

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

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

+144

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

Unit Web;

interface

uses System, System.Drawing, System.Windows.Forms;

var f: Form;

type
  WebBro = class(Form)
    procedure button1_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Web.WebBro.resources}
    button1: Button;
    webBrowser1: WebBrowser;
    {$include Web.WebBro.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

Procedure FindForm();
begin
  var i:=0;
  while i < Application.OpenForms.Count do
    begin
      f := Application.OpenForms.Item[i];
      if f.Name = 'TwiGen_News' then exit
        else inc(i);
    end;
end;

procedure WebBro.button1_Click(sender: Object; e: EventArgs);
begin
  WebBro.ActiveForm.Hide();
  FindForm;
  f.Show();
end;

end.

//----------------

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms, Web;

var NewsForm: WebBro;

type
  TwiGen_News = class(Form)
    procedure News_Click(sender: Object; e: EventArgs);
  {$region FormDesigner}
  private
    {$resource Unit1.TwiGen_News.resources}
    LogIn: Button;
    News: Button;
    Reg: Button;
    {$include Unit1.TwiGen_News.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure TwiGen_News.News_Click(sender: Object; e: EventArgs);
begin
  TwiGen_News.ActiveForm.Hide();
  NewsForm := new WebBro;
  NewsForm.Show;
end;

end.

Друг писал, но мне он говорил, что переписывал говнокод.
Pascal ABC.NET.

Janycz, 08 Июня 2015

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

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

+142

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

type
  TForm1 = class(TForm)
    IBDB1: TIBDatabase;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    IBTransaction1: TIBTransaction;
    Pochtamt: TIBQuery;
    DSOPS: TDataSource;
    Detal: TIBQuery;
    DSDetal: TDataSource;
    IBQuery1: TIBQuery;
    ListBox1: TListBox;
    N3: TMenuItem;
    RabMesto: TIBQuery;
    DSRabMesto: TDataSource;
    IdIPWatch1: TIdIPWatch;
    DBGrid2: TDBGrid;
    Panel1: TPanel;
    Button2: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Button3: TButton;
    PMOPS: TPopupMenu;
    N6: TMenuItem;
    N7: TMenuItem;
    PMRabMesto: TPopupMenu;
    N9: TMenuItem;
    N10: TMenuItem;
    ListBox2: TListBox;
    Label14: TLabel;
    Label15: TLabel;
    Button6: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button4: TButton;
    Memo1: TMemo;
    Button5: TButton;
    Edit6: TEdit;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    DBMemo1: TDBMemo;
    Label16: TLabel;
//    DBGrid2: TDBGrid;
    TabSheet3: TTabSheet;
    N11: TMenuItem;
    Label18: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    TabSheet5: TTabSheet;
    N12: TMenuItem;
    LSostav: TIBQuery;
    DSLSostav: TDataSource;
    DBGrid4: TDBGrid;
    ListBox3: TListBox;
    PMLSostav: TPopupMenu;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Panel3: TPanel;
    Label22: TLabel;
    Edit2: TEdit;
    Label23: TLabel;
    Edit8: TEdit;
    Label24: TLabel;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    MaskEdit5: TMaskEdit;
    Label25: TLabel;
    Label26: TLabel;
    MaskEdit6: TMaskEdit;
    Label27: TLabel;
    Button7: TButton;
    Button8: TButton;
    Label28: TLabel;
    Edit9: TEdit;
    Label29: TLabel;
    Edit10: TEdit;
    UpDown1: TUpDown;
    Label30: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Label31: TLabel;
    Label32: TLabel;
    Button9: TButton;
    N16: TMenuItem;

Там еще 400 строк объявления компонентов формы и процедур и функций с аналогичными названиями...

BotGovnokot, 08 Июня 2015

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

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

+141

1
2
3
4

function GetArgs(const str:string):string;
begin
  result:=strpas(pathgetargs(pchar(str))); //UB
end;

result:=strpas(pathgetargs(pchar(str))); //UB
Плохой мальчик.

Stertor, 09 Мая 2015

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

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

+143

01
02
03
04
05
06
07
08
09
10
11
12

function CopyEx(s:string; index,count:integer):string;
var
  len,ln:integer;
begin
  ln:=0;
  if index <1 then index:=1;
  len:=length(s);
  ln:=len-count;
  dec(ln);
  dec(len,(index+ln));
  result:=copy(s,index,len);
end;

Stertor, 04 Мая 2015

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

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

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

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

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

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

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

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

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

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

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

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