Модули

[Никита757]

Описать программный интерфейс для работы со списком целых чисел и оформить его в виде отдельного модуля. Реализовать сортировку списка следующим способом список разделить на n частей, каждый сортировать независимо, затем провести слияние в выходной список.
На Паскале. Можно код?

[Stilet]

Описать программный интерфейс для работы со списком целых чисел и оформить его в виде отдельного модуля.

Взял из своей копилки, и адаптировал в модуль:

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils;
type
 TDataTipe=integer;
 PTItem=^TItem;
 TItem=Record
  Data:TDataTipe;
  Prev,Next:PTItem;
 end;
var
 First,CurItem:PTItem;

 Function Ins(PrevItem:PTItem;AData:TDataTipe):PTItem;
 Function Sort(a,b:integer):boolean;

implementation



//Добавляем в список**********************
  Function Ins(PrevItem:PTItem;AData:TDataTipe):PTItem;
  begin
    new(result);
    result^.Data:=AData;
    Result^.Prev:=PrevItem;
    Result^.Next:=nil;
      if PrevItem<>nil then begin
        if (PrevItem^.Next<>nil) then
         PrevItem^.Next^.Prev:=Result;
        PrevItem^.Next:=Result;
      end;
  end;


// Сортируем ***************************
 Function Sort(a,b:integer):boolean;
 var q:PTItem;s:TDataTipe;j,i:integer;
 begin
  q:=First; i:=0;
  while (q<>nil) and(a<=b) do begin inc(i); j:=i;
   CurItem:=q;
   if i>=a then
		     while (CurItem<>nil) and(j<=b) do begin inc(j);
		      if CurItem^.Data<q^.Data then begin
		        s:=CurItem^.Data;
		        CurItem^.Data:=q^.Data;
		        q^.Data:=s;
		      end;
		      CurItem:=CurItem^.Next;
		     end;
   q:=q^.Next;
  end;
 end;

end.

Не проверял что правда, но думаю как идея подойдет.

провести слияние в выходной список.

Это уже сам