Pages

Ads 468x60px

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