haker! :-))))))))))
6 отговора
0 прегледа
haker! :-))))))))))
{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.
в отговор на Headhunter
#7
haker! :-))))))))))
e......... na Bojia komputr! :-)))))))))))))))))))
nie nemame takiva!