СВАЛКА! СВАЛКО!

holsten 2006-03-10 13:31:45
Всего постов: 14
Бород: 20
Рейтинг: +13|7|-13 = +48%
Одобрено: Дура

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