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.
Description: mencari luas bola dengan program pascal Rating: 4.5 Reviewer: Berry Hardisakha - ItemReviewed: mencari luas bola dengan program pascal

berryhs.com Owner Produk dari seorang enterpreneur muda berry hardisakha 4.4 10 Rp30.000 (Sale ends ) Produk Dari: Berry Foundation Kondisi Produk: excellent condition Ready Stock