Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];
Внизсортировка вставкой Найти похожие ветки
← →
аврам (2008-12-27 20:55) [0]народ как у меня есть строка: sadbmdfjsklsdjfkbsanamvsd
существует ли сортировка методом вставки для символов, как реализовать?
← →
Сергей М. © (2008-12-27 21:01) [1]
> существует ли сортировка методом вставки для символов
Сортировка символов ничем не отличается от сортировки несимволов.
> как реализовать?
http://algolist.ru/sort/insert_sort.php
← →
аврам (2008-12-27 21:09) [2]почему то не работает:
const N=255;
type array_type=array [1..N] of string;
procedure InsertSort(var x:array_type);
var
i, j:integer;
buf : string;
begin
for i:=2 to N do
begin
buf:=x[i];
j:=i-1;
while (j>=1) and (x[j]>buf) do
begin
x[j+1]:=x[j];
j:=j-1;
end;
x[j+1]:=buf;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
stroka:string;
i:integer;
begin
stroka := "fjshjdbvfjksad";
for i:=0 to length(stroka)-1 do
mass[i] := stroka[i];
InsertSort(mass);
for i:=0 to length(stroka)-1 do
memo2.Lines.Add(mass[i])
end;
← →
аврам (2008-12-27 21:20) [3]выскакивает ошибка памяти в процедуре сортировки :(
← →
Сергей М. © (2008-12-27 21:27) [4]Потому что ерунду написал.
Тебе что надо ? Процедуру сортировки символов.
А ты что написал ? Ты написал процедуру сортировки строк, а не символов.
Переделывай.
Вот тебе для затравки:
procedure InsertSort(var x:String);
begin
..
end;
← →
аврам (2008-12-27 21:33) [5]спасибо, разобрался.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.02.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c