mencari luas bola dengan program pascal

uses wincrt;

type
    bulat = integer;
    desimal = real;
var
   v : desimal;
   r : bulat;
begin
write ('masukkan nilai jari-jari= ');
readln (r);
v:=4/3*3.14*sqr(r);
writeln ('volume bola adalah = ',v:0:2);
end.

Like THIS :
Share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Jika Anda menyukai Artikel di blog ini, Silahkan berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit.


Proudly by UIN SUSKA RIAU