Estrutura de dados

Disponível somente no TrabalhosFeitos
  • Páginas : 4 (857 palavras )
  • Download(s) : 0
  • Publicado : 11 de março de 2012
Ler documento completo
Amostra do texto
Exercícios de Estrutura de dados – Pilhas e filas

Exercício 1)

Considere o programa abaixo. O programa implementa uma pilha e suas instruções que estão ausentes no texto do programaencontram-se nos quadros ao lado sem a devida ordenação. Com base no conhecimento do conceito de pilha complete o programa com as devidas instruções.

Program ALgPilha;
uses crt;

Const MAX = 10;
TypeElemento = string[2];
Pilha = record
Topo : Integer;
Corpo : array [1..MAX] of Elemento
end;
mens = string[30];

Var P:Pilha;Valor : Elemento;
Opcao : Integer;

Procedure Inicio (var P:pilha); { Parametro por referencia }
begin
P.Topo := 0;
end;

Function PilhaCheia ( var P:pilha ) : Boolean;
Begin
IfP.Topo = MAX
then PilhaCheia := true
else PilhaCheia := false;
End;

Function PilhaVazia ( var P:pilha ) : Boolean;
Begin
If P.Topo = 0
then PilhaVazia := true
elsePilhaVazia := false;
End;

Procedure Push ( var P : pilha ; x : elemento ) ;
{ Empilha um elemento x na Pilha }
Begin
If PilhaCheia ( P )
then write (' Pilha Cheia ( Stack Overflow) ')else Begin
____________________ ;
___________________ ;
End;

End;

Function Pop ( var P : pilha ) : Elemento ;
{ Remove o elemento do topo de Pilha}
Begin
If PilhaVazia ( P )
then write ( 'Pilha Vazia ( Stack Underflow) ')
else Begin
__________________;
__________________;
End;
End;

{ ProgramaPrincipal }
Begin
Clrscr;
opcao:=0;
While Opcao 5 do
Begin
gotoxy (1,1);
Writeln ('Programa de Pascal - Pilhas ');
Writeln ('Escolha uma opcao: ');
Writeln ('1 : Inicia apilha ');
Writeln ('2 : Empilar elemento ');
Writeln ('3 : Desempilar elemento');
Writeln ('5 : Fim do programa ');
Writeln ('');
Write ('Opcao:');
Readln (Opcao);
if (...
tracking img