Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

Berikut adalah salah satu program pascal untuk Cek Kelulusan menggunakan Perulangan Repeat Until:

1. Programnya

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

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

          writeln('Anda             :',ket);
          Writeln('----------------------------------');
          write('Cek Kelulusan Lagi [Y/T]:');readln(lg);
          end;
          until lg <>'Y';
          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