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 ',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;
Dan Berikut adalah Output Programnya
Output Program
Sekian Contoh Program Procedure Pascal dari Bang Jek ya , Nantikan postingan-postingan lainya dari Bang Jek See You 🙂
