| holsten, , http://community.livejournal.com/ru_preved/294327.html#cutid1 ProgrammerForever, , {$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 погромист, , Отметиться |