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

[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

[dream-x]

Задание слегка изменилось но суть таже... Составить программу вставки элемента O после каждого элемента списка, превышающее некоторое значение Р.
Вот код... но есть проблема он стирает последующие символы...

Program Spisok;
Uses CRT;
Type
    TData=integer;
    PLink=^TElement;
    TElement=Record
                  Data:TData;
                  Link:PLink;
            End;
{----------------}
Procedure InPutList(Var List:PLink);
Var
   ElNew:PLink;
   Value:TData;
   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(value);
              New(ElNew);
              ElNew^.Data:=Value;
              ElNew^.Link:=List;
              List:=ElNew;
        End;
End;
{----------------}
Procedure OutPutList(List:PLink);
Var
   i:integer;
Begin
     WriteLn('element spiska ');
     While List <> NIL Do
           Begin
                Write(List^.Data,' ');
                List:=List^.Link;
           End;
     WriteLn;
End;
{----------------}
Procedure Insert(var q,l:PLink; x:TData);
Var
   r:PLink;
Begin
New®;
R^.Data:=x;
R^.Link:=Q^.Link;
Q^.Link:=R;
l^.link:=R;
End;
{---------------------}
Var
   List1,Elem,NewElem:PLink;
  o, i,n,p:Integer;
   ff:boolean;
{----------------}
Begin
     InPutList(List1);
     OutPutList(List1);
     Write('wedite P=');
     Readln(P);
     Write('wedite O=');
     Readln(O);
     Elem:=List1;
     NewElem:=List1;
     i:=0;
{----------------------------------}
     While Elem <> NIL Do
           Begin
                If Elem^.Data>p
                Then
                    Begin
                         insert(Elem,NewElem,O);
                         OutPutList(NewElem);
                         i:=I+1;
                         Writeln('*****',i,'*****');
                    End;
                Elem:=Elem^.Link;

           End;
readkey
End.

я не могу понять почему он затирает последующие символы...

[compiler]

Вот код... я не могу понять почему он затирает последующие символы...

чесно говоря, я тоже не очень понимаю твою программу... но если заменить insert, на что-то подобное

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;
end;

то, вроде, функциональность уже ближе к желаемой...
я так и не понял, почему ты туда хочешь передавать три параметра... и еще у тебя в программе есть не используемые переменные. и,если разговор зашел о переменных, я продолжаю рекомендовать объявлять глобальные переменные ПОСЛЕ процедур..

Сообщение отредактировано: compiler - 6.05.2008 15:06

[dream-x]

чесно говоря, я тоже не очень понимаю твою программу... но если заменить insert, на что-то подобное

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;
end;

то, вроде, функциональность уже ближе к желаемой...
я так и не понял, почему ты туда хочешь передавать три параметра... и еще у тебя в программе есть не используемые переменные. и,если разговор зашел о переменных, я продолжаю рекомендовать объявлять глобальные переменные ПОСЛЕ процедур..

Спасибо!!! Ну что такое, всего-то надо было присвоить ссылке следующее значение и все еще раз спасибо огромное, все понятно. Что-то я ступил...

[compiler]

Спасибо!!!

всегда пожалуйста...

Что-то я ступил...

посмотри еще примеры... и попытайсяя делать код "чище"...