Program Perpustakaan Dengan Pascal

Pada posting saya kali ini berbicara tentang program perpustakaan, dimana dalam program ini ada fitur-fitur seperti input sekaligus simpan pada variabel sementara, pengurutan, dan pencarian. Sementara ini tidak saya jelaskan dan definisikan program ini secara spesifik, berhubung saat waktu saya posting artikel ini saya sedang ada kesibukan kuliah. Hehe.. Untuk lebih jelasnya dapat melihat langsung tampilan output dibawah ini :

Gambar tampilan output program perpustakaan

Scriptnya ada dibawah ini :

Program Perpustakaan; Uses crt; Const nmax = 70; Type perpus = record kode_buku : integer; judul : string; pengarang : string; jenis_buku : string; End; tabel = array [1..nmax] of perpus; Var a : tabel; N,temp,i,j : longint; temp2,temp3, temp4 : string; no, ni : string; Procedure insertionsort(var c:tabel ; N :longint; x:longint); var i:longint; begin for j :=2 to n do begin temp:=c[j].kode_buku; temp2:=c[j].judul; temp3:=c[j].pengarang; temp4:=c[j].jenis_buku; i:=j-1; begin while ((temp < c[i].kode_buku) and (i>1)) do begin c[i+1].kode_buku:=c[i].kode_buku; c[i+1].judul:=c[i].judul; c[i+1].pengarang:=c[i].pengarang; c[i+1].jenis_buku:=c[i].jenis_buku; i:=i-1; end; if (temp<c[i].kode_buku) then begin c[i+1].kode_buku:=c[i].kode_buku; c[i+1].judul:=c[i].judul; c[i+1].pengarang:=c[i].pengarang; c[i+1].jenis_buku:=c[i].jenis_buku; i:=i-1; end; c[i+1].kode_buku:=temp; c[i+1].judul:=temp2; c[i+1].pengarang:=temp3; c[i+1].jenis_buku:=temp4; end; end; end; Procedure sequensialsearch(var a:tabel; N :longint; x:string ;var isearch:longint); Var i:longint; Begin if (N = 0) then isearch:=0 else begin i:=1; while ((a[i].pengarang < x) and (i < N)) do i:=i+1; if (a[i].pengarang = x) then begin writeln; writeln('-------------------------------------'); writeln('--- HASIL PENCARIAN ---'); writeln('-------------------------------------'); writeln('Kode Buku : ',a[i].kode_buku); writeln('Judul Buku : ',a[i].judul); writeln('Pengarang : ',a[i].pengarang); writeln('Jenis Buku : ',a[i].jenis_buku); writeln('-------------------------------------'); writeln; end else writeln('Data tidak ditemukan!!!'); end; end; Procedure sequensialsearchx(var a:tabel; N :longint; x:string;var isearch:longint); Var i:longint; Begin if (N = 0) then isearch:=0 else begin i:=1; while ((a[i].jenis_buku < x) and (i < N)) do i:=i+1; if (a[i].jenis_buku = x) then begin writeln; writeln('-------------------------------------'); writeln('--- HASIL PENCARIAN ---'); writeln('-------------------------------------'); writeln('Kode Buku : ',a[i].kode_buku); writeln('Judul Buku : ',a[i].judul); writeln('Pengarang : ',a[i].pengarang); writeln('Jenis Buku : ',a[i].jenis_buku); writeln('-------------------------------------'); writeln; end else writeln('Data tidak ditemukan!!!'); end; end; procedure menu_utama; label may; var ulang : char; pilih : integer; begin may: repeat clrscr; writeln('-------------------------------------'); writeln('--- PROGRAM RESPONSI ---'); writeln('-------------------------------------'); writeln('--- 1. Input Data ---'); writeln('--- 2. Selection Sort ---'); writeln('--- 3. Sequensial Search ---'); writeln('--- 4. Exit ---'); writeln('-------------------------------------'); write('Pilih Menu (1/2/3/4) : ');readln(pilih); writeln; case pilih of 1:begin write('Masukkan jumlah data : ');readln(n); writeln; for i:=1 to n do begin writeln('Data Perpustakaan ke - ',i,' : '); write('Kode Buku : ');readln(a[i].kode_buku); write('Judul Buku : ');readln(a[i].judul); write('Pengarang : ');readln(a[i].pengarang); write('Jenis Buku : ');readln(a[i].jenis_buku); writeln; end; goto may; end; 3:begin repeat clrscr; writeln('Pilih Pencarian Sequensial berdasarkan Pengarang / Jenis Buku'); writeln('1.Pencarian Sequensial Berdasarkan Pengarang'); writeln('2.Pencarian Sequensial Berdasarkan Jenis Buku'); write('Pilih Pencarian (1/2) : ');readln(pilih); writeln; case pilih of 1: begin writeln('-------------------------------------'); writeln('--- INPUT DATA ---'); writeln('-------------------------------------'); for i:=1 to n do begin writeln('Kode Buku : ',a[i].kode_buku); writeln('Judul Buku : ',a[i].judul); writeln('Pengarang : ',a[i].pengarang); writeln('Jenis BUku : ',a[i].jenis_buku); writeln; writeln('-------------------------------------'); end; for i:=1 to n-1 do begin for j:= 1 to n-i do begin if (a[j].pengarang) > (a[j+1].pengarang) then begin temp:=a[j].kode_buku; temp2:=a[j].judul; temp3:=a[j].pengarang; temp4:=a[j].jenis_buku; a[j].kode_buku:=a[j+1].kode_buku; a[j].judul:=a[j+1].judul; a[j].pengarang:=a[j+1].pengarang; a[j].jenis_buku:=a[j+1].jenis_buku; a[j+1].kode_buku:=temp; a[j+1].judul:=temp2; a[j+1].pengarang:=temp3; a[j+1].jenis_buku:=temp4; end; end; end; write('Masukkan Pengarang yang akan dicari : ');readln(ni); sequensialsearch(a,n,ni,i); end; 2:begin writeln('-------------------------------------'); writeln('--- INPUT DATA ---'); writeln('-------------------------------------'); for i:=1 to n do begin writeln('Kode Buku : ',a[i].kode_buku); writeln('Judul Buku : ',a[i].judul); writeln('Pengarang : ',a[i].pengarang); writeln('Jenis BUku : ',a[i].jenis_buku); writeln; writeln('-------------------------------------'); end; for i:=1 to n-1 do begin for j:= 1 to n-i do begin if (a[j].jenis_buku) > (a[j+1].jenis_buku) then begin temp:=a[j].kode_buku; temp2:=a[j].judul; temp3:=a[j].pengarang; temp4:=a[j].jenis_buku; a[j].kode_buku:=a[j+1].kode_buku; a[j].judul:=a[j+1].judul; a[j].pengarang:=a[j+1].pengarang; a[j].jenis_buku:=a[j+1].jenis_buku; a[j+1].kode_buku:=temp; a[j+1].judul:=temp2; a[j+1].pengarang:=temp3; a[j+1].jenis_buku:=temp4; end; end; end; write('Masukkan Jenis Buku yang akan dicari : ');readln(no); sequensialsearchx(a,n,no,i); end; end; write('Ingin Memilih pencarian berdasarkan Pengarang / Jenis Buku lagi (Y/T) : ');readln(ulang); until upcase(ulang) <> 'Y'; end; 2:begin writeln('-------------------------------------'); writeln('--- PENGURUTAN DATA ---'); writeln('-------------------------------------'); insertionsort(a,i,j); for i:=1 to n do begin writeln('Kode Buku : ',a[i].kode_buku); writeln('Judul Buku : ',a[i].judul); writeln('Pengarang : ',a[i].pengarang); writeln('Jenis BUku : ',a[i].jenis_buku); writeln; writeln('-------------------------------------'); end; readkey; goto may; end; 4:Begin Delay(400); gotoxy(24,9);writeln('Program will exit, wait a momment...'); Delay(3600); end; end; until pilih=4; end; begin menu_utama; end.

Catatan :

• Program ini dapat di modifikasi isinya bahkan keselurahan penggunaan program, misalnya untuk penjualan motor sesuai kebutuhan
• Untuk praktikum Kelas O silahkan gunakan script ini sebagai bahan responsi, dan silahkan di rubah data/nama variabel sesuai dengan soal yang telah di sepakati.
• Bila ada pertanyaan dapat di tulis pada bagian kolom komentar di bawah post in.

Semoga bermanfaat...