Sintak Menghitung Volume Kubus Dan Volume Balok Pada Pascal For Windows ~ ™NOBLESSE™

Home » Unlabelled » Sintak Menghitung Volume Kubus Dan Volume Balok Pada Pascal For Windows

Selasa, 06 Desember 2011

program KubusBalok;

uses

WinCrt;

var

p, l, t :integer;

VolumeKubus : real;

VolumeBalok : real;

begin

writeln('Hitung Volume Kubus Dan Balok');

write('Panjang :');readln(p);

write('Lebar :');readln(l);

write('tinggi :');readln(t);

Volumekubus := p*p*p;

VolumeBalok := p*l*t;

write('Volume Balok :',VolumeBalok:2:0);

writeln(' Meter Kubik');

write('Volume Kubus :',VolumeKubus:2:0);

writeln(' Meter Kubik');

end.

Hasil RUN

Posted in: