Algoritma Menghitung Luas dan Keliling Lingkaran Menggunakan Turbo Pascal

Berikut ini adalah sintak untuk membuat program sederhana menghitung luas dan keliling lingkaran dengan menggunakan Turbo Pascal for Windows.

program menghitung_keliling_lingkaran ;

uses wincrt;

var

   k,r,l: real;

const

     phi = 3.14;

begin       

writeln('       Program Sederhana Menghitung Luas dan Keliling Lingkaran');

writeln;

writeln;

write ('masukkan Jari-Jari lingkaran= '); readln(r);

writeln;

k := 2*phi*r;

writeln('Keliling Lingkaran adalah= ',k:0:2);

writeln;

l := phi*r*r;

writeln('luas lingkaran adalah= ',l:0:2);

end.