Ngày tải lên :
19/08/2013, 09:35
... manhinhchinh;
begin
repeat
ss:=0;
hv:=0;
manhinh;
case l of
1:begin nhap;SelectionSort(a,n);end;
2:begin nhap;InsertionSort(a,n);end;
3:begin nhap;BubleSort(a,n);end;
4:begin nhap;HeapSort(a,n);end;
Var i:byte;
Begin
gotoxy(26,18);
... gotoxy(1,18);writeln('So lan so sanh : ',ss);
End;
{ Chen truc tiep (Insertion Sort) }
Procedure Insertionsort (var a:m1;n:byte);
Var i,j,k,x : byte;
thoat : boolean;
Begin
#80:if chon<max ... Writexyso(i*4-3,dong,old,i);Writexyso(j*4-3,dong,old,j);delay(tg);
End;
{ Chon truc tiep (Selection Sort) }
Procedure SelectionSort(var a:m1;n:byte);
Var i,j,min: byte;
Begin
Writexychuoi(28,5,'Chon Truc Tiep (Selection Sort) ',14);{14}
clr;
For...