ayo coba........

Rabu, 19 Oktober 2011

Menghitung volume kerucut

Keterangan:
r = jari-jari alas kerucut
t= tinggi kerucut
Luas selimut = π x r x s
Luas alas = π x r 2
Luas Permukaan kerucut = Luas alas + Luas Selimut
Luas Permukaan kerucut = πr2 + πrs = π r (r + s)
Volume Kerucut =1/3 x Luas alas x tinggi = 1/3 π r2 t


program menghitung_volume_kerucut;
uses windos,wincrt;
var
v,r,t:real;
ch:char;
begin
Clrscr;
write ('masukan nilai jari-jari lingkaran (r)=');
readln (r);
write ('masukan nilai tinggi (t)=');
readln (t);
v:=1/3*pi*(r*r)*t;
writeln ('volume kerucut=',v:20:2,'cm3');
ch:=readkey;
end.

Tidak ada komentar:

Posting Komentar