{SPAP1006077TUGAS3}
{HEADER}
program luas_permukaan_bola;
uses crt;
{DEKLARATION}
const phi = 3.14;
var
l, r : real;
{BODY}
begin
clrscr;
write ('masukkan nilai jari-jari= '); readln (r);
l:=4*phi*sqr(r);
writeln ('luas permukaan bola adalah = ',l:0:2);
readln;
end.
lengkapnya
link download :
SPAP1006077TUGAS3.DOCX
SPAP1006077TUGAS3.PDF
SPAP1006077TUGAS3.rar
Comments :
Posting Komentar