ICQ#31085717 loshoto ce trebva da se ogranicawam s takiwa nesta ce nesto sam zakasal s wremeto za rabotata mi a postoianno namiram nesta da se otpleswam to bese Math 4.0 pa posle W2k mu se radwah pa sumati wreme da vidia kakwo e towa jivotno Linux pak se naloji da premina ot Pasal na C++ makar ce v momenta nemie problema w programiraneto....... te ti 1 malaka programka towa mi e parwata fiziceska programka pisana e nekade w gimnaziata na ПРАВЕЦ-8D ti moje i da nego znaes za nego....... ta towa e simulirane na dwijenieto na 1 tialo okolo drugo ako si wzimodeistwat s sila ~ 1/r^2( towa e 2xD za 2 tela dwijenieto se izwarswa v ravnina i nema smisal ot 3xD) towa e na poluPASCAL polu hipoteticen ezik cesam zabrawil operatorite za certane......Znam ce pises na C++ no nikoga nesam certal na C++ no sas sigornost ste se oprawish x0:=400;y0:=300; x:=600;y:=300; -nacalni koordinati na dvijestoto se tialo vx:=0;vy:=2;dt:=0.005; -nacalna skorost i stapka dt,ako tie baven komp dt=1,dt=0.1 Circle(x0,y0,...); -tialoto koeto wzimame za nepodwijno repeat dx:=x0-x; dy:=y0-y; r:=sqrt(dx*dx+dy*dy); a:=2000/(r*r); -tuk koeficenta 2000 e uslowen ax:=a*dx/r; ay:=a*dy/r; vx:=vx+ax*dt; vy:=vy+ay*dt; x:=x+vx*dt; y:=y+vy*dt ; xx:=round(x); yy:=round(y); if (xx>800) or (xx<0) or (yy>560) or (yy<0) then break ; Circle(xx,yy,...); until ................... dano nesam naprawil texniceska greska no towa e rabotilo kolko e pomalko dt tolkowa e po tochno( i bavno estestweno)......... Ako iskas realnia slucai t.e. ne uslowen koeficient 2000 i raztoianie 200 tochki a neznam si kolko hiliadi kilometra ste triabva po siriozno da si poigraes da mastabiras nestata....... Mojes da si naprawish i model na Slancewata sistema centralnoto tialo e slanceto ste dobavish oste dvijesti se tela.... no trebva virtualen ecran ce na 1024x768 ako certaes Pluton ot Venera nema da vijdas nisto i obratnoto...... i mojes da oslojniawas kolkoto si iskash oste........................ aide uspehi