🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #80301

Re: krzywa balistyczna pomocy

#80301
From: Krzysztof Biolik
Date: Sun, 19 Oct 2003 19:20
40 lines
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!krissb
References: <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