Cортировка массива простыми сравнениями - 22 Ноября 2012

Главная » 2012 » Ноябрь » 22 » Cортировка массива простыми сравнениями

08:03 Cортировка массива простыми сравнениями
// сортировка массива простыми сравнениями const Ncount=8; // размер массива type TArrayOfInteger8=array[1..Ncount] of integer; // массив элементов // функция обмена двух чисел procedure swap(var x,y:integer); var t: integer; begin t := x; x := y; y := t end; // процедура сортировки // TArrayOfInteger8 - массив // N- размер массива Procedure SortArray(var m:TArrayOfInteger8;const N:integer); var j,i:integer; begin for j:=1 to N-1 do for i:=1 to N-j do if M[i] > M[i+1] then swap(M[i],M[i+1]) end; // применение var f:textfile; a:TArrayOfInteger8; i:integer; begin assignfile(f,'c:\fff.txt'); reset(f); i:=0; edit1.text:=''; while not eof(f) do begin inc(i); read(f,a[i]); edit1.text:=edit1.text+inttostr(a[i])+' '; end; closeFile(f); SortArray(a,Ncount); for i:=1 to Ncount do edit2.text:=edit2.text+inttostr(a[i])+' '; end;
1 2 3 4 5 Просмотров: 877 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки