Однонаправленный список, Работа с элементами Опции

[FENIX]

Объект - однонаправленный список без головного элемента.
Частное от деления первых 2-х элементов поместить на 3-е место, если первый элемент больше, иначе заменить первые элементы их суммой.
Что-то не допираю, как сделать

[volvo]

Ну, зачем же так сложно?
Ведь a и b уже считаны !!!

Код

Procedure List.Delenie;
var
Chastnoe, a, b : inf;
pp: ptr;
begin
pp := first;
a := pp^.Dn; { берем первый элемент }
pp := pp^.Nx; { перемещаемся ко второму }
b := pp^.Dn; { берем второй элемент }
pp := pp^.Nx; { перемещаемся к третьему }

If (a > b) and (abs(b) > 10E-6) then begin { на ноль не делим }
  Chastnoe := a / b;
  pp^.Dn := Chastnoe; { результат - в третий элемент }
else begin
  p := first; p^.Dn := a + b;
  p := p^.Nx; p^.Dn := a + b;
end;
end;