списки, списки Опции

[Iryska]

помогитe, кто чeм можeт. a то сaмa сдeлaть нe могу) литeрaтурa проходит мимо мозгa) ''Дан неупорядоченный
линейный односвязный список
и массив , содержащий номера
соответствующих элементов в
упорядоченном списке .
Перестройте данный список в
соответствии с номерами ,
заданными массивом''

[klik1602]

function get_item (n : integer) : plist - это функция получения указателя на голову списка?? и зачем new_start : plist? я не нашла где он используется?
мм, что-то у меня программа абру-кадабру а не переставленный список выдала))
вот мои наработки..

uses
 crt; {dlya ispol'zovaniya readkey i clrscr}
type
 Tinf=integer; {tip dannih elementa spiska}
 List=^TList; {ukazatel na element tipa TList}
 TList=record
  data:Tinf;
  index:Tinf;
  next:List;
 end;
 mass=array[1..10] of integer;
 stroka=string[30];
var
spis1,news1:List;
flag:boolean;
a:mass;
n:integer;


procedure vvodlist (var spis1:List);
var
 tmp:List;
 x:integer;
 f:text;
begin
 assign(f,'L14_spis.txt');
 reset(f);
 while not eof(f) do
 begin
  read(f,x);
  if spis1=nil then
  begin
   GetMem(spis1,sizeof(TList));
   tmp^.data:=x;
   tmp:=spis1;
 end
 else
 begin
  tmp:=spis1;
  while tmp^.next<>nil do
  tmp:=tmp^.next;
  GetMem(tmp^.next,sizeof(TList));
  tmp:=tmp^.next;
 end;
 tmp^.next:=nil;
 Tmp^.data:=x;
 end;
 close(f);
end;


procedure vivodlist(var spis1:List; flag:boolean;zag:stroka);
var
 fout:text;
begin
 assign(fout,'L14_itog.txt');
 if flag then
  rewrite(fout)
 else
  append(fout);
 writeln(fout,zag);
 while spis1<>nil do
 begin
  write(fout,spis1^.data,' ');
  spis1:=spis1^.next;
 end;
 writeln(fout);
 close(fout);
end;


procedure vvodmatr(var a:mass);
var
 i:integer;
 f:text;
begin
 assign(f,'L14_mass.txt');
 reset(f);
 for i:=1 to 10 do
 begin
  read(f,a[i]);
    end;
 close(f);
end;

procedure vivodmatr(a:mass);
var
 i:integer;
 fout:text;
begin
 assign(fout,'L14_itog.txt');
 append(fout);
 writeln(fout,'Massiv');
 for i:=1 to 10 do
 begin
   write(fout,a[i],' ');
 end;
  writeln(fout);
 close(fout);
end;

procedure sort(var spis1:List);
var
 Links : array[1 .. 10] of List;

function get_spis (n : integer) : list;
 var
  p:list;
  i : integer;
   begin
      p:=spis1;
      for i := 1 to n - 1 do p:= p^.next;
      get_spis:= p;
   end;

var
  i : integer;
  news1:list;
begin
   for i := 1 to n do
      Links[i] := get_spis(a[i]);
      spis1:= Links[1];
   for i := 2 to n do
      Links[i - 1]^.next := Links[i];
   Links[n]^.next := nil;
end;



begin
 n:=10;
 spis1:=nil;
 vvodlist(spis1);
 flag:=true;
 vivodlist(spis1,flag,'First Spisok');
 vvodmatr(a);
 vivodmatr(a);
 sort(spis1);
 flag:=false;
 vivodlist(spis1,flag,'Otsort Spisok');
end.

Сообщение отредактировано: klik1602 - 3.03.2011 10:54