Program Record Data Mahasiswa

Silahkan di pelajari,,
download filenya disini.....!



Program record_mahasiswa;
uses crt;
   type d_mhs=record
        npm:integer;
        nilai:integer;
   end;
var
   data:d_mhs;
   nama:string[25];
   i,hasil:integer;
   jumdata:integer;
begin
   with data do
begin
   writeln('Program Penginputan Data Mahasiswa');
   writeln('====================================');writeln;
   write('N P M       : ');readln(npm);
   write('Nilai       : ');readln(nilai);
end;
    clrscr;
    writeln('---------------------------------------');
    writeln('No NPM        Nama    Nilai  Keterangan');
    writeln('---------------------------------------');
  for i:=1 to 2;
   if npm:=14110875 do
      nama:='Kaldius';
   else
       nama:='Diusman';
   if nilai[i]:>=50 do
      ket:='Lulus';
   else ket:='Tidak Lulus';
   gotoxy(1,4+i);writeln('',i);
   gotoxy(3,4+1);writeln('',npm[i]);
   gotoxy(12,4+i);writeln('',nama);
   gotoxy(20,4+i);writeln('',nilai[i]);
   gotoxy(27,4+i);writeln('',ket);
end;
    writeln('---------------------------------------');
    readln;
end.

Semoga bermanfaat..........!

Tolong Like.....!

jangan lupa agar mengunjungi juga kalsobat.blogspot.com karena disana kita menemukan artikel yang berhubungan dengan persahabatan dan berkawan....!