contoh program pascal: PROGRAM PENILAIA

Ni contoh program pascal: PROGRAM PENILAIAN
Tinggal di copy di notepad> Save as> name(diakhir(.pas)) >open dg program pascal> Running.
bisa kalian kembangin sendiri.


program Rekap_Nilai_STMIK_PRANATA_INDONESIA;
uses wincrt;

var nim:longint;
    na,nt,nuts,nuas:integer;
    nhu,ns,kn:string[33];
    nha,nht,nhuts,nhuas,nh,nis:real;
begin
clrscr;
   write   ('Nama Siswa          =');
   readln  (ns);
   write   ('nim                 =');
   readln  (nim);
   write   ('Nilai Kehadiran     =  ');
   readln  (na);
   write   ('Nilai Tugas         =  ');
   readln  (nt);
   write   ('Nilai UTS           =  ');
   readln  (nuts);
   write   ('Nilai UAS           =  ');
   readln  (nuas);
 
   nha:=(na*10/100);
   nht:=(nt*20/100);
   nhuts:=(nuts*30/100);
   nhuas:=(nuas*40/100);
   nh:=(nha+nht+nhuts+nhuas);

   write   ('Nilai Pascal        =  ',nh:3:0);
   readln;

   if(nh>=80)then
      nhu:='A( Memuaskan )'
   else
      if(nh>=66)then
         nhu:='B ( Baik )'
      else
         if(nh>=55)then
            nhu:='C ( Cukup )'
         else
            if(nh>=41)then
               nhu:='D ( Kurang )'
            else
              if(nh>41)then
                 nhu:='E ( Tidak Lulus )';
 
  writeln('Nilai Mutu huruf    =  ',nhu);
  readln;


  if(nh>=56)then
    kn:='lulus'
  else
    if(nh<=56)then
      kn:='GAGAL';
  writeln('Keterangan Nilai    =  ' ,kn);
  readln;
end.