Ridwan Einstein Blog

uses crt;
var nm:string[25];
    tgs,mid,f,na:real;
    tan,nim:char;
    jml,a,b,c,d,e:byte;
begin
     clrscr;
     gotoxy(20,1);writeln('Menghitung nilai Akhir');
     write('Input No.Pokok : ');readln(nim);
     a:=0;b:=0;c:=0;d:=0;e:=0;
     jml:=0;
     nim:=nim;
     while (nim= nim)and(nim <> 'x')and(nim <> 'X') do
       begin

            clrscr;
            write('Nama Mahasiswa : ');readln(nm);
            write('Nilai Tugas    : ');readln(tgs);
            write('Nilai Mid      : ');readln(mid);
            write('Nilai Final    : ');readln(f);
            na:=(25/100*tgs)+(35/100*mid)+(40/100*f);
            writeln;
            writeln(' Nilai Akhir mahasiswa : ',na:0:2);
            writeln;
            if na>=80 then
               begin
                    tan:='A';
                    a:=a+1;
               end
            else if(na>=70)and(na<80) then
               begin
                    tan:='B';
                    b:=b+1;
               end
            else if(na>=60)and(na<70) then
               begin
                    tan:='C';
                    c:=c+1;
               end
            else if(na>=50)and(na<60) then
               begin
                    tan:='D';
                    d:=d+1;
               end
            else if(na<50) then
               begin
                    tan:='E';
                    e:=e+1;
               end;
            writeln(' kategori              : ',tan);
            writeln;
            repeat
                  write('No pokok [x=exit] : ');readln(nim);
            until nim in [nim,'x','X'];
            jml:=jml+1;
       end;
     writeln('jumlah mahasiswa yang diinput : ',jml);
     writeln('jumlah mahasiswa nilai A : ',a);
     writeln('jumlah mahasiswa nilai B : ',b);
     writeln('jumlah mahasiswa nilai C : ',c);
     writeln('jumlah mahasiswa nilai D : ',d);
     writeln('jumlah mahasiswa nilai E : ',e);
     writeln;
     gotoxy(20,40);write('Corporate by : L4mp4rDo@yahoo.com');readln;
end.