ayo coba........

Jumat, 04 November 2011

Menghitung Volume Tabung

Add caption
video


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.

3 komentar: