Menghitung Volume Kubus Dengan Turbo Pascal

Kali ini saya akan memberikan koding bagaimana Menghitung Volume Kubus Dengan Turbo Pascal. Seperti yang kita tahu, rumus volume kubus adalah v = sisi * sisi * sisi. Jadi, berikut kodingnya.

uses crt;
var
   s: integer;
   v: real;

begin
     clrscr;
     writeln('Menghitung Volume Kubus');
     writeln('-----------------------');
     write('Sisi Kubus: ');readln(s);

     v := s*s*s;
     writeln('Volume Kubus: ',v:0:2);
     readln;
end.

Hasilnya sebagai berikut.

Tweet