Volume & Luas Kulit Bola dengan Pascal

Written By Muhammad Abdul Wahid on 7 Desember 2009 | 18.17.00

abdulmail - source code pascal untuk mencari volume bola dan luas kulit bola.

program vk_bola;
uses crt;
Var Luas,R,V :Real;
Begin
clrscr;
writeln(' -----------------------------------------------');
writeln(' Program Menghitung Volume & Luas Permukaan Bola');
writeln(' -----------------------------------------------');
writeln;
write(' Jari-jari = ');readln(R);
Luas:=4*pi*R*R;
V:=4/3*pi*R*R*R;
writeln;
writeln(' Jadi Volumenya = ',V:0:2);
writeln;
writeln(' Jadi Luasnya = ',Luas:0:2);
readln;
End.

Mohon dikoreksi ya.
Thx.

5 komentar:

Anonim mengatakan...
Komentar ini telah dihapus oleh administrator blog.
Anonim mengatakan...

I would appreciate more visual materials, to make your blog more attractive, but your writing style really compensates it. But there is always place for improvement

Muh Abdul Wahid mengatakan...

. thank you for response, hopefully I can get better again.

Anonim mengatakan...

om makasih ya, tp cm kurang 1 tuh
abis uses crt dibawahnya tambahin
const phi=3.14

Abdulmail mengatakan...

betul2... he.. :D
bisa juga kayak gini ;

program vk_bola;
uses crt;
Var Luas,R,V :Real;
Begin
clrscr;
writeln(' -----------------------------------------------');
writeln(' Program Menghitung Volume & Luas Permukaan Bola');
writeln(' -----------------------------------------------');
writeln;
write(' Jari-jari = ');readln(R);
Luas:=4*3,14*R*R;
V:=4/3*3,14*R*R*R;
writeln;
writeln(' Jadi Volumenya = ',V:0:2);
writeln;
writeln(' Jadi Luasnya = ',Luas:0:2);
readln;
End.

-------------
trimakasih infonya ; he.. :D

Poskan Komentar

Don't Spam Please !