Program Kartu Perpustakaan
Header
Kartu Perpustakaan
{kartu peminjaman buku di
perpustakaan teknik industri}
Deklarasi:
Nama, nim, kode_buku, tanggal_pinjam, tanggal_kembali =
char
Deskripsi:
Begin
Writeln “-----------------------------------------------------------------------------“
Writeln “---Kartu Peminjaman Buku Perpustakaan Teknik
Industri---“
Writeln
“-----------------------------------------------------------------------------“
Writeln “-nama:-”
Read -nama-
Writeln “-nim-”
Read -nim-
Writeln “-kode buku-”
Read -kode_buku-
Writeln “-tanggal peminjaman-”
Read -tanggal_pinjam-
Writeln “-tanggal pengembalian-”
Read -tanggal_kembali-
Print “Terimakasih telah meminjam buku di perpustakaan
Teknik Industri”
Print “Mohon buku yang dipinjam dijaga dan dikembalikan
tepat waktu”
Print
“-------------------------------------------------------------------------------“
Print “Mohon Cetak Kartu”
Print “_________________________________________________”
Print “| Kartu Perpustakaan
TI|“
Print “|===============================================|”
Print “|Nama :”+nama.toUpperCase()+”|”
Print “|NIM :”+nim+”|”
Print “||”
Print “| ------------------
|”
Print “| | | |”
Print “| | | |”
Print “| | foto | |”
Print “|3x4
| |”
Print “| |
||”
Print “| |----------------|”
Print “|_______________________________________________|”
End
Program Pendaftaran Panitia
Header
Pendaftaran Panitia
{Pendaftaran Panitia
INDISCO tahun 2015}
Deklarasi:
Nama, umur, nomor_hp, angkatan, motivasi = char
Begin
Writeln “-----------------------------------------------------------------------------“
Writeln “--------Calon Panitia Indisco 2015--------“
Writeln “-----------------------------------------------------------------------------“
Writeln “masukan nama”
Read nama
Writeln “masukan umur”
Read umur
Writeln “masukan nomor hp”
Read nomor_hp
Writeln “masukan angkatan”
Read angkatan
Writeln “masukan motivasi”
Read motivasi
Print “Selamat (nama)
angkatan (angkatan) telah terdaftar sebagai calon panitia INDISCO 2015”
Print “Mohon cetak bukti pendaftaran berikut ini”
Print “___________________________________”
Print “|Bukti Pendaftaran Panitia INDISCO 2015 |”
Print “|==================================|”
Print “|Nama : “+nama.toUpperCase()+
“ |”
Print “||”
Print “|NIM :
“+nim+”|”
Print “||”
Print “|Umur :
“+umur+”|”
Print “| |”
Print “|Angkatan :
“+Angkatan+” |”
Print “| |”
Print “|__________________________________|”
End
Tidak ada komentar:
Posting Komentar