Program luas lingkaran

Berikut merupakan Program matematika, menggunakan rumus luas lingkaran menggunakan bahasa Pascal.

•  SOURCE CODE

Program luas_lingkaran;
uses crt;
const
   phi = 3.14;
var
   jari, luas : real;
begin
clrscr;
     jari := 10.0;
     luas := phi*jari*jari;
     writeln('HASIL');
     writeln('-----------');
     writeln('Jari-jari lingkaran : ',jari:6:2);
     writeln('Luas lingkaran      : ',luas:6:2);
readkey;
end.

• PENJELASAN SOURCE CODE

Program luas_lingkaran;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
const     {Konstanta}
   phi = 3.14;     {Nilai awal phi}
var     {Variabel}
   jari, luas : real;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
    jari := 10.0;     {Nilai awal jari}
    luas := phi*jari*jari;     {Counter perkalian luas}
    writeln('HASIL');     {Cetak HASIL}
    writeln('-----------');     {Cetak ----------}
    writeln('Jari-jari lingkaran : ',jari:6:2);     {Cetak Jari-jari lingkaran   :, variabel jari}
    writeln('Luas lingkaran     : ',luas:6:2);     {Cetak Luas lingkaran :, luas}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Luas lingkaran
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.