Пузырьковая сортировка внутри строки - 15 Марта 2012

Главная » 2012 » Март » 15 » Пузырьковая сортировка внутри строки

12:32 Пузырьковая сортировка внутри строки
Пузырьковая сортировка внутри строки Function SortLabel(s:string):string; var y,x,l:integer; s2:string; MinC:char; begin l:=length(s); s2:=''; for x:=1 to l do begin MinC:=#255; for y:=1 to l do if s[y]<MinC then MinC:=s[y]; for y:=1 to l do if s[y]=MinC then begin delete(s,y,1); l:=l-1; break; end; s2:=s2+MinC; end; result:=s2; end; на входе 11212564564654 11122444555666
1 2 3 4 5 Просмотров: 917 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки