Пузырьковая сортировка - 16 Февраля 2012 - Сайт заготовки для Дельфи&Pascal

Главная » 2012 » Февраль » 16 » Пузырьковая сортировка

14:03 Пузырьковая сортировка
Пример Пузырьковой сортировки Пузырьковая сортировка procedure TForm1.Button1Click(Sender: TObject); var x:integer; a: array of integer; L:integer; s2,s:string; b,k,min:integer; begin l:=0; s:=form1.edit1.text; // ================================== // занести массив из поля Edit1.text for X:=1 to length(s) do if (s[x]=',') or (length(s)=x) then begin if length(s)=x then if s[x]<>',' then s2:=s2+s[x]; l:=l+1; setlength(a,l); trystrtoint(s2,a[l-1]); s2:=''; end else s2:=s2+s[x]; // занести массив из поля Edit1.text и через запятую // ================================== // ----- сортировка ----- // // ================================== for x:=0 to l-1 do begin min:=a[x]; for k:=x to l-1 do if a[k]<min then begin b:=a[x]; a[x]:=a[k]; a[k]:=b; min:=a[x]; end; end; // ----- сортировка ----- // // вывод массива через запятую s2:=''; for x:=0 to l-1 do if s2='' then s2:=s2+inttostr(a[x]) else s2:=s2+','+inttostr(a[x]); edit2.text:=s2; Showmessage('Массив отсортирован!'); end; исходник примера для сортировки массива Delphi/Pascal http:///sortirovka.zip
1 2 3 4 5 Просмотров: 1889 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Всего комментариев: 0