:: Source Code Program ::

:: Source Code Program ::

Program PendataanBuku;

uses wincrt;

Const Maks = 70;

Type RecBuku = REcord

             Kode: String[15];

             Judul: String[15];

             Eks: integer;

             Harga:real;

    End;

Var

  Buku : RecBuku;

  DafBuku : Array[1..Maks] of RecBuku;

  j,i,Cacah: integer;

  Pilih : Char;

Begin

Repeat

Writeln( 'Menu Pilihan');

Writeln('[1]. Memasukkan Data Buku ');

Writeln('[2]. Lihat Daftar Buku');

Writeln('[3]. Selesai');

Writeln;

Write('Pilihlah Proses: '); Readln(Pilih);

Case Pilih of

 '1' : begin

      Write('Berapa Buku ?') ; Readln(Cacah);

         For j:=1 to Cacah do

      Begin

      Writeln('No ',j);

            Write('Kode Buku :'); Readln(Buku.Kode);

            Write('Judul Buku :'); Readln(Buku.Judul);

            Write('Eksemplar :'); Readln(Buku.Eks);

            Write('Harga Buku :'); Readln(Buku.Harga);

            DafBuku[j]:=Buku;

            end;

      writeln('==================================================================');

      writeln('No    Kode Buku        Judul Buku      Eksemplar   Harga Buku');

      writeln('==================================================================');

          For i:=1 to Cacah do

         writeln(i:4,Buku.Kode:15,Buku.Judul:15,'   ',Buku.Eks:10,'     ',Buku.Harga:5);

         DafBuku[i]:=Buku;

      writeln('==================================================================');

      readln;

      End;

  '2': begin

      end; end;

  until pilih='3';

  End.

:: Analisis ::

 waktu program di jalankan, maka akan muncul tampilan berupa menu pilihan, kemudian muncul perintah untuk memasukkan pilihan tersebut, dan program akan melakukan proses sesuai pilihan yang di pilih, misal kita pilih no 1, maka akan muncul pilihan untuk menginputkan data buku. Yang pertama kita harus memasukkan jumlah buku yang akan di inputkan, sebagai batasan perulangan yang akan di lakukan. Misal kita masukkan 2 pada jumlah buku, maka program akan melakukan sebanyak 2 kali perulangan untuk memasukkan data buku. Kemudian data yang sudah di masukkan akan di cetak dalam bentuk tabel.