Динамические списки, Несколько вопросов... Опции

[Rudolf]

Задача:"Описать процедуру, которая находит сумму последнего и предпоследнего элементов списка L, содержащего не менее 2х элементов. L->Э1/->Э2/->...Эn/nil."Вот судя по схеме нужно найти сумму Эn и Э(n-1) я правильно понял??И еще я не могу придумать алгоритм поиска. Я думаю что тут надо использовать двусвязный список или можно односвязным обойтись??

[volvo]

Rudolf, ну, если ты будешь использовать двухсвязный список - сама программка-то будет состоять из одной строки... Так что скорее всего - односвязный. Вот тут тебе придется подумать, как проходить по списку, чтобы не понадобилось возвращаться "назад"...

[Rudolf]

Вот вроде чет придумал:

Код

procedure Poisk(L:link);
var p:link; i,n,s:integer;
Begin
p:=L;
n:=0;
while p<>nil do begin
inc(n);
p:=p^.vol;
end;
s:=0;
P:=L;
while p<>nil do begin
inc(i);
if (i=n) or (i=n-1) then
s:=s+p^.number;
end;

end;

но работать не хочет ...зависает.

[volvo]

Ну, еще бы оно не зависало... Ты же переменную P не изменяешь, она у тебя в одно и то же место указывает во втором цикле, и никогда не будет равна nil...

P.S. Кстати, это можно сделать и одним циклом...

p := L;
while p^.vol^.vol <> nil do p := p^.vol;
s := p^.number + p^.vol^.number;