VPF::[Pascal] Реализация стека - Форум программистов

Br1gad1r

Дата 22.11.2006, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.11.2006

Репутация: нет
Всего: нет

Связанный список - стек, где добавления и удаления осуществляются в голове.
P.S. Помогите пожалуста написать программу.!

volvo877

Дата 23.11.2006, 02:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Br1gad1r, например, так:

Код

type
  T = integer; { <--- Для простоты замены типа данных }

  stack = ^node;
  node = record
    value: T;
    next: stack;
  end;

function empty_stack(s: stack): boolean;
begin
  empty_stack := (s = nil);
end;

procedure push(var s: stack; X: T);
var p: stack;
begin
  new(p);
  p^.value := X;
  p^.next := s;

  s := p;
end;

procedure pop(var s: stack; var X: T);
var p: stack;
begin
  if s = nil then exit
  else begin
    p := s;

    X := s^.value;
    s := s^.next;

    dispose(p);
  end
end;

var
  top: stack;
  i: integer;
begin
  top := nil;

  for i := 1 to 10 do
    push(top, 4 * i);

  while not empty_stack(top) do begin

    pop(top, i);
    write(i:3);

  end;
  writeln;
end.

Если пользоваться встроенными типами Паскаля, то можно pop сделать функцией, я сделал ее процедурой для более объей реализации, например, стек структур (функция в Турбо Паскале не сможет вернуть структуру, только через Var параметр процедуры)...

Br1gad1r

Дата 23.11.2006, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 22.11.2006

Репутация: нет
Всего: нет

Спасибо большое)

Alexeis

Дата 24.11.2006, 11:12 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Модератор: не забывайте указывать, что вопрос решен. ("Пометить как решенный")

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »