Program referensi belajar procedure

Berikut merupakan Program referensi belajar procedure menggunakan bahasa Pascal dengan menggunalan statement PROCEDURE.

• SOURCE CODE

Program Procedure_reference;
uses crt;
var
   a, b, c : integer;
   Procedure Coba(x,y:integer; var z : integer);
begin
clrscr;
     x := x+1;
     y := y+1;
     z := x+y;
end;
begin
      a:=2; b:=3;c:=0;
      Coba(a,b,c);
      writeln('a = ',a);
      writeln('b = ',b);
      writeln('c = ',c);
readkey;
end.

• PENJELASAN SOURCE CODE

Program Procedure_reference;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   a, b, c : integer;     {Inisiasi variabel}
   Procedure Coba(x, y : integer; var z : integer);     {Inisiasi procedure}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     x := x+1;     {Counter penjumlahan x}
     y := y+1;     {Counter penjumlahan y}
     z := x+y;     {Counter penjumlahan z}
end;     {Akhir instruksi program}
begin     {Awal instruksi program}
     a :=2;      {Nilai awal a}
     b:=3;      {Nilai awal b}
     c:=0;      {Nilai awal c}
     Coba(a,b,c);     {Procedure}
     writeln('a = ',a);     {Cetak a =, variabel a}
     writeln('b = ',b);     {Cetak b =, variabel b}
     writeln('c = ',c);     {Cetak c =, variabel c}
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           : Referensi belajar procedure
• 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.