Menghitung Volume Tabung

Add caption

Keterangan:
r = jari-jari tutup/alas tabung
t= tinggi tabung
Volume tabung = luas alas x tinggi
Luas alas = luas lingkaran = π.r.r
Volume tabung = π.r.r.t

program menghitung_volume_tabung;

uses windos, wincrt;

var

V,t,r:real;

ch:char;

begin

clrscr;

write('masukkan nilai (t)= ');

readln(t);

write('masukkan nilai (r)= ');

readln(r);

V:=pi*r*r*t;

writeln('volume tabung=',V:10:2,'cm3');

ch:=readkey;

end.