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 :