Modul !.2

Algoritma KRS

Deklarasi

nama, semester, peminatan ip_lalu, tahun, jumlah, nim, ipk, matkul_satu, matkul1, matkul2, matkul3, matkul4, matkul 5, sks1, sks2, sks3, sks4, sks5: string

Deskipsi

Begin

Writeln (“masukkan Nama: ”) ;

Read _ nama  ;

Writeln (“masukkan IP Lalu: ”) ;

Read _ ip_lalu  ;

Writeln (“masukkan Tahun: ”) ;

Read _ tahun  ;

Writeln (“masukkan NIM: ”) ;

Read _ nim ; 

Writeln (“masukkan Beban  Studi Maksimum: ”) ;

Read _ jumlah  ;

Writeln (“masukkan Semester: ”) ;

Read _ semester  ; 

Writeln (“masukkan Peminatan: ”) ;

Read _ peminatan  ;

Writeln (“masukkan IPK: ”) ;

Read _ ipk;

Writeln (“masukkan matkul1: ”) ;

Read (matkul1);

Writeln (“masukkan sks1: ”);

Read (sks1);

Writeln (“masukkan matkul2: ”) ;

Read (matkul2);

Writeln (“masukkan sks2: ”) ;

Read (sks2);

Writeln (“masukkan matkul3: ”) ;

Read (matkul3);

Writeln (“masukkan sks3: ”) ;

Read (sks3);

Writeln (“masukkan matkul4: ”) ;

Read (matkul4);

Writeln (“masukkan sks4: ”) ;

Read (sks4);

Writeln (“masukkan matkul5: ”) ;

Read (matkul5);

Writeln (“masukkan sks5: ”) ;

Read (sks5);

Writeln (“ maka KRS anda adalah :  “) ;

Writeln (“Nama : “ + nama ) ;

Writeln (“ IP_Lalu: “ + ip_lalu ) ;

Writeln (“ Tahun: “ + tahun ) ;

Writeln (“ NIM: “ + nim ) ;

Writeln (“Beban Studi Maksimum: “ + jumlah ) ;

Writeln (“ Semester: “ + semester ) ;

Writeln (“ Peminatan: “ + peminatan ) ;

Writeln (“ IPK: “ + ipk ) ;

Writeln (“No          KMK               Matkul          Kelas    SMT          Status         SKS”);

Writeln (“1          MPK206          “+matkul1+”        A         1                  B         “+sks1);

Writeln (“1          TKI203            “+matkul2+”        A         1                  B         “+sks2);

Writeln (“1          TKI209          “+matkul3+”        A         1                  B         “+sks3);

Writeln (“1          MWU210       “+matkul4+”        A         1                  B         “+sks4);

Writeln (“1          TKI205          “+matkul5+”        A         1                  B         “+sks5);

End