Localize file www.TrSek.com/zadania/valec.pas{ VALEC.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Zostavte program pre vypocet objemu a povrchu valca }
{ Vstup : polomer r, vyska vy }
{ Vystup: objem a povrch valca }
{ }
{ Datum:04.02.2004 http://www.trsek.com }
program valec;
uses crt;
const pi=3.14;
var r:real;
vy:real;
V:real;
S:real;
begin
ClrScr;
Write('Zadaj priemer valca:');
ReadLn( r );
Write('Zadaj vysku valca:');
ReadLn( vy );
V := pi*r*r*vy;
S := 2*pi*r*(r+vy);
WriteLn('Objem valca je ', V:8:3,' jednotiek.');
WriteLn('Povrch valca je ', S:8:3,' jednotiek.');
Readln;
end.