| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сортировка вставкой

аврам ©   (2008-12-27 20:55:00) 

народ как у меня есть строка: sadbmdfjsklsdjfkbsanamvsd
существует ли сортировка методом вставки для символов, как реализовать?

---

аврам   (2008-12-27 21:33:00) [1]

спасибо, разобрался.

---

Сергей М.   (2008-12-27 21:27:00) [2]

Потому что ерунду написал.

Тебе что надо ? Процедуру сортировки символов.
А ты что написал ? Ты написал процедуру сортировки строк, а не символов.

Переделывай.

Вот тебе для затравки:

procedure InsertSort(var x: String);
begin
..
end;

---

аврам   (2008-12-27 21:20:00) [3]

выскакивает ошибка памяти в процедуре сортировки :(

---

аврам   (2008-12-27 21:09:00) [4]

почему то не работает:

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:01:00) [5]

> существует ли сортировка методом вставки для символов


Сортировка символов ничем не отличается от сортировки несимволов.


> как реализовать?


http://algolist.ru/sort/insert_sort.php

---

Наверх