Program Data Mahasiswa 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 Data Mahasiswa sederhana
program data_mhs;
uses wincrt;
var

   I,N    :integer;
   nim    :string[12];
   nama   :string[20];
   takad  :string[10];
   smt    :string[3];
   prodi  :string[22];
   ip     :real;
   sks    :string[9];
begin
     writeln('* Data Mahasiswa STMIK Palangkaraya *');
     writeln;
     write  ('Masukkan jumlah data Mahasiswa  : ');readln(N);
     writeln;
     For i:= 1 to N do
     begin
        writeln;
        writeln('        Data Mahasiswa ke-',i);
        writeln('======================================');
          write('NIM            : '); readln(nim);
          write('Nama           : '); readln(nama);
          write('Tahun Akademik : '); readln(takad);
          write('Semster        : '); readln(smt);
          write('Program Studi  : '); readln(prodi);
          write('Indeks Prestasi: '); readln(ip);
     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('Sks Maksimal   : ', sks);
       writeln('_______________________________________');
       end;
       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