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.
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.
0 Response to "mencari luas bola dengan program pascal"
Posting Komentar