Penghitungan Volume Tabung Dengan Bahasa Pemograman Pascal

uses crt;

var

tinggi,jari_jari:integer;

volume_tabung:real;

begin

clrscr;

writeln(' ---- MENGHITUNG VOLUME TABUNG ----');

writeln('');

write(' Masukan Tinggi tabung :');

readln(Tinggi);

write(' Masukan Jari jari :');

readln(Jari_jari);

volume_tabung:=22/7*jari_jari*jari_jari*tinggi;

writeln(' Volume Tabung :',volume_tabung:6:2);

readln;

End.

Hasil :