Contoh Program Sederhana Pascal

Contoh Program Sederhana Pascal
Program Bagus Untuk Input Nilai Raport Siswa. Dengan  program  ini dapat dengan mudah menentukan naik kelasnya siswa atau tidak
program nilai_siswa;                                        
uses wincrt;
var 
     nis,ulangan,uts,uas,tugas,nkhr : byte;
     nama, kelas, pel,grade: string;
begin
clrscr;
  
       write('Nama                 : '); readln(nama);
       write('NIS                    : '); readln(nis);
       write('Kelas                  : '); readln(kelas);
       write('Mata Pelajaran    : '); readln(pel);
       write('Nilai Ulangan       : '); readln(ulangan);
       write('Nilai UTS            : '); readln(uts);
       write('Nilai UAS           : '); readln(uas);
       write('Nilai Tugas          : '); readln(tugas);

       nkhr := (10*ulangan div 100) +(30*uts div 100) + (30*uas div 100) + (30*tugas div 100); ;
       
       case nkhr of

       55..65 : grade :='Tidak Naik Kelas';
       66..70 : grade :='Kurang Baik';
       71..75 : grade :='Cukup';
       76..85 : grade :='Baik';
       86..100: grade :='Sangat Baik';
       end;
writeln;
Writeln('DIBERITAHUKAN KEPADA ORANG TUA SISWA SMAN 1 BALEENDAH');
Writeln('BERIKUT NILAI RAPORT PER MATA PELAJARAN');
Writeln('SISWA YANG BERNAMA ',nama,' DENGAN NIS ',nis,' MATA PELAJARAN ',pel);
writeln('MENDAPATKAN NILAI AKHIR ',nkhr,' DENGAN GRADE ',grade);
readln;
end. Description: Contoh Program Sederhana Pascal Rating: 4.5 Reviewer: Unknown - ItemReviewed: Contoh Program Sederhana Pascal