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

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

       sedangkan ketika mengetik huruf "T" maka akan kembali ke tampilan program awal yang artinya tidak ingin menghitung lagi.