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

[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]

мне кажется так:

А теперь - по шагам, для тех кто не понимает Паскаля, пройди и попробуй получить по своему алгоритму (приведенному в первом посте) из того, что написал я, твой результат...

Что и куда переносится, напиши...

Вот так вот:
1. исходный список: <5, 6, 7, 8, 9> элемент P = 7
2. текущий элемент = 5, меньше P, переносим его туда-то, получаем то-то...
3. ... и так далее ...

Я хочу видеть в результате проход по всему списку, и что у тебя получилось... Прежде, чем что-то программировать, надо понять, что это должно делать...

[dream-x]

Вот так вот:
1. исходный список: <5, 6, 7, 8, 9> элемент P = 7
2. текущий элемент = 5, меньше P, оставляем без изменения получем <5, 6, 7, 8, 9>
3. текущий элемент = 6, меньше P, оставляем без изменения т.к. он и так 2-ой получем <5, 6, 7, 8, 9>
4. текущий элемент = 7, равен P, переносим еговначало но после 5 т.к. 5 это начало списка получем <5, 7, 6, 8, 9>
5. текущий элемент = 8, больше P, переносим в конец получем <5, 6, 7, 9, 8>
6. текущий элемент = 9, больше P, переносим в конец получем <5, 6, 7, 8, 9>