PASCAL

A.     SOURCE CODE

program perpustakaan;

uses wincrt;

const maks = 70;

type RecBuku= REcord

    Nama: string [10];

    Pengarang : string [15];

    Indeks: integer;

    end;

      var

      Buku : RecBuku;

      DafBuku : array[1..maks] of RecBuku;

      j,n: integer;

      pilih: char;

  begin

  repeat

         writeln('MENU PILIHAN');

         writeln('[T]. MENAMBAH BUKU');

         writeln('[H]. MENGHAPUS BUKU');

         writeln('[S]. SELESAI');

         writeln;

         write('PILIH MENU? '); readln(pilih);

   case pilih of

   'T' : begin

   write('BERAPA BUKU ? '); readln(n);

   for j:=1 to n do

   begin

       writeln('DATA KE- ',j);

       writeln('NAMA BUKU : '); readln(Buku.Nama);

       writeln('PENGARANG : '); readln(Buku.Pengarang);

       writeln('NOMOR INDEKS : '); readln(Buku.Indeks);

       DafBuku[j]:= Buku;

       end;

       end;

   'H': begin

   j:= j-1;

   end;

   end;

   until pilih= 'S';

   end.

B.     OUTPUT

C.     ANALISIS

Progam diatas digunakan untuk mengginputkan dan juga menghapus buku yang ada diperpustakaan,ada beberapa pilihan menu yang digunakan ,menambah buku (T) ,menghapus  buku (H)  dan selesai (S).Jika kita pilih T maka akan muncul berapa buku yang akan ditambah,dan muncul nama buku,pengarang,dan nomor indeks buku yang kita inputkan,banyaknya sesuai dengan apa yang kita inputkan dalam berapa buku?,dan jika kita pilih H maka akan menghapus buku yang telah kita inputkan 1 per 1,jika kita pilih S maka program akan berakhir.