Program mencari luas, keliling dan volume kubus (turbo pascal)

Sekarang saatnya membahas mengenai mencari luas, keliling dan volume kubus menggunakan turbo pascal. Kita mungin tahu bahwa kubus merupakan bangun ruang yang setiap rusuknya sama besar, Berikut rumus-rumusnya:

Luas Permukaan Kubus:

Keliling Kubus:

Volume Kubus:

L = Luas

K = keliling

V = Volume

s = panjang rusuk

Dan berikut sintak program Turbo Pascal nya:

uses wincrt;
var
s:integer;
l,k,v,l1 : real;
begin
writeln ('=============================');
writeln (' Menghitung Luas, keliling &');
writeln ('         Volume Kubus ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Rusuk : ');readln (s);
l1:= s*s;
l := l1*6 ;
k := 12*s;
v := s*s*s;
writeln ('Luas Salah Satu Sisi: ', l1:1:1 , ' satuan luas');
writeln ('Luas Pemukaan Kubus : ', l:1:1 , ' satuan luas');
writeln ('Keliling Kubus      : ', k:1:1 , ' satuan keliling');
writeln ('Volume Kubus        : ', v:1:1 , ' satuan Volume');
readln;
end.

Tampilan program setelah di jalankan:

Bagi yang mau download Souce Code nya silahkan download link nya:

Semoga bermanfaat..