Задача на списки Опции

[dream-x]

Здравствуйте! Я был бы очень рад если бы вы мне помогли бы с маленькой пробдемой...
Программа должна переставить элементы списка по следующему звкону: если текущий элемент больше некоторого числа Р то поместитьследующий заним элемент в конец цепочки; если текущий элемент меньше или равен Р перенести его в начало цепочки (первый оставить безизменения)
Вот код но это не вся программа почемуто у меня список не хочет присваиваться и выводится на экран...

Program Spisok;
Uses CRT;
Type
    TDat=integer;
    TLink=^Element;
    Element=Record
                  Data:TDat;
                  Link:TLink;
            End;
Var
   List1,Elem,FindElem:TLink;
   i,n,p:TDat;
{----------------}
Procedure InPutList(Var List:TLink);
Var
   ElNew:TLink;
   Val:TDat;
   i,n:Integer;
Begin
     ClrScr;
     WriteLn('vvedite kol-vo elementov spiska ');
     ReadLn(n);
     List:=NIL;
     For I:=1 To n Do
         Begin
              WriteLn('vvedite ',i,' element');
              Read(val);
              New(ElNew);
              ElNew^.Data:=Val;
              ElNew^.Link:=List;
              List:=ElNew;
        End;
End;
{----------------}
Procedure OutPutList(Var List:TLink);
Var
   i:TDat;
Begin
     WriteLn('element spiska ');
     While List <> NIL Do
           Begin
                Write(List^.Data,' ');
                List:=List^.Link;
           End;
     WriteLn;
End;
{----------------}
{----------------}
Begin
     InPutList(List1);
     List1:=List1;
     OutPutList(List1);

     OutPutList(List1);
     Elem:=List1;



     Write('wedite P=');
     Readln(P);


     FindElem:=NIL;
     While List1 <> NIL Do
         Begin

           If Elem^.Data>P
           Then
               Begin
                    FindElem:=Elem;
                    New(FindElem);
                    {Elem^.Link:=NIL;}
                    Elem^.Link:=FindElem;
                    FindElem^.Link:=NIL;

               End
           Else Elem:=Elem^.Link;

        End;

     OutPutList(Elem);


End.

Заранее СПАСИБО...

Сообщение отредактировано: dream-x - 4.05.2008 18:56

[volvo]

Почти... Надо вот так:

procedure insert(var p_now: PLink; const data:TData);
var
   p_new:PLink;
begin
   new(p_new);

   p_new^.data := data;
   p_new^.link := p_now^.link;
   p_now^.link := p_new;
   p_now := p_now^.link; { <--- Ты ж добавил элемент, надо его пропустить! }
end;

А вызывать - вот так:

     While Elem <> NIL Do Begin

       If Elem^.Data>p Then Begin
         insert(Elem,O);
         OutPutList(List1); { <--- Печатать ВЕСЬ список, а не с плавающего указателя ... }
         i:=i+1;
         Writeln('*****',i,'*****');
       End;
       Elem:=Elem^.Link;
     End;

Сообщение отредактировано: volvo - 9.05.2008 18:28

[dream-x]

Почти... Надо вот так:

procedure insert(var p_now,p_list:PLink; const data:TData);
var
   p_new:PLink;
begin
   new(p_new);
   p_new^.data := data;
   p_new^.link := p_now^.link;
   p_list := p_now;
   p_now := p_new^.link; { <--- Ты ж добавил элемент, надо его пропустить! }
end;

А вызывать - вот так:

     While Elem <> NIL Do Begin

       If Elem^.Data>p Then Begin
         insert(Elem,O);
         OutPutList(List1); { <--- Печатать ВЕСЬ список, а не с плавающего указателя ... }
         i:=i+1;
         Writeln('*****',i,'*****');
       End;
       Elem:=Elem^.Link;
     End;

Блин в процедуре действительно оплашал а это я же так хотел сделать вод дурак что меня оставнавило не знаю)) Спасибо...

Добавлено через 14 мин.

Блин в процедуре действительно оплашал а это я же так хотел сделать вод дурак что меня оставнавило не знаю)) Спасибо...

Хм я чет не понял смотри есди я вызываю так:

 While Elem <> NIL Do
           Begin
                If Elem^.Data>p
                Then
                    Begin
                         insert(Elem,list1,O);  { вот собственно так? если да то нефига }
                         OutPutList(list1);
                         i:=i+1;
                         Writeln('*****',i,'*****');
                    End;
                Elem:=Elem^.Link;
           End;