Program Pascal Mencari KEliling Lingkaran

Program Pascal Mencari KEliling Lingkaran

Berikut adalah contoh Program Pascal Mencari KEliling Lingkaran

1. Program
program MencariKelilingLingkaran;
uses crt;
var
   r,keliling: real;
begin
     clrscr;
     Writeln('Program Mencari Keliling Lingkaran');
     Write('Input nilai jari-jari      =');readln(r);
     Keliling :=2*3.14*r;
     Write('Nilai Keliling Lingkaran =',keliling:0:0);
     readln;
end.

2. Program pada Pascal