Question

How to calculate the surface area of cuboid in Pascal

Answer 1

program SurfaceAreaCuboid;

function SurfaceAreaCuboid(length, width, height: real): real;
begin
  SurfaceAreaCuboid := 2 * (length * width +
                            width * height +
                            height * length);
end;

var
  length, width, height, surfaceArea: real;

begin
  length := 6;
  width := 3;
  height := 4;

  surfaceArea := SurfaceAreaCuboid(length, width, height);

  writeln('Surface Area of Cuboid is = ', surfaceArea:0:0);
end.




(*
run:

Surface Area of Cuboid is = 108

*)

 

70+ SQL courses for beginners and professionals