VPF::Что такое стек и как с ним работать? Как удалять

Natallja

Дата 1.5.2005, 16:00 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть задача, но есть также и ошибки, сама писала эту фигню и сама же не могу разобраться, вот до чего довели учителя бедного студента! Помогите! Спасите! Нвжно было создать стек, добавить и удалить элементы.

Код

Program Stack_my;
Uses crt;
Type
    U= ^zveno;
    zveno=record
    number:integer;
    next:U;
    end;

var stack:U;
    z:U;
    x:integer;
    key:char;

Procedure Sozd(st:U);
begin
 st:=nil;
 writeln('est pustoj stack');
end;


Procedure Push(st:U; i:integer);{}
var p:U;

begin
 new(p);
 p^.number:=i;
 p^.next:=st;
 st:=p;
 writeln('Dobavili element steka');
end;


Procedure Pop(st:U; i:integer);
var p:U;

begin
 i:=st^.number;
 p:=st;
 st:=p^.next;
 dispose(p);
 writeln('Udalili element steka');
end;



Procedure Rasp(stack:U);
var p:U;

begin
 p:=stack;
 while p<>nil do
 begin
  write(p^.number:15);
  p:=p^.next;
  end;
  readln(x);
end;

Procedure Menu;
begin
 writeln('1 - Sozdanije steka');
 writeln('2 - Dobavlenije elementa v stack');
 writeln('3 - Udalenije elementa iz stack');
 writeln('4 - Vivod na ekran stack');
 writeln('0 - Vihod');
end;


Begin
ClrScr;

 Menu;
 Repeat
 readln(key);
  case key of
   '1':sozd(z);
   '2':push(z,x);
   '3':pop(z,x);
   '4':rasp(z);
   end;
   until key='0';

end.

Это сообщение отредактировал(а) Fedor - 1.5.2005, 20:30

SPrograMMer

Дата 1.5.2005, 16:47 (ссылка)

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

Загрузка ...

Спамер :)

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

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

Natallja тебе вот сюда бы сходить, там правда про очередь, но моно и на стек сообразить.

PS: неохота почти то же второй раз переписывать smile

Это сообщение отредактировал(а) SPrograMMer - 1.5.2005, 16:51

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

животное = зверь
законченный гентушник

Natalja

Дата 1.5.2005, 16:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

da, ja tut uze polazila nemnogo, poprobuju. Spasibo za ifo

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