Program MencariLuasLingkaran
uses crt;
const
phi=3.14;
var
L,r.real;
begin
clrscr;
writeln('Program MencariLuasLingkaran');
write('input jari jari Lingkaran:');readln(r);
L:=phi*r*r;
writeln('Luas Lingkaran:',L:2:2);
readln;
end.
"HASILNYA"
PROGRAM MENCARI LUAS LINGKARAN
INPUT JARI JARI LINGKARAN:12
LUAS LINGKARAN:452.16
uses crt;
const
phi=3.14;
var
L,r.real;
begin
clrscr;
writeln('Program MencariLuasLingkaran');
write('input jari jari Lingkaran:');readln(r);
L:=phi*r*r;
writeln('Luas Lingkaran:',L:2:2);
readln;
end.
"HASILNYA"
PROGRAM MENCARI LUAS LINGKARAN
INPUT JARI JARI LINGKARAN:12
LUAS LINGKARAN:452.16
Komentar
Posting Komentar