membuat program sederhana

kali ini penulis ingin berbagi hasil karya anak sceonity yaitu contoh input yang bisa anda copy ke kompi klian, okey deh jangan basa-basi lagi selamat menyimak :)


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.


jika ada yang tidak dimengerti silahkan tinggalkan pesan ke email berikut :
fajriahmadzayyini@ymail.com
semoga bermanfaat sobat :)

Posted in: pascal,TIK