Задача с использованием списка Опции

[ruVdim]

Задание: Вводится последовательность целых чисел(по одному). Используя список, найти среднее двух соседних чисел. Организовать новый список в котором расположить средние по неубыванию. Распечатать списки.

uses crt;
type
  plist = ^tlist;
  tlist = record
    info: integer;
    link: plist;
  end;
var
  first1, posl1 : plist;

procedure print(p: plist);
begin
  while p <> nil do begin
    write(p^.info:5);
    p := p^.link
  end;
  writeln;
end;

procedure vvod (var first, last: plist);
var
  s: integer;
  p: plist;
begin

  last := first;
  repeat
    write('Vvedite sled element: '); readln(s);
    if s <> 25 then begin
      new(p);
      p^.info := s;
      p^.link := nil;

      if first = nil then first := p
      else last^.link := p;
      last := p;
    end;
  until s = 25;

end;

var
  ii, jj, nmin: plist;
  T: integer;

begin
  clrscr;
  writeln('Perviy spisok:');
  first1:=nil; vvod (first1, posl1);
  print(first1);

  { Sortirovka }
  ii := first1;
  while ii^.link <> nil do begin
    nmin := ii;

    jj := ii^.link;
    while jj <> nil do begin
      if jj^.info < nmin^.info then nmin := jj;
      jj := jj^.link;
    end;

    T := ii^.info;
    ii^.info := nmin^.info;
    nmin^.info := T;

    ii := ii^.link;
  end;
  writeln('Otsort spisok:');
  print(first1);

end.

.
Я создал список, затем нужно только вычислить средние ариф. соседних чисел (отсортировал полученный). Помогите пожалуйста.
Заранее спасибо..

[volvo]

Ты зря сортировал ЭТОТ список...

Опиши процедуру Append, задачей которой будет добавлять переданное в нее значение типа Real в список... Потом проходи по исходному списку, и делай так:

...
p := firstl; { <--- начало твоего списка }
while (p <> nil) and (p^.link <> nil) do begin
  append(new_list, (p^.info + p^.link^.info) / 2);
  p := p^.link;
end;
...

После заполнения списка средних его надо будет отсортировать...

Справишься?

[ruVdim]

Ты зря сортировал ЭТОТ список...

Опиши процедуру Append, задачей которой будет добавлять переданное в нее значение типа Real в список... Потом проходи по исходному списку, и делай так:

...
p := firstl; { <--- начало твоего списка }
while (p <> nil) and (p^.link <> nil) do begin
  append(new_list, (p^.info + p^.link^.info) / 2);
  p := p^.link;
end;
...

После заполнения списка средних его надо будет отсортировать...

Справишься?

Не знаю, попробую...

[ruVdim]

Не знаю, попробую...

Я описал процедуру, которая добавляет в новый список вещ. числа

type
  pt = ^k;
  k = record
    i: real;
    l: pt
  end;
var
  px, pk : pt;
-----------
Procedure append(var pk: pt; var r: real);
  var
    px : pt;
  begin
    new(px);
    px^.l:=nil;
    pk^.l:=px;
    pk:=px;
    pk^.i:=r;
  end;

Но при выполнении этой процедуры возникли сложности : "Фактический параметр должен быть переменной"
append(pk, (p^.info + p^.link^.info) / 2);