Стек Delphi

[ArtemMED]

Здравствуйте, нужно написать добавление и вывод элементов и удаление , всё это на стеке, модель стека я понял, реализовать не получается.
Вот то что накидал( click ), при выводе уходит в беск.цикл, не понимаю где ошибка ,в добавлении в стек, или в выводе из него, это не массив, где легко всё проверить, и еще хотел бы попросить совета где взять литературу, в которой побольше написанно про стек в делфи.
заранее спасибо.

[eoln]

В выводе нет перехода на следующий элемент, измени его на

  while ac <> nil do
  begin
    writeln(ac^.id,' ',ac^.maker,' ',ac^.cost,' ',datetostr(ac^.daterec),' ',DateToStr(ac^.datesend));
    ac := ac^.prev;
  end;

По поводу литературы не скажу, но если нужен стек именно для Delphi, то в там уже есть стандартные классы http://www.programmersforum.ru/showthread.php?t=91642

[Utkin]

Нафига эта тягомотина? Ну не удобно же. Взял бы под хранилище динамический массив и на его основе собрал модель стека. Нужен тебе этот геморрой с ссылками?

[eoln]

Utkin, скорее всего задача учебная, поэтому и нужны стеки.
Кстати, в настоящем стеке при взятии элемента он удаляется, т.е. 2 раза просмотреть его нельзя, а в этой программе можно. Т.е. это какой-то модифицированный стек получается. И вот тут с динамическим массивом очень нехорошо может получиться, т.е. когда надо будет удалять элементы (особенно из начала), то придётся либо весь массив передвигать, либо аттрибут пропуска устанавливать. Но и со стеком это делать не очень удобно (придётся запоминать связи), а вот двусвязные списки будут в самый раз.
Так что динамические списки жили, живут и будут жить

[Utkin]

Не я не про стеки, а про ссылки . Динамический массив так и проситься под реализацию стека.

[никиткаа]

помогите пожалуйста у меня этой темой большой напряг(((

Условие: y1=-10/x, а y2=3-x. х изменяется от -10 до 10 с шагом 1. Найти сумму всех y1 и y2. (S=Sy1+Sy2).


вот пробывал не знаю правильно или нет(