dostal som za ulohu zostavit algoritmus a vymysiet program, len mi to stale pise chyby. Zadanie bolo taketo: Zostavte program pre výpočet doby pádu a rýchlosti dopadu telesa na dno priepasti o zadanej hĺbke.
vytvoril som toto:
program pad;
uses crt;
var s,g,t,v:real;
begin
clrscr;
write ('zadaj hlbku priepasti');
read (s);
g:=9,8;
t:=sqrt(2 * s div g);
write ('toto je cas dopadu telesa na dno priepasti: ',t);
v:=g*t;
writeln('toto je rychlost telesa pri volnom pade v m/s: ',v);
read;
end.