Contoh Program Procedure Pada Pascal Mudah

Hai Sobat Kampus, hari ini Bang Jek akan membagikan Contoh Program Procedure Pada Pascal yang cukup mudah,

sebelumnya Bang Jek akan menjelaskan apa sih Program procedure itu ?

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.

Nah Sudah Paham kan sekarang Pengertian Program Procedure , sekarang Bang Jek Akan memberikan contohnya.

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 dari Bang Jek adalah sebagai berikut :

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&nbsp;&nbsp;',i:4);

with x[i] do

begin

clrscr;

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

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

write('IP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&nbsp;&nbsp;');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&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NIM&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NAMA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;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;

Dan Berikut adalah Output Programnya

Output Program