-->

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
HALAMAN SELANJUTNYA:

1 Response to "Contoh Program Procedure Pada Pascal"

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel

PEMBERITAHUAN...!!!!!

Untuk Berlangganan Artikel Terbaru !!

Website ini pindah ke Website :.
IKAMPUS.MY.ID