PROGRAM CEK KELULUSAN MENGGGUNAKAN REPEAT DAN UNTIL

PROGRAM CEK KELULUSAN MENGGGUNAKAN REPEAT DAN UNTIL

Berikut ini program cek kelulusan menggunakan repeat dan 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.