Паскаль,работа со стеком.

[Nelson1992]

На языке программирования Pascal реализовать процедуры работы со стеком на последовательном распределении памяти:

- Создание пустого стека

- Добавление элемента на вершину стека

- Удаление элемента с вершины стека

Процедуры, реализующие операции добавления и удаления элемента должны разумным образом обрабатывать ситуации переполнения и нехватки (схемы (2а), (3а)). Стек реализовать, используя одномерный массив и переменную типа integer (указатель на вершину стека).

вот я немного написал....но по частям...это правильно?

Создание пустого стека:

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

Проверка стека на пустоту

function StackIsClear( var StackHead: Stack ): Boolean; 
begin 
StackIsClear:= ( StackHead= nil ) 
end;

добавление элемента в вершину стека:

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

И удаление элемента из вершины стека:

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

Если всё правильно теперь только мне всё это надо теперь соеденить в одну программу.

[Stilet]

Ну приблизительно так:

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 sh:Stack;
begin
 CreateStack(sh);
 IncludeInStack(sh,1);
 IncludeInStack(sh,2);
 IncludeInStack(sh,3);

 SelectFromStack(sh);
 SelectFromStack(sh);
 SelectFromStack(sh);

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.