Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите пожалуйста переделать код 
:(
    Опции темы
gepard88_88
Дата 16.11.2007, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 24.12.2006

Репутация: нет
Всего: нет



Помогите пожалуйста переделать код быстрой сортировки списка, в сортировку вставками списка. За ранее благодарен.

Код

Type Link = ^ node;
     node = record
             elem: integer;
             next : Link
        end;



var
  Form1: TForm1;
     massive: Link;
     count: integer;
     t: integer;
     C,N,k: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
tr:bool;
T: Link;
begin
C:=0;
N:=0;
randomize;
try
  count:=StrToInt(Edit1.Text);
  tr:=true;
except
  tr:=false;
end;
if (tr) then
begin
  i:=1;
  mass.ColCount:=count;
  new(massive);
  t:=massive;
  t^.elem:=Random(100)-50;
  while i<count do
  begin
    new(t^.next);
    t:=t^.next;
    t^.elem:=Random(100)-50;
    i:=i+1;
  end;
ShowAll;
end;
end;

Procedure TForm1.sort(x: link; l,r: integer);
Var    i, j: integer;
    y, z: integer;
Begin
t:=t+1;
N:=N+1;
i:=l; j:=r;
y:=GetElement((l+r) div 2);
    repeat
        while GetElement(i)<y do i:=i + 1;
        while GetElement(j)>y do j:=j - 1;
        if i<=j then
    begin
     ShowArray(FastSort,x,t);
     C:=C+1;
     z:=GetElement(i); SetElement(i,GetElement(j)); SetElement(j,z);
     i:=i+1; j:=j-1
    end;
    until i>j;
if l < j then sort (x,l, j);
if i < r then  sort(x,i, r);
end;

procedure TForm1.ShowAll;
var i: integer;
begin
i:=0;
mass.ColCount:=count;
while i<count do
 begin
  mass.Cells[i,0]:=IntToStr(i);
  mass.Cells[i,1]:=IntToStr(GetElement(i));
  i:=i+1
 end;
end;

function TForm1.GetElement(i: integer): integer;
var j: integer;
elem: integer;
T: Link;
begin         

t:=massive;
j:=0;
while j<count do
  begin
    if j=i then elem:=t.elem;
    t:=t^.next;
    j:=j+1;
  end;
GetElement:=elem;
end;

procedure TForm1.SetElement(i: integer; elem: integer);
var j: integer;
T: Link;
begin
t:=massive;
j:=0;
while j<count do
  begin
    if j=i then t.elem:=elem;
    t:=t^.next;
    j:=j+1;
  end;
end;

procedure TForm1.ShowArray(Mas: TStringGrid; x: Link; z:integer);
var i: integer;
begin
i:=0;
Mas.ColCount:=count+1;
Mas.RowCount:=z;
if not(z-1=0) then Mas.FixedRows:=1;
if not(count-1=0) then Mas.FixedCols:=1;
while i<count do
 begin
  Mas.Cells[0,z]:=IntToStr(z-1);
  Mas.Cells[i+1,0]:=IntToStr(i);
  Mas.Cells[i+1,z-1]:=IntToStr(GetElement(i));
  i:=i+1;
 end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var r:integer;
begin
  N:=0;
  C:=0;
ShowArray(FastSort,massive,2);
t:=2;
sort(massive, 0, count-1);
 ShowAll;
Label9.Caption:=IntToStr(N);
Label8.Caption:=IntToStr©;
end;

end.

PM MAIL   Вверх
Exai1e
Дата 16.11.2007, 22:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: 2
Всего: 30



Пользуйся кнопкой "Код" !


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0620 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.