{ HRANOL.PAS Copyright (c) TrSek alias Zdeno Sekerak } { Zostavte program pre vypocet objemu a povrchu } { pravidelneho sestbokeho hranola } { } { Datum:04.02.2004 http://www.trsek.com } program sest_hran; uses crt; var a:real; vy:real; V:real; S:real; begin ClrScr; Write('Zadaj hranu sestbokeho hranola:'); ReadLn( a ); Write('Zadaj vysku sestbokeho hranola:'); ReadLn( vy ); V := (6*a*a*sqrt(2)/4) * vy; S := 2*(6*a*a*sqrt(2)/4) + 6*a*vy; WriteLn('Objem sestbokeho hranola je ', V:8:3,' jednotiek kubickych.'); WriteLn('Povrch sestbokeho hranola je ', S:8:3,' jednotiek.'); ReadLn; end.