English
English
Slovensky
Slovensky
Česky
Česky
©ariąsky
©ariąsky
 
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
Views: 696x


{ 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.
 
 

[Run] [Save] [Print] [Send e-mail]