program untuk mencari luas dan keliling lingkaran

program untuk mencari luas dan keliling lingkaran

 

uses wincrt;
var r : integer;
pi,l,k: real;
begin
 pi:= 22/7;
write ('jari-jari=') ; readln (r);
 l:=pi*r*r;
 k:=2*pi*r;
writeln('luas lingkaran = ',l:1:2);
writeln('keliling lingkaran =', k:1:2);
end.


ketika di run program ini belum memberikan hasil perhitungan, tetapi hanya memberikan tampilan untuk memasukan nilai jari-jari, ketika nilai jari-jari sudah di masukan kemudian di enter baru nilai luas dan keliling lingkaran akan muncul..