Algoritma Dasar : “Program Menghitung Keliling Lingkaran”

Berikut adalah sebuah program pascal sederhana, menghitung keliling lingkaran :
uses wincrt;
var k,r: real;
const  phi = 3.14;
begin
writeln(‘Menghitung Keliling Lingkaran’);
write(‘Jari-Jari = ‘);
readln(r);
k := 2*phi*r;
write(‘Keliling Lingkaran = ‘,k:9:2);
end.
Keterangan :
uses wincrt : fungsi standar untuk program sederhana dalam pascal.
var r dan k : mendeklarasikan variabel jari-jari dengan simbol r dan variabel keliling yang akan digunakan untuk menyimpan data keliling.
const phi = 3.14 : constanta untuk phi adalah 3.14 dan nilainya tetap
begin : memulai awal program
writeln : fungsi dalam pascal untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)
readln(r) : menyimpan data input dari keyboard dalam variabel r
keliling := phi*(2*r) : penulisan rumus keliling lingkaran dalam pascal
keliling:9:2 : menampilkan data keliling dengan max 9 karakter didepan tanda koma dengan 2 angka dibelakang koma.
readln : menahan tampilan agar tidak secepat kilat
end. : akhir dari program pascal.