[Главная] [чё-нить] [HELP!] [Написать!] [Залатая Барада] [Поиск] [Status] [Last|TMPT] [RSS|RSS-Last|LJ]

holsten, , 2006-03-10 13:31:45
http://community.livejournal.com/ru_preved/294327.html#cutid1


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

погромист, , 2023-09-13 05:26:37 спасибо чопопалка, но я уже нашел это тут https://www.cyberforum.ru/post6392048.html


 Отметиться
[Главная] [чё-нить] [HELP!] [Написать!] [Залатая Барада] [Поиск] [Status] [Last|TMPT] [RSS|RSS-Last|LJ]


©2003-2005. Авторы двиШка: megath[aka dura], skupr , спасибо MakZ'у за пинки ;)
Также огромное спасибо всем, кто сюда что-то когда-то постил, и тем, кто постил тем, кто постил, а также - авторам )))

приколов.нет Байанометр СКОТОБАЗА АТАТАТ yaplakal.com