Contoh Program Procedure Pada Pascal

Program procedure dalam pascal adalah pemprograman dengan menggunakan bahasa pascal dengan menggunakan bantua struktur procedure. Jadi procedure  itu sendiri adalah sebuah salah satu struktur penulisan yang ada dalam penulisan program dengan menggunakan bahasa pasca. Penggunaan procedure ini sebenarnya sama dengan penggunaan function pada pascal.  Tujuan dari penggunaan procedure dalam pascal adalah untuk mempermudah dan mempersingkat programer dalam membuat program, khususnya untuk program yang membutuhkan analisa tinggi. Jika dalam postingan sebelumnya telah disampaikan mengenai seleksi kondisi sekarang akan disampaikan mengenai procedur dalam pascal.

contoh procedure dalam pascal

Secara keseluruhan setiap struktur program pastilah ada ciri khasnya masing masing, begitu juga jika anda akan menggunakan struktur procedure sebagai acuan anda dalam menulis sebuah skrip program.pembuatan program procedur dalam pascal secara umum adalah sebagai berikut .

Listing Program

program contohrecord_menggunakanprocedure;

uses crt;

type rekam=record

     nim:string[10];

     nama:string;

     ip:real;

     end;

     larik=array[1..100] of rekam;

var mhs:larik;

    i,jummhs:byte;

procedure isidata(var x:larik);

var ya:boolean; jwb:char;

begin

{mengisi dengan repeat until}

i:=0;

ya:=true;

repeat

begin

     i:=i+1;

     writeln('mengisi data mahasiswa ke  ',i:4);

     with x[i] do

     begin

          clrscr;

          write('NIM    =  ');readln(nim);

          write('NAMA   =  ');readln(nama);

          write('IP     =  ');readln(ip);

     end;

     write('mau mengisi lagi(y/t)? ');readln(jwb);

     if jwb <> 'y' then ya:=false;

end

until( not ya);

 jummhs:=i;

end;

procedure tampil(var x:larik);

begin

 writeln;

 writeln('------------------------------------------------------');

 writeln(' NO        NIM               NAMA       IP');

 WRITELN('------------------------------------------------------');

  for i:=1 to jummhs do writeln(i:3,x[i].nim:6,x[i].nama:20,x[i].ip:10:2);

 writeln('------------------------------------------------------');

 readln;

end;

begin

writeln(' contoh penggunaan procedure');

writeln(' mengisi di procedure');

isidata(mhs);

writeln ('menampilkan di procedure');

tampil(mhs);

end.

tampil(mhs);

readln;

Output Program

Artikel terkait :