Umístnení souboru www.TrSek.com/zadania/opgula.pas{ OBJEMIHL.PAS }
{ Program vypocita objem a povrch gule. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program ObjemPovrchGule;
uses crt;
var
V,S,r,pi : real;
menu : integer;
begin
clrscr;
writeln('1.Objem gule');
writeln('2.Povrch gule');
writeln('3.Koniec');
readln(menu);
pi := 3;
IF menu = 1 THEN
begin
writeln('Zadaj polomer');
readln(r);
V := 4 * pi * r * r * r / 3;
writeln('Objem gule je ',V : 2 : 2);
readln;
end;
IF menu = 2 THEN
begin
writeln('Zadaj polomer');
readln(r);
S := 4 * pi * r * r;
writeln('Povrch gule je ',S : 2 : 2);
readln;
end;
end.