Program Pascal Cek Kelulusan Menggunakan Perulangan While end While

Berikut adalah salah satu program pascal untuk Cek Kelulusan menggunakan Perulangan While end While

1. Programnya

program Cek_Kelulusan;
uses crt;
var
   N         :Byte;
   ket       :String;
   lg        :char;
begin
     lg:='y';
     while Upcase(lg)='Y' do
     begin
          clrscr;
          writeln('Program Cek Kelulusan');
          write('Input Nilai Anda : ');readln(N);

          if N >=60 then
               ket:='lulus'
          else
               ket:='gagal';

          writeln('Anda :',ket);
          write('Cek Kelulusan Lagi [Y/T]:');readln(lg);
          end;
          readln;
     end.

2. Tampilan Program dalam Pascal

3. Hasil Program

     ketika mengetik "Y"