Program Pascal "Cek Kelulusan" Menggunakan Perulangan While end While

CONTOH Program Pascal "Cek Kelulusan" Menggunakan Perulangan While end While

Assalamualaikum wr.wb

selamat pagi,siang,sore,malam semuanya :D Kali ini saya akan memberikan contoh program "Cek Kelulusan" yang mungkin bisa menambah pengetahuan teman" sekalian. Berikut adalah bentuk programnya :

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

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

          writeln('Anda :',ket);
          write('Cek Kelulusan Lagi [Y/T]:');readln(lg);
          end;
          readln;
     end.

Berikut gambar pada aplikasi turbo pascal :

Dan ketika Program dijalankan maka akan tampil seperti berikut :

 Demikianlah yang dapat saya sampaikan, untuk melihat lebih banyak lagi temtang pemrograman silahkan kunjungi artikel saya yang lainnya  terimakasih :))