- 1
- 2
- 3
symb("4")begin Хочешь узнать кто посещал твою страницу end; http://reserpo.my1.ru/index.html?opi=!random!
$#4629447380677#$
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+83
symb("4")begin Хочешь узнать кто посещал твою страницу end; http://reserpo.my1.ru/index.html?opi=!random!
$#4629447380677#$
Кривой спамбот на паскале кривоспамит в пабликах
+91
if IsThemeActive then
begin
ThemePartName := 'TAB';
ThemeHandle := OpenThemeData(TabSheetQA.Handle, PWideChar(ThemePartName));
if ThemeHandle <> 0 then
begin
ImageClipRect := ImageForBkColorRecalc.ClientRect;
DrawThemeBackground(ThemeHandle, ImageForBkColorRecalc.Canvas.Handle,
TABP_BODY, 0, ImageForBkColorRecalc.ClientRect, @ImageClipRect);
BkColor := ImageForBkColorRecalc.Canvas.Pixels[0, 0];
end;
Exit;
end;
Надыбано в компоненте Delphi. Код получает начальный цвет градиента панелей Таб-контрола при включенных стилях XP и Aero. Для этого рисует на скрытом TImage его небольшой фрагмент и выдирает угловой пиксель.
+94
for k:=1 to 5 do begin
new (z2);
z2^.pole1:=k;
z2^.pole2:=z1;
z1:=z2;
end;
for k:=1 to 5 do begin
z2^.pole3:=z1;
z1:=z2;
z2:=z2^.pole2;
end;
Вот так в нашем универе учат создавать двунаправленые массивы. Код кстати не только принципиально индусский, но еще и не рабочий.
+95
procedure TEditor.cbReverseClick(Sender: TObject);
begin
T.Reversed := not T.Reversed;
Show;
end;
Вместо
T.Reversed := cbReverse.Checked;
Интересно, может ли это создать баг?
+107
begin
writeln('Enter 1st number');
readln(a);
writeln('Enter 2st number');
readln(b);
writeln('Enter 3st number');
readln(c);
if a = b then if a = c then if b = c then ;
writeln('numbers are');
if a > b then if a = c then if b < c then
writeln('a Equally c and it is more b') ;
if a = b then if a > c then if b > c then
writeln('a Equally b and it is more c') ;
if a < b then if a < c then if b = c then
writeln('b Equally c and it is more a') ;
if a > b then if a > c then if b > c then
writeln('a it is more ') ;
if a > b then if a > c then if b < c then
writeln('a it is more ') ;
if a > b then if a > c then if b = c then
writeln('a it is more ') ;
if a < b then if a = c then if b > c then
writeln('b it is more ') ;
if a < b then if a > c then if b > c then
writeln('b it is more ') ;
if a < b then if a < c then if b > c then
writeln('b it is more ') ;
if a = b then if a < c then if b < c then
writeln('c it is more ') ;
if a > b then if a < c then if b < c then
writeln('c it is more ') ;
if a < b then if a < c then if b < c then
writeln('c it is more ') ;
Такое выдал один из моих учеников в 10м классе после того, как отказался учится рисовать блок-схемы и сказал, что сразу сможет писать. Задание заключалось в том, чтобы программа выводила большее из 3х введенных пользователем чисел.
+141
// строка добавлена, чтобы сраный парсер говнокода не сжирал пробелы, этого в коде не было
end;
end;
end;
end;
end;
end;
Увидел в своём коде.
Очень сложный алгоритм.
+84
{$N+}
const
n=5;
n2=2*n;
type tRow=array[1..n] of 0..1;
rRow=array[1..n] of 0..1;
type tMatrix=array[1..n,1..n2] of double;
wMatrix=array[1..n,1..n2] of double;
procedure NewMatrix(var a: tMatrix; n,n2: word; x: double); var i,j: word;
begin
randomize;
for i:=1 to n do
for j:=1 to n2 do
a[i,j]:=-2*x+random(Round(4*x));
end;
procedure ProcMatrix(var a: tMatrix; n,n2: word; x: double; var b: tRow); var i,j: word;
begin
for i:=1 to n do
for j:=1 to n2 do
if a[i,j]<=x then b[i]:=1 else
begin
b[i]:=0;
break;
end;
end;
procedure WriteMatrix(var a: tMatrix; n,n2: word); var i,j: word;
begin
for i:=1 to n do
begin
for j:=1 to n2 do write(a[i,j]:6:2);
writeln('');
end;
end;
procedure WriteRow(var b: tRow; n: word); var i: word;
begin
for i:=1 to n do write(b[i]:2);
writeln('');
end;
procedure NewMatrix1(var q: wMatrix; n,n2: word; x: double); var i,j: word;
begin
randomize;
for i:=1 to n do
for j:=1 to n2 do
q[i,j]:=-1.1*x+random(Round(4*x));
end;
procedure ProcMatrix1(var q: wMatrix; n,n2: word; x: double; var e: rRow); var i,j: word;
begin
for i:=1 to n do
for j:=1 to n2 do
if q[i,j]<=x then e[i]:=1 else
begin
e[i]:=0;
break;
end;
end;
procedure WriteMatrix1(var q: wMatrix; n,n2: word); var i,j: word;
begin
for i:=1 to n do
begin
for j:=1 to n2 do write(q[i,j]:6:2);
writeln('');
end;
end;
procedure WriteRow1(var e: rRow; n: word); var i: word;
begin
for i:=1 to n do write(e[i]:2);
writeln('');
end;
var
bRow: tRow;
eRow: rRow;
aMatrix: tMatrix;
qMatrix: wMatrix;
x: double;
begin
write('‚ўҐ¤ЁвҐ ўҐйҐб⢥®Ґ зЁб«® е: ');
readln(x);
NewMatrix(aMatrix,n,n2,x);
writeln('Њ ваЁж ',n,'x',n2,' 楫ле зЁбҐ« бд®а¬Ёа®ў ўв®¬ вЁзҐбЄЁ:');
WriteMatrix(aMatrix,n,n2);
NewMatrix1(qMatrix,n,n2,x);
writeln('Њ ваЁж ',n,'x',n2,' 楫ле зЁбҐ« бд®а¬Ёа®ў ўв®¬ вЁзҐбЄЁ:');
WriteMatrix1(qMatrix,n,n2);
ProcMatrix(aMatrix,n,n2,x,bRow);
writeln('Њ ваЁж ®Ўа Ў®в . Џ®б«Ґ¤®ў ⥫м®бвм b[1]..b[',n,'] бд®а¬г«Ёа®ў ');
WriteRow(bRow,n);
ProcMatrix1(qMatrix,n,n2,x,eRow);
writeln('Њ ваЁж ®Ўа Ў®в . Џ®б«Ґ¤®ў ⥫м®бвм b[1]..b[',n,'] бд®а¬г«Ёа®ў ');
WriteRow1(eRow,n);
writeln('Ќ ¦¬ЁвҐ ENTER');
readln;
end.
Процедуры.
Даны натуральное число n, действительное число x и две действительные матрицы размера nx2n. Получить последовательность b1,..., bn из нулей и единиц, где bi =1, если элементы i-ой строки матрицы не превосходят x и bi =0 в противном случае.
+81
{ ... }
writeln('vvedite indexi "X" i "=" 1-ogo uravneniay');
writeln('x1');
readln(x11);
writeln('x2');
readln(x12);
writeln('x3');
readln(x13);
writeln('x4');
readln(x14);
writeln('=');
readln(x15);
writeln('vvedite indexi "X" i "=" 2-ogo uravneniay');
writeln('x1');
readln(x21);
writeln('x2');
readln(x22);
writeln('x3');
readln(x23);
writeln('x4');
readln(x24);
writeln('=');
readln(x25);
writeln('vvedite indexi "X" i "=" 3-ogo uravneniay');
writeln('x1');
readln(x31);
writeln('x2');
readln(x32);
writeln('x3');
readln(x33);
writeln('x4');
readln(x34);
writeln('=');
readln(x35);
writeln('vvedite indexi "X" i "=" 4-ogo uravneniay');
writeln('x1');
readln(x41);
writeln('x2');
readln(x42);
writeln('x3');
readln(x43);
writeln('x4');
readln(x44);
writeln('=');
readln(x45);
{веселье - вот зачем это все нужно было))}
m2[1,1]:=x11;
m2[1,2]:=x12;
m2[1,3]:=x13;
m2[1,4]:=x14;
m2[2,1]:=x21;
m2[2,2]:=x22;
m2[2,3]:=x23;
m2[2,4]:=x24;
m2[3,1]:=x31;
m2[3,2]:=x32;
m2[3,3]:=x33;
m2[3,4]:=x34;
m2[4,1]:=x41;
m2[4,2]:=x42;
m2[4,3]:=x43;
m2[4,4]:=x44;
{ ... }
Классика ввода матриц. Опять. С киберфорума. http://www.cyberforum.ru/turbo-pascal/thread425906.html#post2374414
+137
// ...
if not Length(username) in [6..24] then
raise Exception.Create('Длина ника должна находиться в пределах от 6 до 24 символов');
ну прям как N ∈[6; 24]
+105
program tetris;
uses
crt;
var
ss,nn,x,y,pus,a,b,c,d,lin,rlin:integer;
st:array[1..12] of array[1..22] of integer;
procedure k(x,y:integer);
{ђЁб㥬 Єў а¤а вЁЄ}
begin
gotoxy(x*2+27,25-y);
if ss=0 then write(' ');
if ss=1 then write('[]');
if ss=2 then write(chr(177),chr(177));
if (ss=3) and (st[x,y]>0) then pus:=1;
if ss=4 then st[x,y]:=1;
gotoxy(1,1);write(' ');
end;
procedure fig(x,y,n,s:integer);
{ђЁб㥬 дЁЈгаг}
begin
if s=3 then pus:=0;
ss:=s; k(x,y);
if n=1 then begin k(x+1,y);k(x,y-1);k(x+1,y-1) end;
if n=2 then begin k(x-1,y);k(x+1,y);k(x+2,y) end;
if n=3 then begin k(x,y+1);k(x,y-1);k(x,y-2) end;
if n=4 then begin k(x+1,y);k(x-1,y);k(x-1,y+1) end;
if n=5 then begin k(x,y+1);k(x+1,y+1);k(x,y-1) end;
if n=6 then begin k(x-1,y);k(x+1,y);k(x+1,y-1) end;
if n=7 then begin k(x,y+1);k(x,y-1);k(x-1,y-1) end;
if n=8 then begin k(x-1,y);k(x+1,y);k(x+1,y+1) end;
if n=9 then begin k(x,y+1);k(x,y-1);k(x+1,y-1) end;
if n=10 then begin k(x+1,y);k(x-1,y);k(x-1,y-1) end;
if n=11 then begin k(x,y+1);k(x,y-1);k(x-1,y+1) end;
if n=12 then begin k(x-1,y);k(x,y-1);k(x+1,y-1) end;
if n=13 then begin k(x,y+1);k(x-1,y);k(x-1,y-1) end;
if n=14 then begin k(x+1,y);k(x-1,y-1);k(x,y-1) end;
if n=15 then begin k(x-1,y);k(x,y-1);k(x-1,y+1) end;
if n=16 then begin k(x+1,y);k(x-1,y);k(x,y+1) end;
if n=17 then begin k(x+1,y);k(x,y+1);k(x,y-1) end;
if n=18 then begin k(x,y-1);k(x-1,y);k(x+1,y) end;
if n=19 then begin k(x-1,y);k(x,y+1);k(x,y-1) end
end;
procedure pov;
{Џ®ў®а®в дЁЈгал}
begin
nn:=nn-1;
if nn=15 then nn:=19;
if nn=13 then nn:=15;
if nn=11 then nn:=13;
if nn=7 then nn:=11;
if nn=3 then nn:=7;
if nn=1 then nn:=3;
if nn=0 then nn:=1;
end;
procedure clrst;
{ЋзЁбвЄ бв Є }
begin
for x:=1 to 12 do
for y:=1 to 22 do
if (x=1) or (x=12) or (y=1) then st[x,y]:=2 else st[x,y]:=0;
end;
procedure risvesst;
{ђЁб®ў вм ўҐбм бв Є }
begin
for x:=1 to 12 do for y:=1 to 22 do
begin
ss:=st[x,y];
k(x,y)
end;
end;
procedure dvig;
{„ўЁ¦ҐЁҐ}
var
i:integer;key:char;
begin
for i:=1 to 10 do
begin
delay(d);
key:=' ';
if keypressed then key:=readkey;
if key='i' then
begin
fig(x-1,y,nn,3);
if pus=0 then begin fig(x,y,nn,0); x:=x-1; fig(x,y,nn,1); end;
end;
http://sources.ru/pascal/gamestxt/tet.htm