Selasa, 09 Desember 2014

Program Sederhana Menggunakan IF Pada Pascal

Uses crt;
var
   NPM,Nama,NHuruf,Ket                  :string;
   NHadir,NTugas,NMID,NUTS,NUAS,NAkhir  : real;
Begin
    clrscr;
    Writeln('------------------------------------------------');
    writeln('**********Menghitung Nilai Mahasiswa************');
    Write('Input NPM                       : ');readln(NPM);
    write('Input Nilai Kehadiran           : ');readln(NHadir);
    write('Input Nilai Tugas               : ');Readln(NTugas);
    write('Input Nilai MID                 : ');readln(NMID);
    write('Input Nilai UTS                 : ');readln(NUTS);
    write('Input Nilai UAS                 : ');readln(NUAS);

   
    if NPM ='1111240' then
       nama :='Dwirisky'
    else if NPM ='12110046' then
         nama :='Agus Setiawan'
    else if NPM ='13110835' then
         nama :='Fince'
    else if NPM ='14110269' then
         nama := 'Senima Gulo'
    else
        nama :='David' ;


    NAkhir := 0.1 * NHadir + 0.15 * NTugas + 0.2 * NMID + 0.25 * NUTS + 0.30 * NUAS;

    if NAkhir >= 90 then
       NHuruf :='A'
    else if NAkhir >=80 then
         NHuruf :='B'
    else if NAkhir >=70 then
         NHuruf :='C'
    else if NAkhir >=60 then
         NHuruf :='D'
    else
        NHuruf :='D';


    If NAkhir >= 60 then
       Ket :='LULUS'
    else
        Ket :='GAGAL' ;

    Writeln('------------------------------------------------');
    Writeln('NPM Anda adalah            : ',NPM);
    writeln('Nama Anda adalah           : ',Nama);
    writeln('Nilai Kehadiran anda adalah: ',NHadir:2:0);
    writeln('Nilai Tugas anda adalah    : ',NTugas:2:0);
    writeln('Nilai MID anda adalah      : ',NMID:2:0);
    writeln('Nilai UTS anda adalah      : ',NUTS:2:0);
    writeln('Nilai UAS anda adala       : ',NUAS:2:0);
    writeln('Nilai Akhir anda adalah    : ',NAkhir:2:0);
    writeln('Nilai Huruf anda adalah    : ',NHuruf);
    writeln('Keterangan                 : ',Ket);

 Readln;
End.