Program Input Data Mahasiswa

program Input_Data_Mahasiswa;
uses wincrt;
type tbl_mhs=record
nim :longint;
nama :string;
nilai,i,n:integer;
huruf :char;
end;





 var
  mhs:array[1..10]of tbl_mhs;
  a,b,ke,jum:integer;
  tukar     :tbl_mhs;
  pilih     :char;
  posisi    :array[1..10]of integer ;
nama : array [1..10]of string;
nilai : array [1..5] of integer;
predikat: array [1..5] of string;
ket : array [1..5] of string;

  begin
    clrscr;
    writeln('     Program Inputan Data Mahasiswa antiQista     ');
    writeln;
    write('Masukkan Banyaknya Mahasiswa = ');readln(jum);

repeat
ke:=ke+1;
writeln;
writeln('Inputkan Data Mahasiswa Ke ',ke,' ');
write('NIM   : ');readln(mhs[ke].nim);
write('NAMA  : ');readln(mhs[ke].nama);
write('NILAI : ');readln(mhs[ke].nilai);
 if mhs[ke].nilai >= 90 then mhs[ke].huruf := 'A' else
 if mhs[ke].nilai >= 75 then mhs[ke].huruf := 'B' else
 if mhs[ke].nilai >= 50 then mhs[ke].huruf := 'C' else
 if mhs[ke].nilai >= 40 then mhs[ke].huruf := 'D' else
 mhs[ke].huruf := 'E' ;

Untuk SouceCode yang lengkap, kalian bisa download di sini :D
=> download

Penulis : G I O ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Program Input Data Mahasiswa ini dipublish oleh G I O pada hari Rabu, 14 Desember 2011. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Program Input Data Mahasiswa