Program Pascal Cek Kelulusan

PROGRAM PASCAL CEK KELULUSAN

Berikut ini adalah program untuk cek kelulusan

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

          if N >=60 then
          begin
               ket:='lulus';
          end
          else
          begin
               ket:='gagal';
               end;
          writeln('Anda :',ket);
          write('Cek Kelulusan Lagi [Y/N]:');readln(lg);
          end;
          readln;

     end.

2.Tampilan Program pada Pascal