Question

How to find the volume of a capsule in Pascal

Answer 1

program CapsuleVolumeProgram;

// V = pi * r^2 * h + (4 / 3) * pi * r^3

const
    pi = 3.14159265358979;

function CapsuleVolume(r, h: real): real;
begin
    CapsuleVolume := pi * r * r * h
                     + (4.0 / 3.0) * pi * r * r * r;
end;

var
    r, h, volume: real;

begin
    r := 6.0;
    h := 11.0;

    volume := CapsuleVolume(r, h);

    writeln('Capsule volume = ', volume:0:2);
end.




(*
run:

Capsule volume = 2148.85

*)

 

70+ SQL courses for beginners and professionals