Menghitung luas & volume BOLA–(turbo pascal)

Selamat datang di blog Muslih System, pada postingan tentang Turbo Pascal ini saya akan membahas mengenai cara menghitung luas dan volume bola, sebelum ke sintak nya ada baiknya kita mengetahui rumus-rumus berikut ini:

- Luas Permukaan Bola:

- Volume Bola:

Keterangan:

L : Luas Bola

V : Volume Bola

π : Tetapan 22/7 atau 3.14

r : jari-jari

Dan berikut sintak programnya:
uses wincrt;
var
r:integer;
l,v : real;
begin
writeln ('=============================');
writeln ('  Menghitung Luas & Volume');
writeln ('             Bola ');
writeln ('=============================');
writeln (' ');
write ('Masukan Panjang Jari-jari : ');readln (r);
l := 4*(22/7)*r*r ;
v := (4/3)*(22/7)*r*r*r;
writeln ('Luas Pemukaan Bola : ', l:1:1 , ' satuan luas');
writeln ('Volume Bola        : ', v:1:1 , ' satuan Volume');
readln;
end.

Setelah dijalankan program maka tampilannya akan seperti gambar dibawah ini:

Bagi yang mau download Source Code program pascalnya bisa download di link:

Sekian pembahasannya, Semoga bermanfaat…