Turbo Pascal: Program Lengkap Membuat Perhitungan Mahasiswa

 Pada Mata Kuliah Paket Program Aplikasi, kami dari kelas Sistem 
Informasi diberikan tugas untuk membuat program dengan ketentuan sebagai
 berikut:

1. Pengecekan operator di mana operator harus dapat memasukkan username dan password yang benar jika ada. Maka proses itu akan berulang terus menerus. (while do)
2. Nilai yang diinputkan ada 4 macam aktivitas kelas, nilai tugas, nilai UTS dan nilai UAS
3. Untuk perhitungan grade didapatkan dari nilai akhir dengan perhitungan
4. Tampilkan nilai akhir mahasiswa, grade dan keterangan lulus (A-D), tidak lulus (E), dan gagal (x)

Berikut tampilang programnya:

Program Nilai_Mahasiswa;
{Program Created by: Fransesco A.R.}
uses crt;
var
   hdr,dtg,akt,tt,mid,uas,tot:real;
   x,y:string;
begin
     clrscr;
     writeln('********************************');
     writeln('********************************');
     writeln('***Menghitung Nilai Mahasiswa***');
     writeln('********************************');
     writeln('*** Created by Fransesco A.R ***');
     writeln('********************************');
     writeln('********************************');
     {Password}
     write('Masukkan Username Anda : ');readln(x);
     write('Masukkan Password Anda : ');readln(y);
     while (x<> 'FRANSESCO') or (y<> 'widyadharma') do
     begin
     clrscr;
     writeln('Password / Username Anda Salah!!!!');
     writeln;
     write('Masukkan Nama Anda     : ');readln(x);
     write('Masukkan Password Anda : ');readln(y);
     end;
     clrscr;
     writeln('Password Anda benar! Silakan Lanjutkan^^');
     {Rumus Kehadiran Mahasiswa}
     writeln ('Rumus Kehadiran Mahasiswa');
     writeln ('  hadir ');
     writeln ('  _____         * 100%  = Persentase Kehadiran ');
     writeln ('  total hadir ');
     writeln;
     writeln ('Masukkan Kehadiran Mahasiswa Seperti Rumus di Atas');
     readln   (hdr);
     writeln ('___       * 100% ');
     readln   (dtg);
     akt:= hdr / dtg * 100;
     while akt>100 do
     begin
     clrscr;
     writeln('Error Terjadi karena Anda memasukkan Total Hadir Lebih Besar dari Kehadiran!');
     writeln('Silakan ulangi kembali!');
     writeln ('Masukkan Kehadiran Mahasiswa');
     readln   (hdr);
     writeln ('___       * 100% ');
     readln   (dtg);
     akt:= hdr / dtg * 100;
     end;
     clrscr;
     writeln ('Anda telah memasukkan Data dengan Benar!');
     writeln ('Persentase Kehadiran = ',akt:4:2,' %');
     {gagal}
     if akt<75 data-blogger-escaped-:=":" data-blogger-escaped-aaf="aaf" data-blogger-escaped-anda="anda" data-blogger-escaped-asukkan="asukkan" data-blogger-escaped-begin="begin" data-blogger-escaped-else="else" data-blogger-escaped-end="end" data-blogger-escaped-gagal="gagal" data-blogger-escaped-jika="jika" data-blogger-escaped-kehadiran="kehadiran" data-blogger-escaped-mencapai="mencapai" data-blogger-escaped-mid="mid" data-blogger-escaped-nilai="nilai" data-blogger-escaped-persentase="persentase" data-blogger-escaped-readln="readln" data-blogger-escaped-target="target" data-blogger-escaped-telah="telah" data-blogger-escaped-then="then" data-blogger-escaped-tot:="(akt*0.1)+(tt*0.2)+(mid*0.3)+(uas*0.4);" data-blogger-escaped-tot="tot" data-blogger-escaped-tt="tt" data-blogger-escaped-uas="uas" data-blogger-escaped-while="while" data-blogger-escaped-write="write" data-blogger-escaped-writeln="writeln"> 101 do
     begin
     writeln('Periksa Kembali Nilai Yang Anda Masukkan!');
     writeln;
     writeln('Silakan Masukkan Kembali');
     write('Masukkan Nilai TT             : ');readln(tt);
     write('Masukkan Nilai MID            : ');readln(mid);
     write('Masukkan Nilai UAS            : ');readln(uas);
     tot:=(akt*0.1)+(tt*0.2)+(mid*0.3)+(uas*0.4);
     end;
     writeln;
     writeln('Sdr.',x,' Nilai Anda adalah sebagai berikut');
     writeln('Nilai Aktivitas Kelas       : ',akt:4:0);
     writeln('Nilai Tugas Struktur        : ',tt:4:0);
     writeln('Nilai MID                   : ',mid:4:0);
     writeln('Nilai UAS                   : ',uas:4:0);
     writeln('Total Nilai Mahasiswa : ',tot:3:0);
     writeln;
     {nilai grade}
     if tot>=80 then
        begin
        writeln('Nilai A');
        writeln('Selamat Anda Lulus!');
        end
        else if tot>=70 then
             begin
             writeln('Nilai B');
             writeln('Selamat Anda Lulus!');
             end
                else if tot>=60 then
                     begin
                     writeln('Nilai C');
                     writeln('Selamat Anda Lulus!');
                     end
                        else if tot>=50 then
                           begin
                           writeln('Nilai D');
                           writeln('Selamat Anda Lulus!');
                           end
                              else
                                  begin
                                  writeln('Nilai E');
                                  writeln('Maaf, Anda Tidak Lulus!');
                                  end;
     end;
     readln;
end.