Umiestnenie súboru www.TrSek.com/zadania/objemihl.pas{ OBJEMIHL.PAS }
{ Program vyziada rozmery ihlanu a vypocita jeho objem. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program ObjemIhlanu;
uses crt;
var
V,Sp,a,b,c,vyska,s : real;
begin
clrscr;
writeln('Program vypocita objem ihlanu');
writeln('-----------------------------');
write('Zadaj cislo a : ');
readln(a);
write('Zadaj cislo b : ');
readln(b);
write('Zadaj cislo c : ');
readln(c);
write('Zadaj vysku ihlanu v : ');
readln(vyska);
s := a + b + c / 2;
S := sqrt (s * (s - a) * (s - b) * (s - c));
V := S * vyska / 3;
writeln('Objem ihlanu je ',V:0:4);
readln;
end.