{az sam VADER i kato hakerstvah se dobrah do komputera na Boga ot tam izmaknah tozi sors! mai taka toi e sazdal vselenata! i, ucudvasto, no ne e pisal na C?????? :-)))))))))))))))))) *** da me prosti Bog! no tova ne e bogohulstvo a, sega!} program universe; uses crt; type subkvark=record x,y,z:real; a,b,c:real; end; var mk:array[0..10e200]of subkvark; t:real; i,j:varylong; procedure makekwark(i:verylong); begin mk[i].x:=random(10.0); mk[i].y:=random(10.0); mk[i].z:=random(10.0); mk[i].a:=random(10.0); mk[i].b:=random(10.0); mk[i].c:=random(10.0); end; {---------------------------------------------------} procedure work(k1,k2:verylong); begin mk[k1].a:=mk[k2].a*0.3893204; mk[k1].b:=mk[k2].a*0.9234978+mk[k1].c*mk.y[k1]+random(1.230984); mk[k2].x:=mk[k2].x+1; mk[k1].c:=mk[k1].a*0.4355644; mk[k2].b:=mk[k1].a*0.3345677+mk[k1].z*mk.y[k2]; mk[k1].x:=mk[k1].z+1.000234+random(1.230948) mk[k1].a:=mk[k2].a*0.3893204; mk[k2].b:=mk[k1].a*0.4534578+mk[k1].c*mk.y[k1]; mk[k2].z:=mk[k2].y+1; mk[k1].c:=mk[k2].a*0.2222231+random(1.230984); mk[k2].b:=mk[k2].a*0.3334327+mk[k2].x*mk.a[k2]; mk[k1].y:=mk[k2].z+1.000234; mk[k1].a:=mk[k2].a*0.3893204; mk[k1].b:=mk[k1].a*0.9234978+mk[k1].c*mk.y[k1]; mk[k1].x:=mk[k2].x+1; mk[k1].c:=mk[k2].x*0.4444444+random(1.230984); mk[k2].b:=mk[k1].a*0.3325677+mk[k1].z*mk.y[k2]; mk[k1].x:=mk[k2].x+1.032234; mk[k2].a:=mk[k2].a*0.3434204+random(1.203984); mk[k1].b:=mk[k2].a*0.3556778+mk[k2].y*mk.y[k1]; mk[k2].z:=mk[k2].x+1; mk[k1].c:=mk[k1].a*0.1232231; mk[k2].b:=mk[k1].a*0.3334327+mk[k2].z*mk.a[k2]; mk[k1].y:=mk[k1].x+1.000234; end; {---------------------------------------------------} begin randomize; {make universe} for i:=0 to 10e200 do makekvark(i); {run universe} repeat for j:=0 to 10e200 do for i:=0 to 10e200 do work(i,j); gotoxy(10,10);write(t);inc(t); until keypressed; end.

kwo e twa be chowek??? ti da niamash sluchaino Alpha/100GHz ? :-)

Какви са тези работи ??????????????????

shto ne kavesh koia versia ti e compiler-a???

Що бе? Нали засега тази програма работи 15 милиарда години? Къв е проблема да е стартирана и на 286 :)))... И така всичко става бавно.

Turbo Pascal -2.5 :)))

e......... na Bojia komputr! :-))))))))))))))))))) nie nemame takiva!