Admin usuń temat nie aktualne

[Tomekonline 0]

nie aktualne

[Wekmyr 0]

A srodowisko graficzne jest jakos okreslone?

[Tomekonline 0]

Tak turbo pascal

[Tomekonline 0]

Mam tyle ale to kropla w morzu bo nie wiem jak skończyć

 

Kod:

Uses Crt,Graph; { Zalozenie: 1m = 1pixel }

 

Const g : Real = 9.81; { Przyspieszenie Ziemskie [m/s] }

v0 : Real = 80; { Predkosc poczatkowa [m/s] }

Kat : Real = 65; { Kat wyrazony w stopniach [stopien] }

t0 : Real = 0; { Czas poczatkowy }

Dt : Integer = 60; { Przyrost czasu, Delta 1=1s,1000=1ms }

 

Var Sterownik,Tryb : Integer;

xt,yt : Real; { Pozycja po czasie t [m] }

t : Real; { Zmienna funkcji czasu }

Ts : Real; { Czas trwania ruchu }

 

Begin

InitGraph(Sterownik,Tryb,'c:\bp\bgi');

ReadKey;

t:=t0; { no comments }

Kat:=Kat*pi/180; { Przeliczenie stopni na radiany }

Ts:=2*v0*Sin(Kat)/g; { Obliczenie czasu trwania ruchu }

repeat

xt:=v0*t*Cos(Kat); { Obliczenie pozycji x po czasie t }

yt:=v0*t*Sin(Kat)-(g/2)*Sqr(t); { Obliczenie pozycji y po czasie t }

PutPixel(Round(xt),GetMaxY-Round(yt),15);

Delay(Round(1000/dt)); { Opoznienie czasu rysowania }

t:=t+1/Dt; { Zwiekszenie zmiennej czasowej o Delte }

until (t>=Ts) or KeyPressed;

ReadKey;

CloseGraph

End.

 

ktoś mi doradził to nie wiem czy ma racje

Pozostaje dopisać sprawdzenie czy współrzędne xt i yt nie znalazły się w obszarze celu.

Najwazniejszą rzecz czyli "Engine" programu już masz - zostaje tylko dorobić wodotryski i już.

 

Fizykę w szkole miałeś więc rzut ukośny znasz, w razie wątpliwości odsyłam na stronę wiki http://pl.wikipedia.org/wiki/Rzut_uko%C5%9Bny