Program Pascal Menentukan SKS sederhana


Hai Sahabat Blogger... Bagi yang kuliah Jurusan Sistem Informasi/Manajemen Informasi/Teknik Informatika, pasti tidak asing lagi dengan yang namanya pascal kan ???
Disini saya ingin berbagi contoh-contoh Program Pascal, silahkan bagi yang perlu bisa langsung dicopast script nya :)

Program Menentukan SKS sederhana
program menentukan_jumlah_sks;
uses wincrt;

var
   smt : char;
   nama,jur,nim : string[20];
   ip : integer;
   sks : string[12];
   z : char;
Begin
     writeln('               *****************************************');
     writeln('               ______Program untuk menentukan jumlah sks______');
     writeln('               ..................................................................................');
     writeln;
       write('                  NIM        : '); readln(nim);
       write('                  Nama       : '); readln(nama);
       write('                  Jurusan    : '); readln(jur);
       write('                  Semester   : '); readln(smt);
       write('                  IP         : '); readln(ip);
     writeln('               ------------------------------------------------------ ');
       If ip >= 3.50 then
          sks:= '24-25 SKS'
       else
           If ip>= 3.00 then
              sks:= '22-23 SKS'
           else
               If ip>= 2.50 then
                  sks:= '20-21 SKS'
               else
                   If ip>= 2.00 then
                      sks:= '18-19 SKS :):'
                   else
                       sks:= '16-17 SKS';
     writeln('                Berdasarkan IP yang anda peroleh, ');
     writeln('                Beban SKS maksimal semester berikutnya');
     writeln('                adalah ',sks);
     writeln('               *****************************************');
     writeln;
     writeln('               _________Program by Sakinah Lisdawati_________');
end .
Hasilnya akan tampil seperti gambar berikut !


Berhasil tidak ?? Jika belum berhasil, atau ada yang Error.. silahkan koment saja :)
Terimakasih telah berkunjung ke Blog Saya....

No comments:

Post a Comment