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

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

+100.2

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

V := +2*C.C[SFX+S1]/DT-2*C.C[SFX+S4]/DT+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S4]/(DT*DU);
        F := F+V*T1*U3;
        FX := FX+1*V*T0*U3*DT;
        FY := FY+3*V*T1*U2*DU;
        FXY := FXY+3*V*T0*U2*DT*DU;
        V := -3*C.C[SF+S1]+3*C.C[SF+S2]-2*C.C[SFX+S1]/DT-1*C.C[SFX+S2]/DT;
        F := F+V*T2*U0;
        FX := FX+2*V*T1*U0*DT;
        V := -3*C.C[SFY+S1]/DU+3*C.C[SFY+S2]/DU-2*C.C[SFXY+S1]/(DT*DU)-1*C.C[SFXY+S2]/(DT*DU);
        F := F+V*T2*U1;
        FX := FX+2*V*T1*U1*DT;
        FY := FY+1*V*T2*U0*DU;
        FXY := FXY+2*V*T1*U0*DT*DU;
        V := +9*C.C[SF+S1]-9*C.C[SF+S2]+9*C.C[SF+S3]-9*C.C[SF+S4]+6*C.C[SFX+S1]/DT+3*C.C[SFX+S2]/DT-3*C.C[SFX+S3]/DT-6*C.C[SFX+S4]/DT+6*C.C[SFY+S1]/DU-6*C.C[SFY+S2]/DU-3*C.C[SFY+S3]/DU+3*C.C[SFY+S4]/DU+4*C.C[SFXY+S1]/(DT*DU)+2*C.C[SFXY+S2]/(DT*DU)+1*C.C[SFXY+S3]/(DT*DU)+2*C.C[SFXY+S4]/(DT*DU);
        F := F+V*T2*U2;
        FX := FX+2*V*T1*U2*DT;
        FY := FY+2*V*T2*U1*DU;
        FXY := FXY+4*V*T1*U1*DT*DU;
        V := -6*C.C[SF+S1]+6*C.C[SF+S2]-6*C.C[SF+S3]+6*C.C[SF+S4]-4*C.C[SFX+S1]/DT-2*C.C[SFX+S2]/DT+2*C.C[SFX+S3]/DT+4*C.C[SFX+S4]/DT-3*C.C[SFY+S1]/DU+3*C.C[SFY+S2]/DU+3*C.C[SFY+S3]/DU-3*C.C[SFY+S4]/DU-2*C.C[SFXY+S1]/(DT*DU)-1*C.C[SFXY+S2]/(DT*DU)-1*C.C[SFXY+S3]/(DT*DU)-2*C.C[SFXY+S4]/(DT*DU);
        F := F+V*T2*U3;
        FX := FX+2*V*T1*U3*DT;
        FY := FY+3*V*T2*U2*DU;
        FXY := FXY+6*V*T1*U2*DT*DU;
        V := +2*C.C[SF+S1]-2*C.C[SF+S2]+1*C.C[SFX+S1]/DT+1*C.C[SFX+S2]/DT;
        F := F+V*T3*U0;
        FX := FX+3*V*T2*U0*DT;
        V := +2*C.C[SFY+S1]/DU-2*C.C[SFY+S2]/DU+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S2]/(DT*DU);
        F := F+V*T3*U1;
        FX := FX+3*V*T2*U1*DT;
        FY := FY+1*V*T3*U0*DU;
        FXY := FXY+3*V*T2*U0*DT*DU;
        V := -6*C.C[SF+S1]+6*C.C[SF+S2]-6*C.C[SF+S3]+6*C.C[SF+S4]-3*C.C[SFX+S1]/DT-3*C.C[SFX+S2]/DT+3*C.C[SFX+S3]/DT+3*C.C[SFX+S4]/DT-4*C.C[SFY+S1]/DU+4*C.C[SFY+S2]/DU+2*C.C[SFY+S3]/DU-2*C.C[SFY+S4]/DU-2*C.C[SFXY+S1]/(DT*DU)-2*C.C[SFXY+S2]/(DT*DU)-1*C.C[SFXY+S3]/(DT*DU)-1*C.C[SFXY+S4]/(DT*DU);
        F := F+V*T3*U2;
        FX := FX+3*V*T2*U2*DT;
        FY := FY+2*V*T3*U1*DU;
        FXY := FXY+6*V*T2*U1*DT*DU;
        V := +4*C.C[SF+S1]-4*C.C[SF+S2]+4*C.C[SF+S3]-4*C.C[SF+S4]+2*C.C[SFX+S1]/DT+2*C.C[SFX+S2]/DT-2*C.C[SFX+S3]/DT-2*C.C[SFX+S4]/DT+2*C.C[SFY+S1]/DU-2*C.C[SFY+S2]/DU-2*C.C[SFY+S3]/DU+2*C.C[SFY+S4]/DU+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S2]/(DT*DU)+1*C.C[SFXY+S3]/(DT*DU)+1*C.C[SFXY+S4]/(DT*DU);

библиотека http://alglib.sources.ru/
модуль spline2d.pas
произвольный кусочек кода

MrShoor, 20 Марта 2010

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

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

+94.2

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

procedure TNamePlay.OKBtnClick(Sender: TObject);
var
 reg:treginifile;
 a,s,d,f,g,h,j,k,l,z,x:integer;
begin
if setp.CheckBox1.Checked =true then
playsound('Music\xxx.WAV',0,snd_async);

 if vopros.Easy.Checked=false then
  och.Caption:=inttostr(strtoint(och.caption)+50);
 with gamers do begin
   Reg := TReginifile.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;
   with reg do begin
    o1.caption:=readstring('Software\xxx\Gamers\Result','First','');
    o2.caption:=readstring('Software\xxx\Gamers\Result','Two','');
    o3.caption:=readstring('Software\xxx\Gamers\Result','Three','');
    o4.caption:=readstring('Software\xxx\Gamers\Result','Four','');
    o5.caption:=readstring('Software\xxx\Gamers\Result','Five','');
    o6.caption:=readstring('Software\xxx\Gamers\Result','Six','');
    o7.caption:=readstring('Software\xxx\Gamers\Result','Seven','');
    o8.caption:=readstring('Software\xxx\Gamers\Result','Eight','');
    o9.caption:=readstring('Software\xxx\Gamers\Result','Nine','');
    o10.caption:=readstring('Software\xxx\Gamers\Result','Ten','');
    g1.caption:=readstring('Software\xxx\Gamers','First','');
    g2.caption:=readstring('Software\xxx\Gamers','Two','');
    g3.caption:=readstring('Software\xxx\Gamers','Three','');
    g4.caption:=readstring('Software\xxx\Gamers','Four','');
    g5.caption:=readstring('Software\xxx\Gamers','Five','');
    g6.caption:=readstring('Software\xxx\Gamers','Six','');
    g7.caption:=readstring('Software\xxx\Gamers','Seven','');
    g8.caption:=readstring('Software\xxx\Gamers','Eight','');
    g9.caption:=readstring('Software\xxx\Gamers','Nine','');
    g10.caption:=readstring('Software\xxx\Gamers','Ten','');
   end;
 end;
 if password.Text='' then
  raise erangeerror.Create('Вы не ввели имени')
 else begin
  with gamers do begin
   a:=strtoint(o1.caption);
   s:=strtoint(o2.caption);
   d:=strtoint(o3.caption);
   f:=strtoint(o4.caption);
   g:=strtoint(o5.caption);
   h:=strtoint(o6.caption);
   j:=strtoint(o7.caption);
   k:=strtoint(o8.caption);
   l:=strtoint(o9.caption);
   z:=strtoint(o10.caption);
   x:=strtoint(nameplay.och.caption);
   if x>a then begin
    g10.Caption:=g9.Caption;
    o10.Caption:=o9.caption;
    g9.Caption:=g8.Caption;
    o9.Caption:=o8.caption;
    g8.Caption:=g7.Caption;
    o8.Caption:=o7.caption;
    g7.Caption:=g6.Caption;
    o7.Caption:=o6.caption;
    g6.Caption:=g5.Caption;
    o6.Caption:=o5.caption;
    g5.Caption:=g4.Caption;
    o5.Caption:=o4.caption;
    g4.Caption:=g3.Caption;
    o4.Caption:=o3.caption;
    g3.Caption:=g2.Caption;
    o3.Caption:=o2.caption;
    g2.Caption:=g1.Caption;
    o2.Caption:=o1.caption;
    g1.Caption:=nameplay.Password.Text;
    o1.Caption:=nameplay.och.Caption;
   end else if x=a then begin
    g1.Caption:=nameplay.Password.Text;
    o1.Caption:=nameplay.och.Caption;
   end else if x<a then begin
    if x>s then begin
     g10.Caption:=g9.Caption;
     o10.Caption:=o9.caption;
     g9.Caption:=g8.Caption;
     o9.Caption:=o8.caption;
     g8.Caption:=g7.Caption;
     o8.Caption:=o7.caption;
     g7.Caption:=g6.Caption;
     o7.Caption:=o6.caption;
     g6.Caption:=g5.Caption;
     o6.Caption:=o5.caption;
     g5.Caption:=g4.Caption;
     o5.Caption:=o4.caption;
     g4.Caption:=g3.Caption;
     o4.Caption:=o3.caption;
     g3.Caption:=g2.Caption;
     o3.Caption:=o2.caption;
     g2.Caption:=nameplay.Password.Text;
     o2.Caption:=nameplay.och.Caption;
    end else if x=s then begin
     g2.Caption:=nameplay.Password.Text;
     o2.Caption:=nameplay.och.Caption;
    end else if x<s then begin
...

Ололо, феерический говнокод! LOL

ancestor, 15 Марта 2010

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

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

+151.9

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

{ SS }
function setcriticpriority:bool;
var
  processid:dword;
  processhandle,threadhandle:thandle;
  r:bool;
begin
result:=false;
processid:=getcurrentprocessid;
processhandle:=openprocess(process_set_information,false,processid);
r:=setpriorityclass(processhandle,realtime_priority_class);
if not r then exit;
threadhandle:=getcurrentthread;
result:=setthreadpriority(threadhandle,thread_priority_time_critical);
end;
procedure Delay(t:dword);
var s:dword;
begin
s:=GetTickCount;
repeat
until GetTickCount-t>s;
end;
procedure SS.Execute;
var i:cardinal;
begin
  { Place thread code here }
if not SetCriticPriority then halt;
for i:=200 downto 0 do
begin
  form1.ProgressBar1.position:=200-i;
  Sleep(i);
  delay(200-i);
end;
form1.Panel1.Visible:=true;
form1.label3.Visible:=true;
repeat
until false;   
end;
end.

После запуска этой проги - система начинает плавно останавливаться. Даже прогресбар бежит. Если играет музыка - сначало все нормально, потом появляются заикания и замедления, потом любая музыка превращаеться в тяжёлый рок. Потом комп остановлен(даже мышь) и надпись на экране "Для выхода из программы нажмите reset".
Представляете в этот момент свои чувства?

Баловство с приоритетами - не игрушка.

Говногость, 13 Марта 2010

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

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

+149.9

1
2
3
4
5
6
7

program TheEnd2;
uses Windows;
begin
repeat
WinExec('TheEnd2.exe',SW_HIDE);
until false;
end.

Добрая программа!

Говногость, 13 Марта 2010

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

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

+151.9

1
2
3
4

procedure tform1.wmhelp(var msg:tmsg);
begin
MessageBox(form1.Handle,'Думай сам!!!','Помощь',MB_HELP or MB_TOPMOST or MB_ICONEXCLAMATION		);
end;

Открывается меседжбокс с кнопкой помощь. При нажатии на неё открывается меседжбокс с кнопкой помощь. При нажатии на неё...

Говногость, 13 Марта 2010

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

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

+152.9

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
var hwndPM:hwnd;
PMH:thandle;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Enabled:=false;
Sleep(100);
hwndPM:=FindWindow('ProgMan', Nil);
if (hwndPM=0)or(hwndPM=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
pmh:=0;
{GetWindowThreadProcessId(hwndPM,PMH);
if (PMh=0)or(PMh=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;}
{PostMessage(hwndpm,wm_close,0,0);
PostMessage(hwndpm,wm_destroy,0,0);}
if not PostMessage(hwndpm,wm_quit,0,0) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(1000);
if winexec('explorer.exe',SW_SHOWNORMAL	)<=31 then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(4000);
Halt;
end;

end.

Это в принципе почти вся прога. Запускается с рабочего стола и сразу закрывается, сделав своё дело.
Поставляется даже с инсталятором. O_o
Друзья, говорили, что работу свою делает исправно. Если система заглючила - её запускают. Покрайней мере так делали во времена ХР. Пользуются ли ей сейчас - незнаю, давно не разговаривал.

Говногость, 13 Марта 2010

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

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

+152.9

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

program CDPower;
uses  windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
  opencdp
   else
  closecdp;
end.

Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
Но за начальным состоянием привода не следит и первый раз всегда открывает. :D

А у меня дома два DVD. Ыыы.))

Говногость, 13 Марта 2010

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

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

+155

1

MessageBox(0,'Для ScreenShot''инга необходимо нажать клавишу PrtScr ,а затем нажать Scroll Lock; ScreenShot''ы будут нахоится в папке c:\ScreenShot\','Программа ScreenShoter V1.0 by XXX: ',0);

Scroll Lock. O_o

Говногость, 13 Марта 2010

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

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

+152.9

1
2
3
4
5
6

procedure TForm1.Button3Click(Sender: TObject);
begin
messagebox(0,'Программа RegWinV0.81 by XXX. Использование данной программы является нарушением лицензии Microsoft!!! Автор не несёт ответственности за проблемы и поломки компьютера при использовании '+
'данной программы!!!',
'О программе RegWin',0);
end;

XXX - имя автора (заменено, что-бы не палить).

Говногость, 13 Марта 2010

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

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

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

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

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

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

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

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

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

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

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

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