Program Rumus Lingkaran

Berikut adalah contoh program mengenai rumus lingkaran, yang di buat dengan "Turbo Pascal for Windows" . Program ini bisa di pakai untuk mencari luas dan keliling lingkaran (sebagai output) hanya dengan memasukkan panjang jari-jari (sebagai input), juga bisa di pakai untuk mencari panjang busur pada lingkaran (sebagai output) dengan memasukkan besar sudut busur (sebagai input).
Silahkan memasukkan program seperti berikut :

program lingkaran;
uses wincrt;
var
 r, luas, keliling, busur, d:real;
 const phi=3.14;
begin
 writeln('PROGRAM RUMUS LINGKARAN');
 writeln('_______________________');
 writeln;
 writeln;
 write('Masukan nilai jari-jari : r = ');readln(r);
 write('Masukan sudut busur     : d = ');readln(d);{ 0 < d < 360 }
 
 luas:=phi*r*r;                                                     
 keliling:=2*phi*r;
 busur:=(d/360)*keliling;
 d:=(busur/keliling)*360;
 writeln;
 writeln('Jadi nilai :');
 writeln;
 writeln('            Luas lingkaran     = ',luas:9:2);
 writeln('            Keliling lingkaran = ',keliling:9:2);
 writeln;
 writeln('            Panjang busur      = ',busur:9:2);
 writeln;
 writeln('_______________________');readln;
 donewincrt
end.

Berikut contoh tampilan program nya:

Semoga berhasil.