Tuesday, December 27, 2011 Menghitung Nilai Akhir dengan Pascal

 

USES CRT;
VAR NO_PKOK : STRING[10];
    NMA     : STRING[30];
    NT,NM,NF,JDTA : BYTE;
    NA,NMAX,NMIN : INTEGER;
    TOT_TGS,TOT_MID,TOT_FNL,A,B : BYTE;
    RTA_TGS,RTA_MID,RTA_FNL : REAL;
BEGIN
     NMAX := 0; NMIN := 100; JDTA := 0;
     CLRSCR;
     WRITELN('================[ MENGHITUNG NILAI AKHIR ]================');
     WRITE('MASUKKAN NO. POKOK               : ');READLN(NO_PKOK);
        WHILE NO_PKOK <> 'X' DO
        BEGIN
             INC(JDTA);
             WRITE('MASUKKAN N A M A                 : ');READLN(NMA);
             WRITE('MASUKKAN NILAI TUGAS             : ');READLN(NT);
             TOT_TGS := TOT_TGS + NT;
             WRITE('MASUKKAN NILAI MID               : ');READLN(NM);
             TOT_MID := TOT_MID + NM;
             WRITE('MASUKKAN NILAI FINAL             : ');READLN(NF);
             TOT_FNL := TOT_FNL + NF;

             NA := TOT_TGS + TOT_MID + TOT_FNL;

             {MENCARI NILAI AKHIR MAXIMUM}
             IF NA > NMAX THEN
                NMAX := NA;
             {MENCARI NILAI AKHIR MINIMUM}
             IF NA < NMIN THEN
                NMIN := NA;
             WRITELN('NILAI AKHIR MAHASISWA            : ',NA);
             WRITELN('==========================================================');
             WRITE('MASUKKAN NO. POKOK [X : KELUAR]  : ');READLN(NO_PKOK);

             {MENCARI NILAI RATA-RATA}
             RTA_TGS := TOT_TGS / JDTA;
             RTA_MID := TOT_MID / JDTA;
             RTA_FNL := TOT_FNL / JDTA;
             WRITELN('==========================================================');
             WRITELN('NILAI AKHIR TERTINGGI            : ',NMAX);
             WRITELN('NILAI AKHIR TERENDAH             : ',NMIN);
             WRITELN('==========================================================');
             WRITELN('RATA-RATA NILAI TUGAS            : ',RTA_TGS:10:2);
             WRITELN('RATA-RATA NILAI MID              : ',RTA_MID:10:2);
             WRITELN('RATA-RATA NILAI FINAL            : ',RTA_FNL:10:2);
             READLN;

      END;
      WRITELN('================[ MENGHITUNG NILAI AKHIR ]================');
END.