[Pascal] Script Menghitung Luas & Keliling Persegi Panjang dan Lingkaran di Pascal

uses wincrt;

var l,p,luas, kllp, r, luasl, kll : real;
   

const  phi = 3.14;

begin

writeln('Menghitung Luas & Keliling Persegi Panjang');
write('Panjang = ');
readln(p);
write('Lebar = ');
readln(l);

luas := p*l;
kllp := 2*(p+l);

writeln('Luas Persegi Panjang = ',luas:0:2);
writeln('Keliling = ',kllp:0:2);
writeln(' ');

writeln('========================');
writeln(' ');

writeln('Menghitung Luas & Keliling Lingkaran');
write('Jari-Jari = ');
readln(r);

luasl:= phi*r*r;
kll := 2*phi*r;

writeln('Luas Lingkaran = ',luasl:0:2);
write('Keliling Lingkaran = ',kll:0:2);

end.

Posted in: Pascal,Pemrograman,Script