[Pascal] Pad - zdrojovy kod

Pad
Vytvorte program, ktorý vypocíta za aký as dopadne na Zem teleso s výšky h. Gravitané
-2
zrýchlenie g bude zadané ako konštanta rovná 9.81ms na -2.

diky

najdi cez google aspon vzorec, mne sa nece,

t=h/v0 ale nie som si isty.diky

toto som vytvoril ale vzorec asi neni dobre a program sa hned zruti ale mam 0 chyb

{Pad
Vytvorte program, ktory vypocita za aky cas dopadne na Zem teleso z vysky h. Gravitacne
zrychlenie g bude zadane ako konstanta rovna 9.81ms .}

program Pad;
uses crt;
const g=9.81;
var cas,vyska,rychlost:real;

begin
writeln('Zadajte cas: ');
readln(cas);
cas:=g*(vyska/rychlost);
writeln(cas:0:4);
readln;

end.

program pad;
uses crt;
const g=9.81;
var s,t:real;
begin
clrscr;
writeln('Zadaj vysku v metroch');
readln(s);
t:=sqrt(2*s/g);
writeln('Teleso dopadne z vysky ',s:2:4,' metrov za ',t:2:4,' sekund.');
readln;
end.

takto by to malo byt spravne

ok, diky uz som to mal predtim takto ako ty, a dokonca tento priklad bol aj na skuske, takze som rad ze som ho vedel sam spravit a spravne

a inak taka nahoda Založený: 07.03.2008 ty a ja Založený: 07.03.2007