Pengisian Formulir Peminjaman Buku di Perpustakaan Umum Daerah Ungaran

Pseudocode Pengisian Formulir Peminjaman Buku di Perpustakaan Umum Daerah Ungaran (Tugas 2)

Header:

Program Formulir_Peminjaman_Buku_di_Perpustakaan_Umum_Daerah_Ungaran

Input nama, NIK/ NISN,  umur , no telepon, judul buku, kode buku, tanggal peminjaman, bulan peminjaman, tahun peminjaman

 {Mengisi data diri dalam Formulir Peminjaman Buku di  Perpustakaan Umum Daerah Ungaran}

Declaration:

Program input/output formulir peminjaman buku

nama, NIK/ NISN,  umur , no telepon, judul buku, kode buku, tanggal peminjaman, bulan peminjaman, tahun peminjaman: char

Deskripsi:

Begin

                Writeln “PEMERINTAH KABUPATEN SEMARANG”

                Writeln “KANTOR PERPUSTAKAAN DAN ARSIP DAERAH”

Writeln “ ALAMAT JALAN MAYJEND SUTOYO NOMOR 77 UNGARAN 50511 TELEPON (024)6921128”

Writeln "**********************************************"

 Writeln"         KARTU ANGGOTA PERPUSTAKAAN"

 Writeln"**********************************************"

                Writeln “Nama: “

                Read Nama

                Writeln “NIK/NISN: “

                Read NIK/NISN

                Writeln “No Telepon: “

                Read No Telepon

                Writeln “Umur: “

                Read Umur

                Writeln “Alamat: “

                Read alamat

Writeln"**********************************************"

 Writeln"             BUKU YANG DIPINJAM"

 Writeln"**********************************************"

                Writeln “Judul Buku: “

                Read Judul Buku

                Writeln “Kode Buku:  “

                Read Kode Buku

                Writeln “Tanggal Peminjaman: “

                Read Tanggal Peminjaman

                Writeln “Bulan Peminjaman: “

                Read Bulan Peminjaman

                Writeln “Tahun Peminjaman:  ”

                Read Tahun Peminjaman

                Writeln”==================================================”

                Writeln”CETAKDATA”

                Writeln”==================================================”

                Writeln “PEMERINTAH KABUPATEN SEMARANG”

                Writeln “KANTOR PERPUSTAKAAN DAN ARSIP DAERAH”

Writeln “ ALAMAT JALAN MAYJEND SUTOYO NOMOR 77 UNGARAN 50511 TELEPON (024)6921128”

Writeln "**********************************************"

 Writeln"         KARTU ANGGOTA PERPUSTAKAAN"

 Writeln"**********************************************"

Writeln "Nama: "+ nama

 Writeln "NIK/NISN: "+ niknisn

 Writeln "Umur: "+ umur

 Writeln "No Telepon: "+ notelepon

Writeln"**********************************************"

 Writeln"             BUKU YANG DIPINJAM"

 Writeln"**********************************************"

Writeln "Judul Buku: "+ judulbuku

 Writeln "Kode Buku : "+ kodebuku

Writeln "Tanggal Peminjaman"+ tanggalpeminjaman +" "+ bulanpeminjaman+" " + tahunpeminjaman

 Writeln "Tanggal Pengembalian: 7 hari setelah peminjaman "

                Writeln “Keterlambatan Pengembalian dikenakan denda RP3000/hari”

                Writeln “Terimakasih atas Tanggung Jawab Anda,+ nama ”

               

End

         

flowchart:

 

Screenshoot running Peminjaman_Buku_di_Perpustakaan: