(CKT) Pascal "Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until"

Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

Nahhh ini adalah salah satu program pascal untuk Cek Kelulusan menggunakan Perulangan Repeat Until

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.

hasil dari program

ketika menekan y

ketika kita menekan atau memasukkan huruf y maka akan mengulang kembali untuk mengecek kelulusan