Friday, December 23, 2011

Program Rekapitulasi Nilai - Pascal

Program Rekapitulasi_Nilai_Mahasiswa;
uses crt;
var
   NO,NIM,SKS_1,SKS_2,NA,Total: integer;
   Nama,Matkul,Grade: string;
begin
clrscr;
      gotoxy(19,3);  writeln (' REKAPITULASI NILAI MAHASISWA PALCOMTECH ');
      gotoxy(18,4);  writeln ('*===========================================*');
      gotoxy(23,5);  write ('No= ')            ; readln(No)     ;
      gotoxy(23,6);  write ('Nama= ')          ; readln(Nama)   ;
      gotoxy(23,7);  write ('NIM= ')           ; readln(NIM)    ;
      gotoxy(23,9);  write ('Matkul 1= ')      ; readln(Matkul) ;
      gotoxy(23,10); write ('SKS 1= ')         ; readln(SKS_1)    ;
      gotoxy(23,11); write ('Nilai angka 1= ') ; readln(NA)     ;

        if (NA>=85) and (na<=100) then
           Grade :='A'
   else if (NA>=75) and (na<=84)  then
           Grade :='B'
   else if (NA>=65) and (na<=74)  then
           Grade :='C'
   else if (NA>=55) and (na<=54)  then
           Grade :='D'
   else if (NA>=0) and (na<=54)   then
           Grade :='E'
   else
begin
           Grade :='x';
     gotoxy(23,13); writeln ('Periksa kembali nilai yang Anda input');
   end;
     gotoxy(23,12); writeln ('Grade Nilai 1= ',grade);

     gotoxy(23,14);  write ('Matkul 2= ')      ; readln(Matkul) ;
     gotoxy(23,15); write ('SKS 2= ')         ; readln(SKS_2)    ;
     gotoxy(23,16); write ('Nilai angka 2= ') ; readln(NA)     ;

        if (NA>=85) and (na<=100) then
           Grade :='A'
   else if (NA>=75) and (na<=84)  then
           Grade :='B'
   else if (NA>=65) and (na<=74)  then
           Grade :='C'
   else if (NA>=55) and (na<=54)  then
           Grade :='D'
   else if (NA>=0) and (na<=54)   then
           Grade :='E'
   else
begin
           Grade :='x';
     gotoxy(23,18); writeln ('Periksa kembali nilai yang Anda input');
   end;
     gotoxy(23,17); writeln ('Grade Nilai 2= ',grade);

          Total:= SKS_1 + SKS_2;
     gotoxy(18,19) ; writeln ('=============================================');
     gotoxy(45,20) ; textcolor(9); writeln ('Total SKS= ',Total);

     gotoxy(25,23); textcolor(10); writeln ('Terima Kasih ^_^');
     readln;
end.

Hasilnya :



Related Post

3 comments:

Mohon tinggalkan jejak/komentar sobat disini. Dilarang SPAM. Okey...