PROGRAM KARTU PERPUSTAKAAN

 PSEUDOCODE

NamaProgram :Algoritma_Formulir_Kartu_Perpustakaan_Universitas_Diponegoro

{ FormulirPembuatanKartuPerpustakaanUniversitasDiponegoro }

Deklarasi :

Nama,ttl,alamat,jns_klmin,nmr_tlp,email,nim,prostud,fak,berlaku,lanjut,kode_buku,jlh_buku,pinjam,kembali= char

Deskrpsi :

Begin

Writeln( “FORMULIR  KARTU PERPUSTAKAAN  “ )

Writeln( “UNIT PELAYANAN TERPADU PERPUSTAKAAN “ )

Writeln  ( “UNIVERSITAS DIPONEGORO “)

Writeln  ( “SEMARANG “)

Writeln  ( “Nama : “)

Read ( “nama” )

Writeln( “NIM : “ )

Read ( “nim” )

Writeln( “Program Studi : “)

Read (“progstud”)

Writeln( “Fakultas : “ )

Read ( “fak”)

Writeln(“Tempat,Tanggal lahir : “)

Read(“ttl”)

Writeln(“Jenis Kelamin :”)

Read(“jns_klmin”)

Writeln("Nomor Telepon :")

Read ( “nmr_tlp”)

Writeln( “Email : “ )

Read(“email”)

Writeln("Berlaku hingga :  ")

Read(“berlaku : “)

Wruteln(“Dengan ini saya menyatakan bahwa data yang saya isi adalah sebenar-benarnya data. Apabila dikemudian hari diketahui data tersebut tidak benar dan saya melanggar peraturan perpustakaan, maka saya siap menerima sanksi dari tingkat Fakultas ataupun Universitas”)

Writeln("Lanjut? :  ")

Read(“lanjut”)

Writeln( “TerimaKasih "+ nama.toUpperCase() + ", Anda telah bergabung dengan UPT Perpustakaan  Universitas Diponegoro “ )

Writeln("Nomor Anggota anda : 2108277276 ")

Writeln( “Keterangan Peminjaman“ )

Writeln("Kode Buku : ")

Read(“kode_buku”)

Writeln("Jumlah Buku yang Dipinjam : ")

Read(“jlh_buku”)

Writeln( “Tanggal Peminjaman : “ )

Read ( “pinjam”)

Writeln( “Tanggal Pengembalian : “ )

Read ( “kembali”)

Writeln(""+ nama.toUpperCase()+", Anda telah meminjam buku "+ kode_buku.toUpperCase()+"")

Writeln("Jumlah buku yang anda pinjam : "+jlh_buku+"")

Writeln("Tanggal Pengembalian :"+ kembali+"")

Writeln("Waktu pengembalian paling lama adalah 2 minggu. Keterlambatan pengembalian buku akan dikenakan denda Rp1000/hari")

Writeln("***********************TERIMAKASIH************************")

End

FLOWCHART

 Program dapat di download di sini