About

Kamis, 19 Mei 2011

Penghitungan Volume Kerucut Dengan Bahasa Pemograman Pascal

uses crt;
var
tinggi,jari_jari:integer;
volume_kerucut:real;
Begin
clrscr;
writeln('----- MENGHITUNG VOLUME KERUCUT ----');
writeln('');
write(' Masukan Tinggi kerucut :');
readln(Tinggi);
write(' Masukan Jari jari kerucut :');
readln(jari_jari);
volume_kerucut :=1/3*22/7*jari_jari*jari_jari*tinggi;
writeln(' Volume Kerucut :',Volume_kerucut:6:2);
readln;
end.


Hasil :


0 komentar :

Posting Komentar