Menghitung Luas Dan Keliling Lingkaran Sekaligus Dengan Turbo Pascal

uses crt;
var
   r: integer;
   L,K: real;
   const phi = 3.14;

begin
     clrscr;
     writeln('Menghitung L & K Lingkaran');
     writeln('--------------------------');
     write('Input Jari-jari(r): ');readln(r);

     L := phi*r*r;
     K := 2*phi*r;
     writeln('');
     writeln('Luas Lingkaran: ',L:0:2);
     writeln('Keliling Lingkarang: ',K:0:2);
     readln;
end.

Hasilnya sebagai berikut.

Tweet