по примеру на с++ исправить код на паскале. всего две строчки

@ГузелькаС · Регистрация: 04.12.2011

Author24 — интернет-сервис помощи студентам

C++

void Push(TREE *tree, int l)
{
STACK *tmp= new STACK; 
tmp->tree=tree; 
tmp->l=l; 
tmp->next=stack; 
stack=tmp;
}
 
int Pop(TREE **tree)
{
if(stack!=NULL) 
{ 
STACK *tmp=stack; 
stack=stack->next; 
*tree=tmp->tree; 
int l=tmp->l; 
delete tmp; 
return l; 
} 
else 
return 0;
}
void ShowSymmetricIter(TREE *current, int l)
{
int flag=0; 
while(flag==0) 
{ 
while(current!=NULL) 
{ 
l++; 
Push(current, l); 
current=current->left; 
} 
if(stack==NULL) 
flag=1; 
else 
{ 
l=Pop(&current); //????
for( int i=0; i<l; i++) 
cout << "\t"; 
cout << current->info << endl; 
current=current->right; 
}
}
 
}

Pascal

procedure push(pCurrent:pTreeNode; level:integer); ///вот здесь!!!
          begin
          new(pNew)   ;
          pNew^.info:=pCurrent;
          pNew^.level:=level;
          pNew^.pred:=Stack;
          Stack:=pNew;
          end;
//удаление элемента из вершины стека
function pop(pCurrent:pTreeNode):integer;  //  вот здесь !!!!
var level:integer;
           begin
          if (stack<>nil) then
              begin
 
               pTemp:=stack;
               stack:=stack^.pred;
               pCurrent:=pTemp^.info;
               level:=pTemp^.level;
              dispose(pTemp);
              pop:=level;
               end
            else pop:=0;
           end;
 
  //нерекурсивный обход в симметр порядке
procedure Symmetric(pCurrent:pTreeNode; level:integer) ;
  begin
  Stop:=false;
  while (not stop) do
 
  begin
  while (pCurrent <> nil) do
    begin
    level:=level+1;
    push(pCurrent,level);
    pCurrent:=pCurrent^.left;
    end;
 
 
    if (stack=nil) then stop:=true
    else
    begin
    level:=pop( pCurrent);
    for i:=0 to level-1 do write('     ');
    writeln( pCurrent^.info);
    pCurrent:=pCurrent^.right;
    end;
 
  end;

	03.05.2013, 09:11