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

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

+106

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

function TmainForm1.getLetterFinger( letter: String ): Integer;
begin
  letter := UpperCase( letter );
  if ( letter = 'Ё' ) or ( letter = '1' ) or ( letter = 'Й' ) or
    ( letter = 'Ф' ) or ( letter = 'Я' ) or ( letter = '~' ) or
    ( letter = '!' ) or ( letter = 'Q' ) or ( letter = 'A' ) or
    ( letter = 'Z' ) or ( letter = 'LSHIFT' ) or ( letter = 'LCTRL' ) or
    ( letter = 'TAB' ) or ( letter = 'CAPS' ) or ( letter = 'SHIFT' ) then
    Result := 1;
  if ( letter = '2' ) or ( letter = '@' ) or ( letter = '"' ) or
    ( letter = 'W' ) or ( letter = 'S' ) or ( letter = 'X' ) or
    ( letter = 'Ц' ) or ( letter = 'Ы' ) or ( letter = 'Ч' ) then
    Result := 2;
  if ( letter = '3' ) or ( letter = '№' ) or ( letter = '#' ) or
    ( letter = 'E' ) or ( letter = 'D' ) or ( letter = 'C' ) or
    ( letter = 'У' ) or ( letter = 'В' ) or ( letter = 'С' ) then
    Result := 3;
  if ( letter = '4' ) or ( letter = ';' ) or ( letter = '$' ) or
    ( letter = 'R' ) or ( letter = 'F' ) or ( letter = 'V' ) or
    ( letter = 'К' ) or ( letter = 'А' ) or ( letter = 'М' ) or
    ( letter = '5' ) or ( letter = '%' ) or ( letter = 'Е' ) or
    ( letter = 'П' ) or ( letter = 'И' ) or ( letter = 'Е' ) or
    ( letter = 'T' ) or ( letter = 'G' ) or ( letter = 'B' ) then
    Result := 4;
  if ( letter = 'LSPACE' ) or ( letter = 'LATL' ) then
    Result := 5;
  if ( letter = 'RSPACE' ) or ( letter = 'RATL' ) then
    Result := 6;
  if ( letter = '&' ) or ( letter = '?' ) or ( letter = '7' ) or
    ( letter = 'Y' ) or ( letter = 'U' ) or ( letter = 'H' ) or
    ( letter = 'J' ) or ( letter = 'N' ) or ( letter = 'M' ) or
    ( letter = 'Н' ) or ( letter = 'Г' ) or ( letter = 'Р' ) or
    ( letter = 'О' ) or ( letter = 'Т' ) or ( letter = 'Ь' ) then
    Result := 7;
  if ( letter = '8' ) or ( letter = '*' ) or ( letter = 'Ш' ) or
    ( letter = 'Л' ) or ( letter = 'Б' ) or ( letter = ',' ) or
    ( letter = '<' ) or ( letter = 'K' ) or ( letter = 'I' ) then
    Result := 8;
  if ( letter = '9' ) or ( letter = '(' ) or ( letter = 'O' ) or
    ( letter = 'L' ) or ( letter = '.' ) or ( letter = '>' ) or
    ( letter = 'Щ' ) or ( letter = 'Д' ) or ( letter = 'Ю' ) then
    Result := 9;
  if ( letter = '0' ) or ( letter = ')' ) or ( letter = '-' ) or
    ( letter = '_' ) or ( letter = '+' ) or ( letter = '=' ) or
    ( letter = 'BACKSPACE' ) or ( letter = 'ENTER' ) or
    ( letter = 'RSHIFT' ) or ( letter = 'P' ) or ( letter = '{' ) or
    ( letter = '[' ) or ( letter = '}' ) or ( letter = ']' ) or
    ( letter = ':' ) or ( letter = ';' ) or ( letter = '''' ) or
    ( letter = '"' ) or ( letter = '/' ) or ( letter = '?' ) or
    ( letter = '\' ) or ( letter = '/' ) or ( letter = '?' ) or
    ( letter = '|' ) or ( letter = 'Ж' ) or ( letter = 'Э' ) or
    ( letter = '.' ) or ( letter = ',' ) or ( letter = 'З' ) or
    ( letter = 'Х' ) or ( letter = 'Ъ' ) then
    Result := 10;

end;

Nuff said.

Fai, 30 Июля 2011

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

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

+104

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
86
87
88
89
90

procedure drawGird( var image1: TImage; needAxisLines: Boolean = True );
var
  xP, yP: Integer;
  xC, yC: Double;
  h, w, tx, ty: Integer;
  Text: String;
begin
  image1.Canvas.FillRect( image1.ClientRect );
  accuracy := 1 / cellSize;
  image1.Canvas.Brush.Style := bsClear;

  xC := p2cX( 0 );
  while forC( xC, p2cX( image1.Width ), accuracy ) do
    if floor( xC * cellSize ) mod cellSize = 0 then
    begin
      xP := c2pX( xC );
      image1.Canvas.Pen.Color := clSilver;
      image1.Canvas.MoveTo( xP, 0 );
      image1.Canvas.LineTo( xP, image1.Height );

      if ( needaxislines ) and ( abs( xC ) > 0.5 ) and
        ( xP > 30 ) and ( xP < image1.Width - 30 ) then
      begin
        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.MoveTo( xP, c2pY( -0.5 ) );
        image1.Canvas.LineTo( xP, c2pY( 0.5 ) );
      end;
    end;

  yC := p2cY( 0 );
  while forC( yC, p2cY( image1.Height ), accuracy ) do
    if floor( yC * cellSize ) mod cellSize = 0 then
    begin
      yP := c2pY( yC );
      image1.Canvas.Pen.Color := clSilver;
      image1.Canvas.MoveTo( 0, yP );
      image1.Canvas.LineTo( image1.Width, yP );

      if ( needaxislines ) and ( abs( yC ) > 0.5 ) and
        ( yP > 30 ) and ( yP < image1.Height - 30 ) then
      begin
        image1.Canvas.Pen.Color := clBlack;
        image1.Canvas.MoveTo( c2pX( -0.5 ), yP );
        image1.Canvas.LineTo( c2pX( 0.5 ), yP );
      end;
    end;

  xC := p2cX( 0 );
  while forC( xC, p2cX( image1.Width ), accuracy ) do
    if floor( xC * cellSize ) mod cellSize = 0 then
    begin
      xP := c2pX( xC );

      if ( needaxislines ) and ( abs( xC ) > 1.5 ) and
        ( xP > 30 ) and ( xP < image1.Width - 30 ) then
      begin
        image1.Canvas.Pen.Color := clBlack;

        Text := IntToStr( floor( xC ) );
        h := image1.Canvas.TextHeight( Text ) div 2;
        w := image1.Canvas.TextWidth( Text ) div 2;

        image1.Canvas.TextOut( xP - w, c2pY( -0.5 ) + ( h + 3 ) *
          ( ( floor( abs( xC ) ) mod ( ( ( w * 2 + 8 ) div cellSize ) +
          1 ) ) ), Text );

      end;
    end;

  yC := p2cY( 0 );
  while forC( yC, p2cY( image1.Height ), accuracy ) do
    if floor( yC * cellSize ) mod cellSize = 0 then
    begin
      yP := c2pY( yC );
      if ( needaxislines ) and ( abs( yC ) > 1.5 ) and
        ( yP > 30 ) and ( yP < image1.Height - 30 ) then
      begin
        image1.Canvas.Pen.Color := clBlack;

        Text := IntToStr( floor( yC ) );
        h := image1.Canvas.TextHeight( Text ) div 2;
        w := image1.Canvas.TextWidth( Text ) div 2;

        image1.Canvas.TextOut( c2pX( -0.5 ) - w * 2 - 2, yP - h, Text );
      end;
    end;

  image1.Canvas.Brush.Style := bsSolid;

end;

Сотня строк кода, для того, чтобы нарисовать сетку.

Fai, 30 Июля 2011

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

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

+146

1
2
3
4
5
6
7

function factorial( n: Integer ): Int64;
begin
  if n=0 then Result := 1
  else             Result := n*factorial(n-1);
end;

factorial(-1); //<--ЗАЦИКЛИВАЕТ

=D

Fai, 29 Июля 2011

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

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

+147

1
2
3
4
5
6

procedure TForm1.GoBtnClick(Sender: TObject);
BEGIN
 If GoBtn.Enabled = false then Exit;
 GoBtn.Enabled := false;
// Some code
END;

Вот что бывает, когда не продумаешь весь проект до конца.

Govnocoder#0xFF, 28 Июля 2011

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

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

+155

01
02
03
04
05
06
07
08
09
10
11

procedure TForm1.Image1Click(Sender: TObject);
begin
 sPictureName := Label2.Caption;
 Form2.Show;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 sPictureName := Label3.Caption;
 Form2.Show;
end;

Знаю конечно что уныло, но по моему делать одну процедуру из-за этого слишком геморройно. С тем же массивом из 2-х элементов хотя бы. Говно ли?

Govnocoder#0xFF, 26 Июля 2011

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

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

+94

1
2
3
4
5
6
7

var s:string;
begin
cs.Active:=true; //Коннектимся
if cs.Socket.Connected=true then begin //Если подключились то
memo1.lines.add('Соединение установленно...'); //пишим в memo
end else //в противном случае пишим это
memo1.lines.add('Соединение неустановленно...'); //<--вот это :)

>теперь у формы в событии OnGreate пишим
Это капец....
http://forum.hackforce.ru/thread1685.html#post405879

Govnocoder#0xFF, 15 Июля 2011

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

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

+154

01
02
03
04
05
06
07
08
09
10

type
число=ineger;
плюс_число=word;
эконом=shortint;
плюс_эконом=byte;
моар=longint;
граммар=real;
йцукен=char;
йцуукеен=string;
холивар=boolean;

dos, 15 Июля 2011

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

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

+126

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

uses
crt;
var
  chasov,
 minutov,
sekundov :byte;
tekushchiy_sekund:word;
begin
clrscr;
write('   chasov ');
read(     chasov);
if chasov=9
           then
               begin
                    clrscr;
                    halt;
               end;
write('  minutov ');
read(    minutov);
write(' sekundov ');
read(   sekundov);
clrscr;
for tekushchiy_sekund:=1
to sekundov+60*minutov+3600*chasov do
  begin
       if keypressed then
                         if readkey=#27
                                       then halt;
       delay(50000);
  end;
sound(300);
readkey;
nosound;
end.

УГАДАЙТЕ

dos, 11 Июля 2011

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

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

+147

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99

говно

говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно


говно

говно

говно

говно

maga_nanaev, 09 Июля 2011

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

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

+98

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

function Prime (N: longword): boolean;
var
	i : longword;
	Max : single;
begin
	if N = 2
		then Prime := true
	else if (N <= 1) or (N mod 2 = 0)
		then Prime := false
	else begin
		Prime := true;
		i := 3; Max := sqrt(N);
		while i <= Max do begin
			if N mod i = 0 then begin
				Prime := false; 
				exit
			end;
			i := i + 2
		end
	end
end;

var
	a, i : longword;

begin
	read(a);
	for i := 2 to a do
		if Prime(i)
			then writeln(i, ' is a prime number');
end.

Нахождение простых чисел.

sunshinelf, 06 Июля 2011

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

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

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

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

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

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

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

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

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

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

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

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