Сортировка символов в строке - 23 Мая 2012 - Сайт заготовки для Дельфи&Pascal

Главная » 2012 » Май » 23 » Сортировка символов в строке

14:40 Сортировка символов в строке
функция сортировки символов в строке пузырьковым методом function SortStr(s:string):string; var x,l,k:integer; s2:string; b,min:char; begin s2:=s; l:=length(s2); for x:=1 to l do begin min:=s2[x]; for k:=x to l do if s2[k]<min then begin b:=s2[x]; s2[x]:=s2[k]; s2[k]:=b; min:=s2[x]; end; end; SortStr:=s2; end;
1 2 3 4 5 Просмотров: 1478 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки