Program Pascal Menampilkan Nilai Mahasiswa Menggunakan Perulangan While end While

Program Pascal Menampilkan Nilai Mahasiswa Menggunakan Perulangan While end While

Berikut adalah contoh Program Pascal Menampilkan Nilai Mahasiswa Menggunakan Perulangan While end While

1. Program
program DaftarNilaiMahasiswa;
uses crt;
var
   NIM,Nama,NHuruf : String;
   NM,NT,NF,TN     : Real;
   lg              : Char;
begin
     lg:='Y';
     While Upcase(lg)='Y' do
     begin
     clrscr;
     Writeln('DAFTAR NILAI MAHASISWA');
     Writeln('STMIK BUDIDARMA');
     Writeln('=================================');
     Write('Input Nama        :');readln(Nama);
     Write('Input NIM         :');readln(NIM);
     Write('Input Nilai Tugas :');readln(NT);
     Write('Input Nilai NMID  :');readln(NM);
     Write('Input NFINAL      :');readln(NF);

     TN :=0.2*NT+0.3*NM+0.5*NF;

     if (TN <=100) and (TN >=80) then
          NHuruf :='A'
     else if (TN<=79) and (TN>=70) then
          NHuruf :='B'
     else if (TN<=69) and (TN>=51) then
          NHuruf :='C'
     else if (TN<=50) and (TN>=41) then
          NHuruf :='D'
     else if TN<=40 then
          NHuruf :='E';

     Writeln('Total Nilai       :',TN:2:0);
     Writeln('NHuruf            :',NHuruf);
     Writeln('====================================');
     Write('Ingin Menghitung Lagi [Y/T]:');readln(lg);
     end;
     readln;
end.

2. Tampilan Program pada Pascal