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.


Belum ada komentar untuk "mencari luas bola dengan program pascal"

Proudly by UIN SUSKA RIAU