Cac thuat toan sap xep

program Cac_Thuat_Toan_SX; uses crt,graph; const nmax=20; type mang= array[1 nmax] of integer; strn= string[nmax]; bangkt= array[1 nmax] of strn; Obj= object procedure Menuchinh; procedure Move(n,x1,y1,x2,y2,h:integer;b:boolean; nd:bangkt;mnc,mcc,mnr,mcr:integer;var chon:integer); procedure Bye; end; var gd,gm: integer; chon,chon_q,d,k,i,j,tg,toi,n,x1,y1,x2,y2: integer; chon1,ch: char; a,b,c,Item,tamx,tamy,r: mang; Ok: Boolean; Ob_ject: Obj; Phim: bangkt; (*======================================================*) procedure Gioi_thieu; Procedure Duongchay(ax,ay,bx,by:integer;mau:byte); begin setfillstyle(1,mau); bar(ax,ay,bx,by); end; begin i:=0;j:=640; k:=1600; Setbkcolor(black); settextstyle(1,0,4); setcolor(15); outtextxy(90,120,'CAI DAT MOT SO THUAT TOAN '); outtextxy(257,160,'SAP XEP'); settextstyle(0,0,0); setcolor(12); outtextxy(140,220,' -o0o '); setcolor(1); repeat j:=j-1; i:=i+1; k:=k-1 ; if j=0 then k:=850; if k=0 then j:=850; settextstyle(2,0,6); setcolor(15); outtextxy(j,420,'Nhan Phim Bat Ky de Tiep Tuc '); outtextxy(k,420,'Nhan Phim Bat Ky De Tiep Tuc '); delay(10); duongchay(0,422,getmaxx,439,1); until (keypressed) or (i>1500); if i>5 then exit; end; (*========================================================== ==*) procedure nhap; begin textbackground(1); clrscr; textcolor(14); Window(10,5,70,20); write('Ban hay nhap vao so phan tu cua mang can sap xep (n>0,n