операции над стеком

[VinDiz]

Столкнулся с проблемой синтаксиса в консольном приложении Delphi XE3. перед мной стоит задача создать стек, вписать туда значения, и удалить из него значение по приоритету минимальный, так вот! Я создаю Массив в который вводу числа потом эти числа заходят в стек а вывести стек командой Write не могу подскажите пожалуйста! и еще, можете подсказать как сделать что бы запустилась компиляция и у меня была такая строка "1 - ввести элемент 2 - удалить элемент 3 - выход" ну и функционирование заключалось ее названию.... вот что у меня вышло... процедуры удаления элемента из стека не где не вызваны.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  Stack=^TStack;
  TStack=record
   Elem:integer;
   NextElem:Stack
  end;

  procedure CreateStack ( var StackHead: Stack);
begin
  StackHead:=nil;
end;

procedure IncludeInStack( var StackHead: Stack; NewElem: integer );
var
  ServiceVar: Stack;
begin
  {создание нового элемента}
  new( ServiceVar );
  ServiceVar^.Elem:= NewElem;
  {созданный элемент сделать вершиной стека}
  ServiceVar^.NextElem:= StackHead;
  StackHead:= ServiceVar
end;


procedure SelectFromStack( var StackHead: Stack);
var
  ServiceVar: Stack;
begin
     if StackHead <> nil then begin
    {выбор элемента из вершины}
    {запоминание ссылки на старую вершину}
    ServiceVar:= StackHead;
    writeln(StackHead^.Elem);
    {исключение из стека и уничтожение элемента}
    StackHead:= StackHead^.NextElem;
    dispose( ServiceVar )
  end
end;


var Now:Stack; j,a,i : integer;
    d: array[1..6] of integer;
begin
 CreateStack(Now);
 for i:= 1 to 6 do
  begin
 write ('Введите значение:');
 read (d[i]);
 IncludeInStack(Now,d[i]);
   end;
 write ('Stec: ');
   for I := 1 to 6 do begin
 write (Now); end;
  readln;  readln; readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[VinDiz]

хотя бы идеи какие то подкиньте особенно как запилить функции на 1 2 3!

[Stilet]

SelectFromStack

Где используется эта функция?

Короче вот что я имею ввиду:

SelectFromStack(Now);
while Now<>nil do begin
 SelectFromStack(Now);
end;

Или так:

repeat SelectFromStack(Now); until Now=nil;

[VinDiz]

SelectFromStack это удаление поэлементно с стека я ее еще не подключал......у меня не получается вывести значение стека после того как я туда завел массив, или массив туда не завелся а Now=nil просмотрел это при компиляции сразу обнуление значения стека

[Stilet]

SelectFromStack это удаление поэлементно с стека

Ну так присмотрись - она же и производит вывод на экран.
Ты писал этот код, или скомуниздил у кого-то не разбиравшись?
Там все работает так как положено, и внесение и вынесение с выводом.

[VinDiz]

я этот код в инете смотрел! Но честно часов 5 выделил на то что бы попробовать воплотить самому в ИДЕ но не вышло, потом читал литературу с примерами, но сроки очень жмут ошибка студента откладывание на завтра что можно сделать сегодня

[VinDiz]

подскажи как это дело вызывать в консоли кнопками

[Stilet]

Но честно часов 5 выделил на то что бы попробовать воплотить

Я у себя этот код проверил - все работает.

как это дело вызывать в консоли кнопками

Никак. Кнопки в консоли не сделаешь так просто.

[VinDiz]

ну грубо сказано "Кнопки".....сейчас опишу:
в начале компиляции идет:
1 - добавить элемент 2 - удалить элемент 3 - выход
и соответственно при вводе цифры идет действие......опрос после каждой введенной цифры, и удаление по одной цыфре

[VinDiz]

ошибку выбивает вот в этой строке

write (Now);

пишет

[dcc32 Error] Project1.dpr(63): E2054 Illegal type in Write/Writeln statement