Program Pascal Cek Kelulusan Menggunakan Perulangan While end While

Program Pascal Cek Kelulusan Menggunakan Perulangan While end While

Nahhh ini 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"

          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.