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

[Никита757]

нужно осуществить сортировку вставкой, чтобы осуществить упорядоченность элементов,
нужна ваша помощь

unit list_unit;

interface

{uses
      Classes, SysUtils;}
      
type
 TDataTipe = integer;
 PTItem = ^TItem;
 TItem = Record
   Data : TDataTipe;
   Next : PTItem;
 end;
 
Procedure Inc(var Item: PTItem; Data: TDataTipe);
{Function Sort(a,b: integer) : boolean;}
Procedure Showlist(p : PTItem);

implementation

//Добавляем в список
Procedure Inc(var Item: PTItem; Data: TDataTipe);
var
  res : PTItem;
begin
    new(res);
    res^.Data:=Data;
    res^.Next:=Item;
    Item := res;
end;

uses
  list_unit;
  
var simbol:string; IOResult:integer;
  list : PTItem;
  i, n_chastey, chislovaya_perem : integer;
  
begin
  writeln('Сколько чисел вы хотите ввести?');
  repeat
  readln(simbol); val(simbol,n_chastey,IOResult);
  if IOResult<>0 then writeln('Введите количество чисел еще раз');
  until IOResult=0;
  for i := 1 to n_chastey do
  begin
    writeln('Введите число №', i);
    repeat
    readln(simbol); val(simbol,chislovaya_perem,IOResult);
    if IOResult<>0 then writeln('Введите число №', i);
    until IOResult=0;
    Inc(list, chislovaya_perem);
  end;
  
  writeln('Список:');
  Showlist(list);
end.

Можно и любую другую сортировку, Список разделить на n частей, каждый сортировать независимо, затем провести слияние в выходной список. я все сделал кроме "каждый сортировать независимо"
Поможете с кодом

[Никита757]

Есть код сортировки, не поможете отредактировать его, чтобы сортировка заработала?

unit list_unit;

interface

{uses
      Classes, SysUtils;}
      
type
 TDataTipe = integer;
 PTItem = ^TItem;
 TItem = Record
   Data : TDataTipe;
   Next : PTItem;
 end;
 
Procedure Inc(var Item: PTItem; Data: TDataTipe);
{Function Sort(a,b: integer) : boolean;}
Procedure Showlist(p : PTItem);

implementation

//Добавляем в список
Procedure Inc(var Item: PTItem; Data: TDataTipe);
var
  res : PTItem;
begin
    new(res);
    res^.Data:=Data;
    res^.Next:=Item;
    Item := res;
end;


// Сортируем
 
procedure Showlist(p: PTItem);
begin
  while p <> nil do
  begin
    writeln(p^.Data);
    p := p^.next;
  end;
end;
 
end.

[Stilet]

Есть код сортировки

Где? О_о
Тебе сортир по спику нужен?

[Никита757]

Можно как-нибудь этот код подкорректировать (метод пузырька)?

 procedure SortAsc(var aArr : array of TDatatipe);
var
  PStart, PEnd, PCur, Next : Tdatatipe;
  Data : TDatatipe;
begin
  PStart := @aArr;          
  PEnd := @aArr[High(aArr)];
  while PStart <> PEnd do begin
    PCur := PStart; 
    PNext := PCur;
    Inc(PNext);     
    while PCur <> PEnd do begin
      if PCur^ > PNext^ then begin
        Data := PCur^;
        PCur^ := PNext^;
        PNext^ := Data;
      end;
   
      Inc(PCur);
      Inc(PNext);
    end;
    Dec(PEnd); 
  end;
end;

[Stilet]

Ну переписать все. Сортировка вставками это всетки не пузырек.

procedure Sorta(Head: PTItem);
var i,j,min:PItem;v:TDataTipe;
begin
 i:=Head;
 while i<>nil do begin
   min:=i;
   j:=i^.Next; while j<>nil do begin if i^.Data<j^.Data then min:=j;j:=j^.next; end;
   if i<>min then begin
    v:=i^.Data; 
    i^.Data:=j^.data;
    j^.data:=v;
   end;
   i:=i^.Next;
 end;
end;

Как-то так вот...

[Smitt&Wesson]

Сообщение от Stilet

Где? О_о
Тебе сортир по спику нужен?

Гы-гы. Я не паскуалист, я - сишник. Но, если будет полезно то вот.

[Никита757]

Вот такая сортировка получилась, но она все равно не сортирует числа

procedure Sorta(Head: PTItem);
var i,j,min:PtItem;v:TDataTipe;
begin
 i:=Head;
 while i<>nil do begin
   min:=i;
   j:=i^.Next;
   while j<>nil do
   begin
   if i^.Data<j^.Data then
   min:=j;
   j:=j^.next;
   end;
   if i<>min then
   begin
    v:=i^.Data; 
    i^.Data:=min^.data; 
    min^.data:=v;
   end;
   i:=i^.Next;
 end;
end;

[Stilet]

И конечно же "отладка" - нечто неведомое и ужасное для школьного уровня?
Ну хотя бы не постеснялся бы код показать полностью. Копипастить втупую все умеют.

[Никита757]

Вот он

unit list_unit;

interface

      
type
 TDataTipe = integer;
 PTItem = ^TItem;
 TItem = Record
   Data : TDataTipe;
   Next : PTItem;
 end;
 
Procedure Inc(var Item: PTItem; Data: TDataTipe);
{Function Sort(a,b: integer) : boolean;}
Procedure Showlist(p : PTItem);

implementation

//Добавляем в список
Procedure Inc(var Item: PTItem; Data: TDataTipe);
var
  res : PTItem;
begin
    new(res);
    res^.Data:=Data;
    res^.Next:=Item;
    Item := res;
end;

procedure Sorta(Head: PTItem);
var i,j,min:PtItem;v:TDataTipe;
begin
 i:=Head;
 while i<>nil do begin
   min:=i;
   j:=i^.Next;
   while j<>nil do
   begin
   if i^.Data<j^.Data then
   min:=j;
   j:=j^.next;
   end;
   if i<>min then
   begin
    v:=i^.Data; 
    i^.Data:=min^.data; 
    min^.data:=v;
   end;
   i:=i^.Next;
 end;
end;
 
 
procedure Showlist(p: PTItem);
begin
  while p <> nil do
  begin
    writeln(p^.Data);
    p := p^.next;
  end;
end;
  
end.

[Stilet]

Ну. Нормально он работает. Я проверил.

var i:PTItem;
begin
 i:=nil;
 aInc(i,5);aInc(i,100);aInc(i,15);
  Showlist(i);
  Sorta(i);
  Showlist(i);
end;

Дает

15
100
5
100
15
5

Все сортируется как положено.