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

[Никита757]

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

[Stilet]

Дык твой код сортирует в порядке убывания. Поменяй знак в i^.Data<j^.Data на другой - получишь обратную сортировку.

[Никита757]

А как можно весь модуль с сортировкой привязать к основной программе

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.

[Stilet]

Ну а то что ты написал это разве не привязка по твоему?

[Никита757]

Он не воспринимает эту информацию, а следовательно не сортирует, может там проблема с описанием процедуры?

[Stilet]

Он все воспринимает, просто ты не вписал в код вызов процедуры сортировки )
У тебя написаны вызовы обе функции ввода и вывода, а вот вызова сортировки нет.

[Никита757]

Это я сделал, она сортирует только два, три элемента, а больше уже не сортирует

[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);
Procedure Sorta(Head:PTItem) ;
Procedure Showlist(Head : 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(Head: PTItem);
begin 
  while Head <> nil do
  begin
    writeln(Head^.Data);
    Head := Head^.next;
  end;
end;
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('Список:');sorta(list);
  showlist(list);
end.

[Stilet]

Вот результат:
Безымянный.jpg
Все нормально. Что-то ты не так делаешь.