стеки

[lena-tus]

сть такая задача:
Написать программу по созданию, добавлению, просмотру однонаправленного линейного списка типа СТЕК. Требуется создать исходный список из N положительных и отрицательных случайных целых чисел. В созданном списке вычислить среднее арифметическое и заменить им первый элемент. Вот все что смогла сделать.
Проблема в том, что не могу реализовать вывод стека с элементом средн. знач. стека. Помогите! Пожалуйста!

[ViktorR]

по созданию, добавлению, просмотру однонаправленного линейного списка типа СТЕК

Тут некоторое разночтение между понятиями стека и линейного списка.
Стек - структура с разрушением: при чтении данных из стека его элементы удаляются. Однонаправленный список - это самостоятельная структура. Так, в вашем примере чтение из стека:

function pop(top:pnode; var el:string):pnode;
var
   p:pnode;
begin
    el:=top^.s;
    pop:=top^.p;
    dispose(top); // вот это "разрушитель"
end;

Опишите элемент списка иначе:

type
  pnode=^node;
  node=record;
  n : integer;  // номер элемента - ключ
   m: integer;
  p:pnode;
  end;

Тогда функция добавления в список:

function Add(beg:pnode; n, el:integer):pnode;
   var p:pnode;
begin
   new(p);
   p^.n := n;
   p^.m:= el;
   p^.p:= beg;
   beg:= p;
end;

Заполнение списка:

for i:=1 to n do
begin
    ror:=random(256)-128;
    beg:=Add(beg, i, ror);
end;

Функция извлечения из списка будет, например так:

function rNext(start : pnode, i, el) :pnode;
begin
      i := start^.n;
      el := start^.m;
      rNext := start^.p;
end;

Извлечение для подсчета суммы:

start := beg;
Sum := 0;
While start <> nil do
begin
   start := rNext(start, i, a);
   Sum := Sum + a;
   n := i;
end;

И т.д. ... Не забудьте написать и процедуру удаления списка.
Что то вроде такой:

procedure Del(var beg : pnode);
   var p1: pnode;
begin
   while beg <> nil do
   begin
      p1 := beg^.p;
      dispose(beg);
      beg := p1;
   end;
end;

Остается научиться заменять значение в заданном элементе

Как-то так ...
PS: Это не проверялось ...

[ZX Spectrum-128]

1) сообщ. #1 читать вложение

[ViktorR]

ZX Spectrum-128
Иногда посматривайте на дату публикации, например: 19.02.2013 21:21.
Опс ...


Как-то так, ...

[ZX Spectrum-128]

Тут было сообщение от владлены какой-то

Вот это
http://programmersforum.ru/showthread.php?t=248924
Должно быть, модераторы перенесли.

[Serge_Bliznykov]

Должно быть, модераторы перенесли.

точно так. эта Владлена создала три своих темы + влезла в чужую тему.

Так что, ViktorR, Вы не правы, обвинение в некропостерстве тут не подходит.

[ViktorR]

Простите, не доглядел.