Menampilkan Program Daftar Nilai Mahasiswa

Langsung saja, mari kita menampilkan program turbo pascal bukan karena saya tau atau bisa membuatnya karena kita ini semua ingin belajar dalam arti belajar pada teman-teman disitu kita tau namanya pengalaman seseorang...

Menampilkan progaram turbo pascal :

uses crt;
var
   nm           :string[20];
   nim          :string[9];
   lg,nh        :char;
   nt,nmid,nft  :integer;
   tn           :real;
begin
     Lg:='Y';
     while upcase(Lg)<>'T' do
begin
     clrscr;
     Writeln('DAFTAR NILAI MAHASISWA JURUSAN INFORMATIKA ');
     writeln('------------------------------------------ ');
     write('Nama  Mahasiswa      :');readln(nm);
     write('NIM   Mahasiswa      :');readln(nim);
     write('Nilai Tugas          :');readln(nt);
     write('Nilai Mid Test       :');readln(nmid);
     write('Nilai Final Test     :');readln(nft);
     tn:=(0.2*nt)+(0.3*nmid)+(0.5*nft);

     if (tn>=80) and (tn<=100) then
     nh:='A'
     else if (tn>=70) and (tn<=79) then
     nh:='B'
     else if (tn>=51) and (tn<=69) then
     nh:='C'
     else if (tn>=41) and (tn<=50) then
     nh:='D'
     else if (tn>=0) and (tn<=40) then
     nh:='E';
     writeln('-------------------------------------- ');
     writeln;
     writeln('Mahasiswa Yang Bernama    :',nm);
     writeln('Total Nilai               :',tn:2:0);
     writeln('Nilai Huruf               :',nh);
     writeln('-------------------------------------- ');
     write('Menghitung Lagi Nilai [Y/T] :');
     readln(Lg);
     end;
End.

Inilah hasilnya:

arti y/t adalah mengulangin atau tidak....


uses crt;
type dmahasiswa=record
     npm,mk:string;
     nila:integer;
end;
var
   i:integer;
   nama,nihu:string;
   mhs:array[1..25] of dmahasiswa;
begin
     clrscr;
     writeln('Program Laporan Penilaian Mahasiswa');
     writeln('-----------------------------------');
     for i:=1 to 3 do
     begin
          with mhs[i] do
     begin
          write('Masukan NPM         : ');readln(npm);
          write('Masukan Nilai Angka : ');readln(nila);
          write('Masukan Mata Kuliah : ');readln(mk);
     end;
     end;
     clrscr;
     writeln('-----------------------------------------------------------------');
     writeln('******::..Laporan Nilai Mahasiswa STMIK Budidarma Medan..::******');
     writeln('-----------------------------------------------------------------');
     writeln('NO  NPM       NAMA     MATA KULIAH     NILAI ANGKA    NILAI HURUF');
     writeln('-----------------------------------------------------------------');
     for i:=1 to 3 do
     begin
          with mhs[i] do
     begin
          if npm='14110874' then nama:='Kaldius'
          else if npm='14110875' then nama:='Diusman'
          else nama:='Tetangga';
          Case nila of
          80..100:nihu:='A';
          70..79 :nihu:='B';
          60..69 :nihu:='C';
          50..59 :nihu:='D';
          0..49  :nihu:='E';
     end;
     gotoxy(1,5+i); writeln(i);
     gotoxy(3,5+i); writeln(npm);
     gotoxy(13,5+i); writeln(nama);
     gotoxy(24,5+i); writeln(mk);
     gotoxy(44,5+i); writeln(nila);
     gotoxy(58,5+i); writeln(nihu);
     end;
     end;
     writeln('-----------------------------------------------------------------');
     readln;
end.