Article View: pl.comp.lang.pascal
Article #80301Re: krzywa balistyczna pomocy
From: Krzysztof Biolik
Date: Sun, 19 Oct 2003 19:20
Date: Sun, 19 Oct 2003 19:20
40 lines
1963 bytes
1963 bytes
* Sun, 19 Oct 2003 13:56:01 +0200 *
* bono <beny@czuby.net> wrote:
> Witam potrzebuje na zaliczenie programu w Pascalu symulujacego i
> obliczajacego podstwowe parametry
> krzywej balistycznej jeśli ktos posiada cos takiego prosze o przesłanie na
> priva na googlach nic nie znalazłem.
type pocisk = record
x,y,vx,vy : real;
end;
const grawitacja : real = 0.981;
wiatr : real = -3; {czy tez opor powietrza}
i teraz w pentelce
for t:=1 to 100 do
begin
{ tutaj pare prostych wzorkow z fizyki ktore napewno pamietasz ,a
a jak nie to znajdziesz sobie w googlach }
x:=x+(vx-wiatr)*t;
y:=y+(vy-wiatr)*t; {...i tak dalej }
{ ^--- jak ma byc opor powietrza to ma byc '+'
rysowanie punktow w graphie (masz x i y wiec pixela
dasz rade postawic) }
end;
't' ,to tak dla zmylki - czas.
ps. Sorry ,PCK u malego ;)
--
: _,,,._ -++:; Krzysztof Biolik ;:++- _.,,,._ ; fidoNet:2:484/39.55
:"?t$$$$$$$bg. `::;;;;;;;;;;;;:+' ,gd$$$$$$$f?" e-mail: krissb@go2.pl
: `"$b tgg."t$b, '+::;;;:+' ,d$f",ggf d$"' ...watch your words...
:. "+igss++s$$g, ,gd$$bg, ,g$$s++sggi+" .http://www.krissb.prv.pl
Technical Details
Message-ID:
<bmuo5u$ok$1@news.onet.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!krissbReferences:
<1066564493.325267@cache.freebsd.lublin.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!krissb From: krissb@go2.pl (Krzysztof Biolik) Newsgroups: pl.comp.lang.pascal Subject: Re: krzywa balistyczna pomocy Date: 19 Oct 2003 19:20:30 GMT Organization: news.onet.pl Lines: 40 Sender: krissb@priv4.onet.pl@80.48.41.151 Message-ID: <bmuo5u$ok$1@news.onet.pl> References: <1066564493.325267@cache.freebsd.lublin.pl> NNTP-Posting-Host: 80.48.41.151 Mime-Version: 1.0 X-Trace: news.onet.pl 1066591230 788 80.48.41.151 (19 Oct 2003 19:20:30 GMT) X-Complaints-To: abuse@onet.pl NNTP-Posting-Date: 19 Oct 2003 19:20:30 GMT User-Agent: slrn/0.9.6.3 (Win32) Hamster/2.0.0.1 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit