Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

Berikut adalah contoh Program Pascal Cek Kelulusan Menggunakan Perulangan Repeat Until

1. Program
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('Cek Kelulusan Lagi [Y/T]:');readln(lg);
          end;
          until lg <>'Y';
          readln;
     end.

2. Program pada Pascal

3. Hasil Program