arnie16 píše:
ked delis realne cisla tak sa nepouziva operacia div ale / to je asi chyba
presne tak... pokial chces delit realne cislo inymcislom tak, aby bol vysledok zaokruhleny na nula destinnych miest, sprav to takto
Kód:
program pad;
uses crt;
var S,G,T,V:real;
begin
clrscr;
write('Zadaj hlbku priepasti: ');
readln(S);
G:=9.8;
T:=sqrt(2*S/G);
write('Toto je cas dopadu telesa na dno priepasti: ',T:1:0);
V:=G*T;
writeln('toto je rychlost telesa pri volnom pade v m/s: ',V:1:0);
readln;
end.
dolezite je tam to
t:1:0.. takto sa napise premenna t, pricom pred nou bude 1 medzera a za nou (za desatinnou ciarkou) nebude nic... takze sa vlastne zobrazi cele cislo... alebo by sa mohla pouzit funkcia Round -
V:=Round(V);, cim sa to zaokruhli, ale to uz je jedno....
predpokladam, ze tak si to chcel.
