Luas dan Keliling Lingkaran Menggunakan Pascal

program lingkaran;

uses crt;

var

r,L,K:real;

begin

clrscr;

writeln('||Menghitung Luas dan Keliling Lingkaran||');

writeln('');

write('Masukkan Jari-Jari : ');readln(r);

L:=22/7+(sqr(r));

K:=2*22/7*r;

writeln('Luas:',L:0:2);

writeln('Keliling:',K:0:2);

readln;

end.

Related Posts:

Tweet