Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:='''';
b:='{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:=';
a:='writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.';
writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.
Это код-шутка - как раз для вечера пятницы :)
можно запустить программу, скопировать то, что выведется на экран в Delphi, скомпилировать, запустить... и так до бесконечности.
автора не знаю, есть еще 1 пример кода.
ctm,
22 Октября 2010
+112
procedure TfmConf_PA30.btnWritePAClick(Sender: TObject);
begin
if WriteByVariable(11,lbLog6) then begin
if WriteByVariable(12,lbLog6) then begin
if WriteByVariable(13,lbLog6) then begin
if WriteByVariable(14,lbLog6) then begin
if WriteByVariable(15,lbLog6) then begin
if WriteByVariable(16,lbLog6) then begin
if WriteByVariable(17,lbLog6) then begin
if WriteByVariable(18,lbLog6) then begin
if WriteByVariable(19,lbLog6) then begin
if WriteByVariable(20,lbLog6) then begin
if WriteByVariable(21,lbLog6) then begin
if WriteByVariable(22,lbLog6) then begin
if WriteByVariable(23,lbLog6) then begin
if WriteByVariable(24,lbLog6) then begin
if WriteByVariable(25,lbLog6) then begin
if WriteByVariable(26,lbLog6) then begin
if WriteByVariable(27,lbLog6) then begin
if WriteByVariable(28,lbLog6) then begin
if WriteByVariable(29,lbLog6) then begin
if WriteByVariable(30,lbLog6) then begin
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (30)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (29)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (28)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (27)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (26)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (25)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (24)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (23)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (22)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (21)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (20)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (19)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (18)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (17)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (16)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (15)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (14)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (13)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (12)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (11)');
end;
может циклом надо было? :)
for i:=11 to 40 do...
pethead,
22 Октября 2010
+97
Program zadacha;
var
i,chislo,x,y,m,n:integer;
begin
while i<1 do begin
for x:=0 to chislo do begin
for y:=0 to chislo do begin
for m:=0 to chislo do begin
for n:=0 to chislo do begin
if (chislo=x*x*x+y*y*y) and (chislo=m*m*m+n*n*n) and (x<>m) and (x<>y) and (y<>m) and (y<>n) then i:=1 else chislo:=chislo+1;
end;
end;
end;
end;
end;
Writeln(chislo);
end.Вот так находят "минимальное натуральное число представимое двумя различными способами в виде суммы кубов двух натуральных чисел"
kolhoz,
20 Октября 2010
+144
var boll : boolean;
//много говна
If boll = true then boll := false
else boll := true;Увидел как-то у одного студента. Кодомартышковость обыкновенная
ZLOvar,
18 Октября 2010
+144
program test;
var i : boolean;
begin
i := true;
if i then while true do Writeln('WAR IS TRUE!!!')
else Writeln('FALSE');
end.Pascal...
Мартин,
17 Октября 2010
+144
Program upra;
var s:string;
i:integer;
begin
writeln ('vvesti stroku');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='a' then
s:='*';
writeln(k);
endPascal. Меняем символ "а" на звёздочку. Школота детектед!
ZLOvar,
13 Октября 2010
+90
if DirectoryExists(ExtractFilePath(Application.ExeName)+'Folder')=false then
CreateDir(ExtractFilePath(Application.ExeName)+'Folder');
Мартин,
09 Октября 2010
+111
procedure TForm1.Timer1Timer(Sender: TObject);
function UpTime(sf:string):boolean;
var time:string;
t:textfile;
begin
if form1.MaskEdit5.Text<>'' then
if Findmas_u(255,0,sf)<0 then
begin UpTime:=false;exit;end;
if not FileExists(sf) then
begin UpTime:=false;exit;end;
time:=DateUpdating_u(sf);
if time<>'' then
begin
try
assignfile(t,ExtractFilePath(form1.MaskEdit1.Text)+ChangeFileExt(ExtractFileName(sf),'.tim'));
rewrite(t);
writeln(t,time);
closefile(t);
except UpTime:=false;exit;end;
end;
UpTime:=true;
end;
var x,y,i1,i2,i3,xf,yf:integer;
sf,id,ff:string;
b:boolean;
begin
form1.Timer1.Enabled:=not form1.Timer1.Enabled;
try
form1.ProgressBar1.Position:=0;
application.ProcessMessages;
masopt_u(254,x,y);
if form1.MaskEdit1.Text='' then
form1.BitBtn3.Click else
if (DateUpdating_u(form1.MaskEdit1.Text)<>DateUpdatingMas_u(254))or(y>0) then
begin
if form1.MaskEdit3.Text<>'' then
if form1.CheckBox1.Checked then
sf:=TJ7PassAutentikR_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
sf:=TJ7PassAutentik_u(form1.MaskEdit3.Text,form1.MaskEdit2.Text) else
sf:=form1.MaskEdit2.Text;
if not OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3) then
begin
DeleteFile(ChangeFileExt(form1.MaskEdit1.Text,'.tmp'));
form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Превышен интервал времени доступа.');
OpenOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked),3);
end;
i1:=TJ7ReadMas_u(254,form1.MaskEdit1.Text,sf);
CloseOneNu_u(form1.MaskEdit1.Text,'read:PSQL-Srv'+booltostr(form1.RadioButton2.Checked));
if (i1<>0)and(i1<>11) then
begin
form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+') Ошибка чтения команд, код: '+inttostr(i1)+'.');
closemas_u(254);
initmas_u(254,2,0);
TJ7CreateMas_u(254,form1.MaskEdit1.Text,sf,false,false,false,false,false);
closemas_u(254);
form1.Timer1.Enabled:=not form1.Timer1.Enabled;
exit;
end;
masopt_u(254,x,y);id:='';
if not form1.RadioButton1.Checked then
begin
for i1:=0 to y-1 do
if (masr_u(254,1,i1)<>'') then
if ((form1.RadioButton2.Checked)and(ord(masr_u(254,1,i1)[1])mod 2=0))or
((form1.RadioButton3.Checked)and(ord(masr_u(254,1,i1)[1])mod 2<>0))then
begin id:=masr_u(254,1,i1);break;end;
end else id:=masr_u(254,1,0);
if (id='')or(y=0) then
begin
if RTime_u(strtodatetime(DateUpdatingMas_u(254)),date+time)<1200 then
closemas_u(254);
form1.Timer1.Enabled:=not form1.Timer1.Enabled;
exit;
end;
if y>0 then form1.StaticText13.Caption:='в обработке';
application.ProcessMessages;
form1.RichEdit1.Lines.Add('('+datetostr(date)+' '+timetostr(time)+'/Старт):'+id);
if form1.CheckBox3.Checked then
begin
masopt_u(255,xf,yf);
ff:=ExtractFilePath(form1.MaskEdit1.Text)+id+'.tj7';
masw_u(255,0,yf,ff);
end;
application.ProcessMessages;
if form1.MaskEdit6.Text<>'' then
PsevdoSQL_u(form1.MaskEdit6.Text);
for i1:=0 to y-1 do
if masr_u(254,1,i1)=id then
begin
if form1.CheckBox3.Checked then
begin
i2:=pos('TId',masr_u(254,0,i1));
if i2>0 then
masw_u(254,0,i1,copy(masr_u(254,0,i1),1,i2-1)+id+copy(masr_u(254,0,i1),i2+3,255));
end;
// *** И дальше в том же духеАвтор сего поделия, кусок которого приведён выше (привёл бы полностью, но там 160 строк), называет ЭТО "сервером распределённых вычислений" и "самой прогрессивной СУБД в мире, которая лучше всех этих ваших ораклов. При этом автор вроде как и не школьник...
Vinny_the_POOH,
17 Сентября 2010
+113
program n1;
label one, two;
begin
asm
mov bh,1
mov bl,1
mov dx,0
mov ax,0
one: inc dx
mov cl,bl
add bl,bh
mov bh,cl
cmp dx,6
jne one
mov al,bl
two: inc dx
mov cl,bl
add bl,bh
mov bh,cl
cmp dx,10
jne two
add al,bl
end;
end.Так в КубГТУ на кафедре АПП изучают ассемблер.
xyz,
14 Сентября 2010
+121
const
Koeff: array [TTPKind] of record //
BC: integer;
Border: array [0 .. 4] of extended;
C: array [0 .. 3, 0 .. 10] of extended;
end = (
(BC: 4; Border: (-0.226, 1.923, 11.361, 19.739, 21.103); C: (
(0, 1.8891380E2, -9.3835290E1, 1.3068619E2, -2.2703580E2, 3.5145659E2, -3.8953900E2, 2.8239471E2, -1.2607281E2, 3.1353611E1, -3.3187769),
(1.334584505E1, 1.472644573E2, -1.844024844E1, 4.031129726, -6.249428360E-1, 6.468412046E-2, -4.458750426E-3, 1.994710149E-4, -5.313401790E-6, 6.481976217E-8, 0),
(-8.199599416E1, 1.553962042E2, -8.342197663, 4.279433549E-1, -1.191577910E-2, 1.492290091E-4, 0, 0, 0, 0, 0),
(3.406177836E4, -7.023729171E3, 5.582903813E2, -1.952394635E1, 2.560740231E-1, 0, 0, 0, 0, 0, 0)
) // R
),
(BC: 4; Border: (-0.235, 1.874, 10.332, 17.536, 18.694); C: (
(0, 1.84949460E2, -8.00504062E1, 1.02237430E2, -1.52248592E2, 1.88821343E2, -1.59085941E2, 8.23027880E1, -2.34181944E1, 2.79786260, 0),
(1.291507177E1, 1.466298863E2, -1.534713402E1, 3.145945973, -4.163257839E-1, 3.187963771E-2, -1.291637500E-3, 2.183475087E-5, -1.447379511E-7, 8.211272125E-9, 0),
(-8.087801117E1, 1.621573104E2, -8.536869453, 4.719686976E-1, -1.441693666E-2, 2.081618890E-4, 0, 0, 0, 0, 0),
(5.333875126E4, -1.235892298E4, 1.092657613E3, -4.265693686E1, 6.247205420E-1, 0, 0, 0, 0, 0, 0)
) // S
),
(BC: 2; Border: (0.291, 2.431, 13.820, 0, 0); C: (
(9.8423321E1, 6.9971500E2, -8.4765304E2, 1.0052644E3, -8.3345952E2, 4.5508542E2, -1.5523037E2, 2.9886750E1, -2.4742860, 0, 0),
(2.1315071E2, 2.8510504E2, -5.2742887E1, 9.9160804, -1.2965303, 1.1195870E-1, -6.0625199E-3, 1.8661696E-4, -2.4878585E-6, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // B
),
(BC: 3; Border: (-8.095, 0, 42.919, 69.553, 0); C: (
(0, 1.9528268E1, -1.2286185, -1.0752178, -5.9086933E-1, -1.7256713E-1, -2.8131513E-2, -2.3963370E-3, -8.3823321E-5, 0, 0),
(0, 1.978425E1, -2.001204E-1, 1.036969E-2, -2.549687E-4, 3.585153E-6, -5.344285E-8, 5.099890E-10, 0, 0, 0),
(-3.11358187E3, 3.00543684E2, -9.94773230, 1.70276630E-1, -1.43033468E-3, 4.73886084E-6, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // J
),
(BC: 2; Border: (-5.603, 0, 20.872, 0, 0); C: (
(0, 2.5949192E1, -2.1316967E-1, 7.9018692E-1, 4.2527777E-1, 1.3304473E-1, 2.0241446E-2, 1.2668171E-3, 0, 0, 0),
(0, 2.592800E1, -7.602961E-1, 4.637791E-2, -2.165394E-3, 6.048144E-5, -7.293422E-7, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // T
),
(BC: 2; Border: (-8.825, 0, 76.373, 0, 0); C: (
(0, 1.6977288E1, -4.3514970E-1, -1.5859697E-1, -9.2502871E-2, -2.6084314E-2, -4.1360199E-3, -3.4034030E-4, -1.1564890E-5, 0, 0),
(0, 1.7057035E1, -2.3301759E-1, 6.5435585E-3, -7.3562749E-5, -1.7896001E-6, 8.4036165E-8, -1.3735879E-9, 1.0629823E-11, -3.2447087E-14, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // E
),
(BC: 3; Border: (-5.891, 0, 20.644, 54.886, 0); C: (
(0, 2.5173462E1, -1.1662878, -1.0833638, -8.9773540E-1, -3.7342377E-1, -8.6632643E-2, -1.0450598E-2, -5.1920577E-4, 0, 0),
(0, 2.508355E1, 7.860106E-2, -2.503131E-1, 8.315270E-2, -1.228034E-2, 9.804036E-4, -4.413030E-5, 1.057734E-6, -1.052755E-8, 0),
(-1.318058E2, 4.830222E1, -1.646031, 5.464731E-2, -9.650715E-4, 8.802193E-6, -3.110810E-8, 0, 0, 0, 0),
(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
) // K
),
// тут ещё 6 типов было. (Пожалуйста, ограничьтесь 4000 символами.)
);Фрагмент типичной программы для научных расчётов
TarasB,
14 Сентября 2010
Follow us!