Program Perpustakaan Standar

uses wincrt;

Type

DataBku = record

judul : string;

End;

Procedure pembuka;

Begin

writeln;

Writeln('-----------------');

Writeln('| Perpustakaan Bima Sakti |');

Writeln('| =================================== |');

Writeln('| Selamat Datang Di Perpustakaan Pribadi Saya |');

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.