Menu Sorting….

Posted on 7 Desember 2011

0


WRITE(‘Kelas : ‘); READLN(KELAS[i]);
END;
4:GOTO EXIT;
END;
CLRSCR;
GOTOXY(5,4); WRITE(GARIS);
GOTOXY(5,5); WRITE(‘NO’);
GOTOXY(9,5); WRITE(‘NPM’);
GOTOXY(20,5); WRITE(‘NAMA’);
GOTOXY(37,5); WRITE(‘KELAS’);
GOTOXY(5,6); WRITE(GARIS);
bar:=7;
FOR i:= 1 TO n DO
BEGIN

GOTOXY(5,bar); WRITELN(i:2);
GOTOXY(9,bar); WRITELN(NPM[i]);
GOTOXY(20,bar); WRITELN(NAMA[i]);
GOTOXY(37,bar); WRITELN(KELAS[i]);
bar:=bar+1;
END;
GOTOXY(5,bar+1);WRITELN(garis);
READLN;
goto menu;
exit:
END.

tolong D perbaiki kalo ada salah salah kata….:)

Posted in: Tak terkategori