Cara membuat program untuk menghitung luas & keliling lingkaran

Pada kesempatan kali ini, saya akan sharing tentang bagaimana cara untuk membuat program sederhana menggunakan bahasa pemrograman pascal. Sebagai contoh, kali ini saya akan membuat program untuk menghitung luas & keliling lingkaran. Langkah pertama yang harus dilakukan adalah menentukan variabel, tipe data, & rumus matematiknya. kemudian tuliis kode program seperti berikut :

program lingkaran;
uses wincrt;
var
   r : real;
   luas,kll : real;
begin
   writeln('Program Menghitung Luas & Keliling Lingkaran');
   writeln('----------by. Muhammad Khoirul Umam----------');
   writeln;
   write('Masukkan jari-jari = ');readln(r);
   writeln; 
luas := 3.14*r*r;
kll := 2*3.14*r;
   writeln('Luas      = ',luas:3:2);
   writeln('Keliling  = ',kll:3:2);
   writeln;
end.

atau anda bisa membuat sebuah program lain, seperti program untuk menghitung Volume Kubus berikut ini :

program kubus;
uses wincrt;
var
   s,vol : integer;
begin
   writeln('Program Menghitung Volume Kubus');
   writeln('--------------  by. Umam  --------------');
   writeln;
   write('Masukkan sisi = ');readln(s);
   writeln; 
vol := s*s*s;
   writeln('Volume = ',vol);
   writeln; 
end.

atau anda bisa membuat program seperti yang satu ini :

program persegi_panjang;
uses wincrt;
var
   p,l,t := integer;
   luas,kll : = integer;
begin
   writeln('Program Menghitung Luas & Keliling Persegi Panjang');
   writeln('------------------- by. M. K. Umam -----------------------');
   writeln;
   write('Masukkan Panjang = ');readln(p);
   write('Masukkan Lebar    = ');readln(l);
   write('Masukkan Tinggi    = ');readln(t);
   writeln; 
luas := p*l*t;
kll := 2*p+2*l+2*t;
   writeln('Luas      = ',luas);
   writeln('Keliling  = ',kll);
   writeln; 
end.