Program Pascal, Menghitung Nilai Mahasiswa

Pascal merupakan suatu bahasa pemrograman tingkat tinggi yang dibuat sekitar tahun 1970 oleh Niklaus Wirth dan digunakan untuk Pendidikan Komputer. Nama Pascal diambil dari seorang ahli matematika yang bernama Blaise Pascal yang menemukan mesin hitung pertama. Bahasa Pascal dirancang untuk menyelesaikan masalah dari berbagai kalangan pemakai, mulai dari para mahasiswa, pendidik dan ilmuwan.


Berikut Script Program Entri Data Nilai Mahasiswa :

PROGRAM ENTRY_DATA_NILAI;
USES winCRT;
VAR
        NM :STRING;
        NBP:STRING;
                NTS, NAS, NA :REAL;
        NH :CHAR;
        KET:STRING[5];
        MAD:CHAR;

BEGIN
   MAD:='Y';
   WHILE MAD='Y' DO
        BEGIN
          WRITELN('      ENTRY DATA NILAI ');
          WRITELN('TUGAS II TEKNIK KOMPILASI PTIK03');
          WRITELN('-------------------------------');
          WRITE ('NAMA MAHASISWA : ');READLN(NM);
          WRITE ('NOMOR INDUK MAHASISWA : ');READLN(NBP);
          WRITE ('NILAI TENGAH SEMESTER : ');READLN(NTS);
          WRITE ('NILAI AKHIR SEMESTER : ');READLN(NAS);
          NA:=0.40*NTS+0.60*NAS;
          WRITELN(' NILAI AKHIR : ',NA:3:2);

          IF NA>80 THEN
                  BEGIN
                          NH:='A';
                          KET:='LULUS';
                  END
          ELSE IF NA>=65 THEN
                  BEGIN
                          NH:='B';
                          KET:='LULUS';
                  END
          ELSE IF NA>=55 THEN
                  BEGIN
                          NH:='C';
                          KET:='LULUS';
                  END
          ELSE IF NA>=40 THEN
                  BEGIN
                          NH:='D';
                          KET:='GAGAL';
                  END
          ELSE
                  BEGIN
                          NH:='E';
                          KET:='GAGAL';
                  END;

          WRITELN(' NILAI HURUF : ',NH);
          WRITELN(' KETERANGAN : ',KET);
          WRITE ('MASIH ADA DATA [Y/T] : ');READLN(MAD);

          END;

END