mencari luas bola dengan program pascal

shares

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.

Related Posts

0 comments: