Algortima menghitung Luas dan Keliling Lingkaran

Berikut adalah contoh dari algoritma untuk menghitung Luas dan Keliling lingkaran:

program menghitung_luas_dan_keliling_lingkaran;

uses crt;

const pi=3.14;

var r,L,k: real;

begin

ClrScr;

writeln;

writeln(' PROGRAM_KOMPUTER ');

Writeln(' Nama : Lia Amaliyah');

writeln(' NIM : 070821');

writeln(' Kelas : 4A');

readln; writeln;

writeln(' MENGHITUNG LUAS DAN KELILING LINGKARAN');

Writeln(' **************************************');

writeln;

write(' masukkan nilai r = ');

readln(r);

writeln;

L:=pi*r*r;

k:=2*pi*r;

writeln(' maka Luas lingkarannya adalah ', L:2:0);

writeln;readln;

writeln(' dan Keliling lingkarannya adalah ', k:2:0);

writeln;readln;

writeln(' ********* FINISH ********');

readln;

end.

(Hasilnya akan di dapat sebagai berikut ini)