|
more than 450 programs for free
|
![]() English |
![]() Slovensky |
![]() Česky |
![]() ©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] |
|