Program Pascal Menampilkan Nilai Mahasiswa Menggunakan Perulangan While end While

Berikut adalah salah satu program pascal untuk Menampilkan Nilai Mahasiswa menggunakan Perulangan While end While:

1. Programnya

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 BUDI DARMA');
     Writeln('=================================');
     Write('Input Nama       :');readln(Nama);
     Write('Input NIM        :');readln(NIM);
     Write('Input NTugas     :');readln(NT);
     Write('Input 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 dalam Pascal

3. Hasil Program

     ketika mengetik "Y"

 

          Kita akan bisa menginput ulang data atau menghitung lagi seperi gambar dibawah

       sedangkan ketika mengetik huruf "T" maka akan kembali ke tampilan program awal yang artinya tidak ingin menghitung lagi.