Oke, sahabat blogger..gue update  baru nih. Kayak nya bakalan menjdi new labeling. Spesial bwt anak kuliahan yg mau prediksi nilai akhir mata kuliah tertentu. program ini ringan. tinggal di copas ke pascal kalian dan di-run. oke, cekidot!!!


program nilairata2;
uses wincrt;

var
   nama,nim:string;
   tugas,mid,akhir,kuis:integer;
   rata2,faktor:real;
begin
     writeln('------------DAFTAR NILAI MAHASISWA------------');
     write('Nama          :');readln(nama);
     write('Nim           :');readln(nim);
     write('Nilai Tugas   :');readln(tugas);
      if (tugas>100) or (tugas<0) then
     write('maaf anda telah berbohong karena jankauan nilai hanya sampai 100 dan tidak da yg minus')
                 else
     write('Nilai Kuis    :');readln(kuis);
      if (kuis>100) or (kuis<0) then
     write('maaf anda telah berbohong karena jankauan nilai hanya sampai 100 dan tidak da yg minus')
                 else
     write('Nilai Mid Test:');readln(mid);
      if (mid>100) or (mid<0) then
     write('maaf anda telah berbohong karena jankauan nilai hanya sampai 100 dan tidak da yg minus')
                 else
     write('Nilai Akhir   :');readln(akhir);
      if (akhir>100) or (akhir<0) then
     write('maaf anda telah berbohong karena jankauan nilai hanya sampai 100 dan tidak da yg minus')
                 else
     rata2:=((0.1*tugas)+(0.15*kuis)+(0.3*mid)+(0.4*akhir));
     faktor:=0.05*rata2;
     writeln('Rata2x =',rata2:0:1);write('Nilai IP anda=');
     if (rata2>85) then
     writeln('A+')
                else
                begin
                if rata2>80 then
                writeln('A-')
                           else
                           begin
                           if rata2>75 then        
                           writeln('B+')
                                      else
                                      begin
                                      if rata2>65 then
                                      writeln('B-')
                                                 else
                                                 begin
                                                 if rata2>60 then
                                                 writeln('C+')
                                                           else
                                                           begin
                                                           if rata2>55 then
                                                           writeln('C-')
                                                                      else
                                                                      begin
                                                                      if rata2>50 then
                                                                      writeln('D')
                                                                                 else
                                                                                 writeln('E');
                                                                      end;
                                                           end;
                                                 end;
                                      end;
                           end;
                end;
                writeln('faktor=',faktor:0:2);
     write('dg faktor +5%');
end.