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

[FENIX]

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

[volvo]

Кстати, FENIX, в программе есть еще 2 недочета:

1. В процедуре добавления в список спереди - не увеличивается счетчик элементов и начнутся проблемы при добавлении элемента в пустой список. Вот более правильный вариант:

Код

Procedure List.Add_Head(D : Inf);
var p, q : Ptr;
begin
 New(p);
 p^.Dn := D;
 p^.Nx := q;
 If First = nil Then Last := p; { <--- Это было упущено }
 q := p;
 Inc(Count); { <--- Это тоже }
end;

2. Процедуру добавления элементов в хвост списка можно немного оптимизировать:

Код

procedure List.Add_End(D : Inf);
var p : Ptr;
begin
 New(p);
 p^.Dn := D;
 p^.Nx := nil;
 if Last = nil then First := p
 else Last^.Nx := p;

 Last := p;
 Inc(Count);
end;