Ngày tải lên :
19/08/2013, 09:35
... ',pm);delay(tg);
tron(p);
inc(pm);
p:=p*2;
end;
end;
{ Man hinh chinh }
Procedure manhinhchinh;
begin
repeat
ss:=0;
hv:=0;
manhinh;
case l of
1:begin nhap;SelectionSort(a,n);end;
2:begin ... writexyso(k*4-3,dong-3,207,n+1);delay(tg);
xoa(k*4-3,dong-3);delay(tg);
end;
writexyso(i*4-3,dong,207,n+1);delay(tg);
writexyso(i*4-3,dong,old,n+1);delay(tg);
end;
a[i]:=x;
end;
xoa(m*4-3,dong-3);delay(tg);
... Hvi(i,j);
i:=i+1;j:=j-1;
writexyso(l*4-3,dong,47,l);
writexyso(r*4-3,dong,47,r);
end;
until i>j;
writexyso(l*4-3,dong,old,l);
writexyso(r*4-3,dong,old,r);
if l<j then Sort(l,j);
...