ProgrammerForever 2008-10-10 00:11:33 #
Дико. С Паскаля получилось что то вроде:

{$n+}
ПРЕВЕД Папоротник;
Uses Crt,Graph;
типа gr,gr1:преведчисло;
k,color:преведчисло;
newx,x,y,newy,a,b,r,c,d,e,f:преведчислошопестец;
Начел
gr1:=VGAHI;
gr:=vga;
Initgraph(gr,gr1,'');
randomize;

asm
mov ax,1001h
mov bh,15
int 10h
Кончел;
repeat
r:=random;
Вдруг r<=0.1 Потом
Начел
a:=Нах;B:=Нах;c:=Нах;d:=Нах.16;f:=Нах;
Кончел Нихрина Начел
Вдруг (r>0.1) и (r<=0.86) Потом
Начел
a:=0.85 ;b:=0.04;c:=-0.04;d:=0.85;f:=1.6;
Кончел Нихрина Начел
Вдруг (r>0.86) и (r<=0.93) Потом
Начел
a:=0.2;b:=-0.26;c:=0.23;d:=0.22;f:=1.6;
Кончел Нихрина Начел
a:=-0.15;b:=0.28;c:=0.26;d:=0.24;f:=0.44;
Кончел;
Кончел;
Кончел;
newx:=(a*x)+(b*y);
newy:=(c*x)+(d*y)+f;
x:=newx;
y:=newy;
putpixel(round(x*64+350),round(530-y*48),LightGreen);

until keypressed;
readkey;
closegraph;
МЕДВЕД

А вообще так себе. А вот от этого я под стол упал и минут 5 не мог оттуда выползти.. http://www.vbnet.ru/forum/show.aspx?id=159816 Кто с VB знаком, смотрите. Наискось просмотрите страничку, а потом ищите на страничке negr as negr

приколов.нет Байанометр СКОТОБАЗА АТАТАТ yaplakal.com
© СВАЛКА, 2003–2024. Авторы двиШка: megath[aka duro], skupr, спасибо MakZ'у за пинки ;), Methos'у за скин sandbox, Татьяне за синий скин, Сверстайго Сайтег за вебдванолизацию синего скина.
Также огромное спасибо всем, кто сюда что-то когда-то постил, и тем, кто постил тем, кто постил, а также - авторам )))