Program perpustakaan dengan Pascal pada borland delphi 7

Berikut adalah sebuah program berbasis console yang saya buat memakai bahasa pascal dengan borland delphi 7. program ini tidak memakai database apapun. jadi untuk mengatasi masalah stock buku, maka diasumsikan bahwa stock buku yang tersedia tidak terbatas. karena masalah database juga, maka diprogram ini tidak dipermasalahkan pengembalian buku. 🙂 singkat cerita, program ini cuma bisa dipake untuk minjam dan menghitung jumlah pembayaran.. yah.. namanya juga sederhana.. 🙂 tapi yangterpenting adalah konsep-konsep dasar yang ada didalamnya… yups, jangan pernah malu untuk belajar dari dasar. toh seorang pelari terhebat pun berawal dari merangkak… hehhe..

uke, berikut screen shot program yang sedang kita bicarakan :

sedangkan untuk scriptnya…. monggo… dinikmati…
=================================begin===========================

weprogram perpustakaan;

{$APPTYPE CONSOLE}

uses
SysUtils;

Type
DataBku = record
judul : string;
End;

Procedure pembuka;
Begin
writeln;
Writeln(‘+————————————————+’);
Writeln(‘| Perpustakaan Pribadi Fahrizal |’);
Writeln(‘| =================================== |’);
Writeln(‘| Selamat Datang Di Perpustakaan Pribadi saya |’);
Writeln(‘| Sebagai Tambahan, Kunjungi situs Pribadi Saya: |’);
Writeln(‘| www.inilahjalanku.com |’);
Writeln(‘+————————————————+’);
writeln;
writeln;
End;

Function nominal(Biaya, x:integer):integer;
Var
Sewa:integer;
Begin
Sewa:= Biaya*x;
nominal:=Sewa;
End;

Procedure islam;
var
ArBku : array[1..5] of DataBku;
x, I, Biaya,harga:integer;
Begin
Writeln;
Writeln(‘Judul Buku Islami yang tersedia adalah : ‘);
Writeln(‘1. Kitab Tauhid (stok tak terbatas)’);
Writeln(‘2. Kitab Ibadah (stok tak terbatas)’);
Writeln(‘3. Kitab Muamalah (stok tak terbatas)’);
Writeln(‘4. Kitab Jihad (stok tak terbatas)’);
writeln;
Write(‘Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘);
readln (x);
Biaya:=2000;
harga:=nominal(Biaya,x);
Writeln(‘Masukkan judul buku yang hendak anda pinjam : ‘);
for I:=1 to x do
begin
Write(‘Buku ke-‘,I);write (‘ : ‘); readln(ArBku[I].judul);
end;
Writeln;
Writeln(‘Sekedar verifikasi, berikut ini adalah judul buku yang ingin anda pinjam :’);
for I:=1 to x do
begin
Writeln(‘Judul Buku : ‘,ArBku[I].judul);
end;
writeln;
writeln (‘Dengan Demikian, Biaya sewa yang harus anda bayar adalah : ‘);
writeln (‘Rp ‘,harga);
writeln;
end;

Procedure komputer;
var
ArBku : array[1..5] of DataBku;
x, I, biaya:integer;
Begin
Writeln;
Writeln(‘Judul Buku komputer yang tersedia adalah : ‘);
Writeln(‘1. Mahir Bahasa C (stok tak terbatas)’);
Writeln(‘2. Pemrograman Delphi (stok tak terbatas)’);
Writeln(‘3. DataBase Administrator (stok tak terbatas)’);
Writeln(‘4. Web Desaigner (stok tak terbatas)’);
writeln;
Write(‘Dari keempat buku tersebut, berapa buku yang ingin anda pilih ? : ‘);
readln (x);
biaya :=2000;
nominal(Biaya,x);
Writeln(‘Masukkan judul buku yang hendak anda pinjam : ‘);
for I:=1 to x do
begin
Write(‘Buku ke-‘,I);write (‘ : ‘); readln(ArBku[I].judul);
end;
Writeln;
Writeln(‘Sekedar verifikasi, berikut ini adalah judul buku yang ingin anda pinjam :’);
for I:=1 to x do
begin
Writeln(‘Judul Buku : ‘,ArBku[I].judul);
end;
writeln;
writeln (‘Dengan Demikian, Biaya sewa yang harus anda bayar adalah : ‘);
writeln (‘Rp. ‘,nominal(Biaya,x));
writeln;
end;



Procedure utama;
var
jnsbku:integer;
Begin
pembuka;
Writeln(‘Di Perpustakaan Saya Hanya Terdapat Dua Jenis Buku : ‘);
Writeln(‘1. Buku Islami’);
Writeln(‘2. Buku Tentang Komputer’);
Write(‘Buku Jenis Apa Yang Ingin Anda Pinjam (1/2)? :’);
readln(jnsbku);
case jnsbku of
1: islam;
2: komputer;
end;
end;

procedure penawaran;
var
ulang:char;
begin
while ulang <>’z’ do
begin
write(‘Ingin Meminjam Lagi (y/n) : ‘);
readln(ulang);
case ulang of
‘Y’,’y’: utama;
‘N’,’n’: exit;
end;
end;
end;

begin
{ TODO -oUser -cConsole Main : Insert code here }
utama;
penawaran;
write(‘Terima kasih…’);
Readln;
end.
================================end=======================

ato download aja exe nya beserta source di :



download disini