Po zadaní dráhy a času vypočte průmernou rychlost, předpokladá se s,t > 0

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pavel Paták
web: www.webpark.cz/programar

Program: Rychlost.pas
File exe: Rychlost.exe

Po zadaní dráhy a času vypočte průmernou rychlost, předpokladá se s,t > 0
{ RYCHLOST.PAS                            Copyright (c) Pavel Patak }
{ Po zadani drahy a casu vypocte prumernou rychlost,                }
{ predpoklada se s,t > 0                                            }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program Rychlost;
 
Var s, t, v : Real;
 
Begin
   Write('Urazenou dráhu s = ');
   Readln(s);
   Write('Potrebny cas t = ');
   Readln(t);
   Writeln;
   Writeln('v = ',s/t:5:2);
   Readln;
End.