Menghitung Volume Kerucut

Program_Menghitung_Volume_Kerucut

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Kerucut = 1/3 x π x r ² x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung

PROGRAM_VOLUME_KERUCUT;

Uses Crt;

Var

Jari_jari : word;

Tinggi : word;

Volume : real;

Begin

Clrscr;

Write(‘Masukkan Jari-jari Kerucut = ‘);

Readln(jari-jari);

Write(‘Masukkan Tinggi Kerucut = ‘);

Readln(tinggi);

Volume := 1/3 * 3.14159265 * jari_jari * jari_jari * tinggi ;

Writeln(‘Volume Kerucut adalah = ‘,volume);

Readln;

End.