Помогите со списками, 3 задачи со списками F1 срочно Опции

[Sindzi]

Вот сами задачи:
В задачах 1-3 использовать однонаправленные списки типа:
type te = .......; { тип элементов списка }
sp = ^el;
el = record d :te; n :sp; end;
var L : sp; E : te;
1. Описать функцию, которая находит сумму двух последних элементов списка L.
2. Описать функцию, которая определяет, имеются ли в списке L равные элементы.
3. Описать процедуру, которая в списке L из каждой группы подряд идущих равных элементов оставляет только один.
Помогите плиз

[klem4]

Ну для начала FAQ : Списки

Попробуй написать сам, будут конкретные вопросы, поможем.

Сообщение отредактировано: klem4 - 7.07.2006 20:45

[Jose]

Я воще не шарю в паскале, а вот помощь нужна большая, мне бы ее кто решил

[volvo]

помощь нужна большая, мне бы ее кто решил

А оно тебе поможет? Ну, держи:

function f_1(var first: sp): integer;
var p: sp;
begin
  p := first;
  while p^.n^.n <> nil do p := p^.n;
  f_1 := p^.d + p^.n^.d;
end;
function f_2(var first: sp): boolean;
var
  p, pp: sp;
  found: boolean;
begin
  found := false;
  p := first;
  while (p <> nil) and (not found) do begin
    pp := p^.n;

    while (pp <> nil) and (not found) do begin
      found := (p^.d = pp^.d);
      pp := pp^.n;
    end;

    p := p^.n;
  end;
  f_2 := found;
end;
procedure f_3(var first: sp);
var p: sp;
begin
  p := first;
  while p^.n <> nil do begin

    if p^.d = p^.n^.d then
      while (p^.n <> nil) and (p^.d = p^.n^.d) do begin
        p^.n := p^.n^.n;
      end
    else p := p^.n;

  end;
end;

[Jose]

Огромное спасибо!
Но вот я не могу понять, а что нужно вот сюда написать:
type te = ???;

Взаранее извеняюсь за свою непонятливость

[Jose]

А еще луче было бы если бы была вся программа от самого начала до коконца

[мисс_граффити]

А еще луче было бы если бы была вся программа от самого начала до коконца

это - в "задачи на заказ"

[volvo]

это - в "задачи на заказ"

С указанием сроков выполнения, и цены, которую ты готов заплатить...