Menghitung Volume Bola

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Bola

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 Bola = 4/3 x π x t3, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume



PROGRAM_VOLUME_BOLA;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Bola = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Bola = ‘);
Readln(tinggi);

Volume := 4/3 * 3.14159265 * tinggi * tinggi * tinggi ;

Writeln(‘Volume Bola adalah = ‘,volume);
Readln;
End.