Program Menghitung Luas dan Keliling Lingkaran
Script untuk membuat program luas dan keliling lingkaran
==============================
Program luas_dan_keliling_lingkaran;
Uses crt;
Var r : integer; luas,keliling : real;
Const phi = 3.14;
Begin
Write(‘masukkan jari jari lingkaran : ‘); readln(r);
Luas:=phi*(r*r);
keliling:=phi*2*r;
Writeln(‘luas lingkaran = ‘,luas);
writeln(‘keliling lingkaran = ‘,keliling);
End.