Nurul Maulida: Bangun ruang kubus

Minggu, 22 Maret 2015

Diposting oleh Unknown di 03.48

program Bangun_ruang_kubus;

uses crt;

var a,b, p,l,t,s :integer;

begin

clrscr;

writeln(' >> BANGUN RUANG KUBUS << ');

writeln;

write('Sisi : ');readln(s);

a:=6*s*s;

b:=s*s*s;

writeln;

writeln('********************************************');

writeln;

writeln('Luas Pemukaan : ',a);

writeln('Volume : ',b);

readkey;

end.

Output :

By :