Pseudocode Algoritma KTP dan KRS Offline

Algoritma Registrasi_KTP

{Algoritma untuk menampilkan ktp dengan menginputkan format yang ada di ktp}

Deklarasi

NIK, Nama, Tempat lahir, Tanggal lahir, Bulan lahir, Tahun lahir, Jenis kelamin, Gol darah, Alamat,Rt, Rw, Desa, Kelurahan, Kecamatan, Agama, Status kawin, Pekerjaan, Kewarganegaraan : String

Tahun pembuatan, Berlaku hingga : integer

Deskripsi

Writeln(“--------------------“)

Writeln(“Registrasi KTP”)

Writeln(“--------------------“)

Write(“Tahun Pembuatan: “)

Read(Tahun_pembuatan)

Write(“NIK : ”)

Read(NIK)

Write(“Nama : “)

Read(Nama)

Write(“Tempat Lahir : “)

Read(Tempat_lahir)

Write(“Bulan Lahir : “)

Read(Bulan_lahir)

Write(“Tahun Lahir : “)

Read(Tahun_lahir)

Write(“Jenis Kelamin : “)

Read(Jenis_kelamin)

Write(“Gol. darah : “)

Read(Gol_darah)

Write(“Alamat : “)

Read(alamat)

Write(“RT : “)

Read(RT)

Write(“RW : “)

Read(RW)

Write(“Desa : “)

Read(Desa)

Write(“Kelurahan : “)

Read(kelurahan)

Write(“Kecamatan : “)

Read(kecamatan)

Write(“Agama : “)

Read(Agama)

Write(“Status Kawin : “)

Read(Status_kawin)

Write(“Pekerjaan : “)

Read(Pekerjaan)

Write(“Kewarganegaraan : “)

Read(Kewarganegaraan)

Berlaku_hingga                                 Tahun_pembuatan +5

Write(“Berlaku  hingga : “)

End

Algoritma KRS_OFFLINE

{Algoritma untuk menampilkan format KRS}

Deklarasi

Nama    :string

NIM       :string

DosenPembimbing         :string

Deskripsi

Write(“MasukkanNamaAnda : “)

Read(Nama)

Write(“NIM Anda : “)

Read(NIM)

Write(“DosenPembimbing : “)

Read(Dosen_Pembimbing)

Writeln("-----------------------------------------------------------------------------------------------------------------------")

Writeln("| NO |   KMK    |            Mata Kuliah                                  |  Kelas   |   SMT  |  Status  |   SKS   |")

Writeln("-----------------------------------------------------------------------------------------------------------------------")

Writeln("| 1  |   MPK206 | Bahasa Inggris 1           |          |    1   |    B      |    2    |" )

Writeln ("| 2  |   TKI203 | Fisika Dasar   1                                      |              |       1    |       B      |    2    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 3  |   TKI209 | Pengantar Teknik Industri                  |          |       1   |       B      |    3    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 4  |   MWU210 | Teknologi Informatika                    |          |    1   |     B    |    2    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 5  |   TKI205 | Kalkulus 1                                 | |    1   |     B    |    3    |");

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 6  |   TKI211 | Menggambar Teknik                          |        |    1   |     B    |    3    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 7  |   TKI201 | Pendidikan Lingkungan                      |          |    1   |     B    |    2    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("| 8  |   TKI207 | Material teknik                            |          |    1   |     B    |    2    |")

Writeln ("----------------------------------------------------------------------------------------------------------------------")

Writeln ("                                                                                  Jumlah SKS:   19 ")

End