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

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

+106.2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18

/////////////////////////// удаление спецсимволов
Prbl:=' ';
WS_h:=AnsiReplaceText(WS_h, Chr(13), Prbl);
WS_h:=AnsiReplaceText(WS_h, Chr(10), Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '           ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '          ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '         ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '        ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '       ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '      ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '     ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '    ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '   ', Prbl);
WS_h:=AnsiReplaceText(WS_h, '  ', Prbl);
/////////////////////////////////////////////////
WS_h:=AnsiReplaceText(WS_h, '<span class=SpellE>', '');
/////////////////////////// удаление спецсимволов

Красиво оформленный код - залог успеха!

Temnenkov, 09 Апреля 2010

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

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

+110

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

Function IsBigLet(Let: String): Boolean;
var r: bool;
begin
r:=false;
if pos('Й',Let)>0 then r:=true;
if pos('Ц',Let)>0 then r:=true;
if pos('У',Let)>0 then r:=true;
if pos('К',Let)>0 then r:=true;
if pos('Е',Let)>0 then r:=true;
if pos('Н',Let)>0 then r:=true;
if pos('Г',Let)>0 then r:=true;
if pos('Ш',Let)>0 then r:=true;
if pos('Щ',Let)>0 then r:=true;
if pos('З',Let)>0 then r:=true;
if pos('Х',Let)>0 then r:=true;
if pos('Ф',Let)>0 then r:=true;
if pos('Ы',Let)>0 then r:=true;
if pos('В',Let)>0 then r:=true;
if pos('А',Let)>0 then r:=true;
if pos('П',Let)>0 then r:=true;
if pos('Р',Let)>0 then r:=true;
if pos('О',Let)>0 then r:=true;
if pos('Л',Let)>0 then r:=true;
if pos('Д',Let)>0 then r:=true;
if pos('Ж',Let)>0 then r:=true;
if pos('Э',Let)>0 then r:=true;
if pos('Я',Let)>0 then r:=true;
if pos('Ч',Let)>0 then r:=true;
if pos('С',Let)>0 then r:=true;
if pos('М',Let)>0 then r:=true;
if pos('И',Let)>0 then r:=true;
if pos('Т',Let)>0 then r:=true;
if pos('Б',Let)>0 then r:=true;
if pos('Ю',Let)>0 then r:=true;
Result:=r;
end;

Немножко индусского кода!

Temnenkov, 09 Апреля 2010

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

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

+82.6

1

if IntToStr(n) = '2' then

чудо-программисты, еклмн

timurrv, 07 Апреля 2010

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

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

+102

1
2
3
4
5
6

function TicksBetween(t1, t2 : dword) : dword;
begin
	if t2 > t1
	then Result:=t2 - t1 + 1
	else Result:=dword(-1) - t1 + t2 + 1;
end;

Никогда не пишите с бодуна!

whiskey, 01 Апреля 2010

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

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

+91.2

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

{  Длинная арифметика. 
    [0] - длина числа
    [1..1000] - цифры в системе с основанием 10000, записанные в обратном порядке
}
type TLong = array[0..1000] of integer;

procedure Add(A,B:TLong;var C:TLong);
{Здесь идет процедура сложения в столбик - ничего интересного}
procedure MulByShort(A:TLong;B:integer;var C:TLong); {умножение длинного на короткое}
    var i:integer;
begin
    initByZero(C);{инициализация C нулями}
    for i:=1 to B do Add(C,A,C);
end;

Найдено в решении олимпиадной задачи на FreePascal. Обратите внимание на особо остроумный алгоритм умножения: надо же до такого додуматься. Также интересно, чем мотивирована передача массивов по значению.

frp, 28 Марта 2010

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

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

+97.4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

if (aDebtor.Banknummer = '') then
    begin
        s := s + ',""'; {Banknummer}
    end
    else
    begin
        s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Banknummer]))+'"'; {Banknummer}
    end;
    if (aDebtor.Gironummer = '') then
    begin
        s := s + ',""'; {postbankrekening}
    end
    else
    begin
        s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Gironummer]))+'"'; {postbankrekening}
    end;

Гениально... А можно мне такой же травы как у этих голландцев?

И такое повторяется еще много раз.

Drone, 26 Марта 2010

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

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

+104.4

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

procedure TForm1.vibor_chiselClick(Sender: TObject);
begin
case vibor_chisel.ItemIndex of
   0: begin
      procedure TForm1.But_sortClick(Sender: TObject);
       begin
       n:=vib_el_v.value;
       setlength(massiv,n);
        for i:=0 to n-1 do
        massiv[i]:=strtoint(stringgrid1.Cells[i,0]);
         case vibor_sortirovki.itemindex of
         0: begin
             sortpuzirek(n,massiv);
             for i:=1 to n do
             stringgrid1.Cells[i,0]:=inttostr(massiv[i]);
            end;
         1: begin
            end;
         2: begin
            end;
         end;
        end;
       end;
   1: begin
       procedure TForm1.But_sortClick(Sender: TObject);
       begin
       n:=vib_el_v.value;
       setlength(mas_siv,n);
        for i:=0 to n-1 do
        mas_siv[i]:=strtofloat(stringgrid1.Cells[i,0]);
         case vibor_sortirovki.itemindex of
         0: begin
             sort_puzirek(n,mas_siv);
             for i:=1 to n do
             stringgrid1.Cells[i,0]:=floattostr(mas_siv[i]);
            end;
         1: begin
            end;
         2: begin
            end;
         end;
        end;
       end;
      end;
  end;
end;

Орали всей группой. А вы часто описываете процедуры в case of ?)
PS
Работает.)

Grivus, 22 Марта 2010

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

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

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