ALGORITMA PEMROGRAMAN TURBO PASCAL 70
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 2 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.
Biodata Siswa IBBI STMIK IBBI
Nama : Susanto.Sitorus
NIM : 0806012785
Semester : satu (1)
Kelas : pagi (301)
Jurusan : TEKNIK INFORMATIKA A
NIM : 0806012785
Semester : satu (1)
Kelas : pagi (301)
Jurusan : TEKNIK INFORMATIKA A
Kamis, 13 November 2008
Menghitung Volume Kerucut
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar