MENGHITUNG LUAS LINGKARAN MENGGUNAKAN PASCAL
MENGHITUNG LUAS LINGKARAN MENGGUNAKAN PASCAL
Berikut adalah cara menghitung luas lingkaran menggunakan pascal
a.Programnya
program MencariLuasLingkaran;
uses crt;
const
phi=3.14;
var
L,r:real;
begin
clrscr;
writeln('program Mencari Luas Lingkaran');
write('Input jari jari lingkaran:');readln(r);
L:=phi*r*r;
writeln('luas lingkaran:',L:2:2);
readln;
end.
2.Gambarnya
3.Hasilnya
Berikut adalah cara menghitung luas lingkaran menggunakan pascal
a.Programnya
program MencariLuasLingkaran;
uses crt;
const
phi=3.14;
var
L,r:real;
begin
clrscr;
writeln('program Mencari Luas Lingkaran');
write('Input jari jari lingkaran:');readln(r);
L:=phi*r*r;
writeln('luas lingkaran:',L:2:2);
readln;
end.
3.Hasilnya


Komentar
Posting Komentar