Question

How to calculate the volume of a sphere in Pascal

Answer 1

program SphereVolume;

uses
  Math;
 
function SphereVolume(r: Double): Double;
begin
  SphereVolume := (4.0 / 3.0) * Pi * Power(r, 3);
end;


var
  radius: Double;
  
begin
  radius := 5.0;
  WriteLn('Volume of sphere = ', SphereVolume(radius));
end.



(*
run:
 
Volume of sphere =  5.2359879120275843E+002
 
*)

 

70+ SQL courses for beginners and professionals