PROGRAM RAPOT

Nah,,, Ini program Pascal yang digunakan untuk mengathui rata-rata rapot siswa dan predikat hurufnya...
Berikut kodenya...


PROGRAM RAPOT_SISWA;
USES CRT;
VAR NIM : STRING [5];
    NAMA : STRING [20];
    TUGAS : REAL;
    UTS : REAL;
    UAS : REAL;
    ANGKA : REAL;
    HURUF : BYTE;

BEGIN
     CLRSCR;
     GOTOXY (15,2); WRITELN ('DAFTAR NILAI SISWA');
     GOTOXY (14,4); WRITELN ('SMK NEGERI 4 BOJONEGORO');
     GOTOXY (4,5); WRITELN ('______________________________________');
     GOTOXY (4,6); WRITE('Nomor Induk Siswa :'); READLN (NIM);
     GOTOXY (4,8); WRITE('Nama Siswa :'); READLN (NAMA);
     GOTOXY (4,12); WRITE('Nilai Tugas :'); READLN (TUGAS);
     GOTOXY (4,14); WRITE('Nilai UTS :'); READLN (UTS);
     GOTOXY (4,16); WRITE('Nilai UAS :'); READLN (UAS);


     ANGKA := (TUGAS+UTS+UAS)/3;
     GOTOXY (4,18); WRITELN ('Memutuskan, Siswa yang bernama ', NAMA);
     GOTOXY (4,19); WRITELN ('_____________________________________');
     GOTOXY (4,21); WRITELN ('NILAI AKHIR :', ANGKA:8:2);

     IF ANGKA >90 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : A');
     END;

     IF ANGKA >90 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : A');
     END;

     IF ANGKA <=89 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : B');
     END;

     IF ANGKA <=70 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : C');
     END;

     IF ANGKA <=50 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : D');
     END;

     IF ANGKA <=49 THEN
     BEGIN
     GOTOXY (4,22); WRITELN ('NILAI HURUF : E');
     END;

     READLN;
END.

Hasil Outputnya adalah :

Masukkan Nomor Induk dan Nama Siswa

Masukkan Nilai-nilai siswa

Dengan begitu, bisa mengatahui Nilai Akhir dan Predikat Siswa

Yah,, meskipun program kecil-kecilan, tapi ini lah yang kami buat.
Untuk kedepannya, akan buat program-program yang lebih spektakuler.. :)
I Love RPL...