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.
Langganan:
Posting Komentar (Atom)
5 komentar:
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
. thank you for response, hopefully I can get better again.
om makasih ya, tp cm kurang 1 tuh
abis uses crt dibawahnya tambahin
const phi=3.14
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
Posting Komentar
Don't Spam Please !