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

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

[volvo]

Я там поправил, у Insert всего 2 параметра, я просто скопировал на автомате... А вызов - как я показал раньше...

[dream-x]

Я там поправил, у Insert всего 2 параметра, я просто скопировал на автомате... А вызов - как я показал раньше...

Volvo все равно косяк... Он выводит только 1-ое изменение...

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

[volvo]

Проверяй внимательно, у меня только что все отработало...

[dream-x]

Проверяй внимательно, у меня только что все отработало...

Ага я TP7 перезапустил и все заработало... спс!
P. S. Извини конечно меня а ты не мог бы посмотреть мой бред с таблицей я уже с ней неделю сижу а мне через неделю курсач сдавать.