TIPE DATA REAL

program


{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.

link download complite:

FILE PDF

FILE DOCX

FILE PAS

uzzumaki_naruto Senin, 15 Agustus 2011