Rozšiřující text pro zájemce o fyziku na středních školách
Menu
Úvod
Pohybová rovnice
Řešený příklad
Řešení v MS Excel
Řešení v Pascalu
Dolňující úlohy
Ke stažení
Odkazy
O projektu
Řešení pohybové rovnice pomocí prostředí Pascal/Delphi
Zde je jednoduchý program v Turbo Pascalu, který tiskne na obrazovku hodnoty zrychlení, rychlosti a dráhy v závislosti na čase.
uses crt;
var a,v,x,t,dt:real;
begin
v:=0;
t:=0;
s:=0;
dt:=0.01;
repeat
t:=t+dt;
a:=0.0041*v*v-9.81;
v:=v+a*dt;
s:=s+v*dt
writeln(t:4:2,' ',a:5:4,' ',v:5:4,' ',s:5:4);
delay(10);
until keypressed;
readln;
end.
var a,v,x,t,dt:real;
begin
v:=0;
t:=0;
s:=0;
dt:=0.01;
repeat
t:=t+dt;
a:=0.0041*v*v-9.81;
v:=v+a*dt;
s:=s+v*dt
writeln(t:4:2,' ',a:5:4,' ',v:5:4,' ',s:5:4);
delay(10);
until keypressed;
readln;
end.
Tento program můžeme snadno upravit, aby vykresloval graf v závislosti na čase (z prostorových důvodů zde neuvádím, nicméně komentovaný zdrojový soubor najdete, stejně jako hotový program, v sekci Ke stažení).
Nyní již můžete přikročit k samostatnému řešení připravených úloh
.© Jan Šlégr 2007