[Turbo Pascal] Menghitung Luas Lingkaran Menggunakan Prosedur

Program swift;
uses wincrt;
procedure luas_lingkaran;
var
r:integer;
hasil:real;
begin
write('Masukkan Panjang Jari-jari : '); readln(r);
hasil:=(22/7)*sqr(r);
writeln('Luasnya = ',hasil:0:2);
end;
begin
luas_lingkaran;
end.

Related Articel:

Posted in: Turbo Pascal