BPUBLICA AGRUPAMENTO DE EsCOLAS DE CARVALHOS
PORTUGUESA
EDUCAçho ESCOLA SOUDARIA

DEPARTAMENTO DE MATEMATICAE CIÊNCIAS EXPERIMENTAIS
CURS PROFISsiONAL TÉCNICo DE GESTÄO E PROGRAMACao DE SISTEMAS ORMATICOS

Ficha de Trabalho N° 1
Disciplina: Programação e Sistemas de Informação
Módulo: 6-Estruturas de Dados Dinàmicas
Formando: Turma G/ 1 Ano
Formadores: Conceiçāo Marques e Vasco Fernandes Classificação:
- Bxpezimente no compurador o sguinte programa em Pascal para Insergäo, Eliminação e Listagem de
elementos em Pilhas
Program Pilha;
type TipoNo-record
infostring, // Informação guardada pelo Nó
end prox:"TipoNo; // Apontador para o próxim Nó

var Top:TipoNo, //Apontador para o topo da pilha
PxTipoNo;// Apontador Auxiiar (recebe a informação antes de ir para a pilha)
op:integer; // Opção do utilizador

procedure insere;
begin

writeln (lntroduza a informação a guardar);
read (Px info);
Px'prox: op; // Aponta para o nó que estava anteriormente no topo

end p:-Px; // O topo passa a ser o nó inserido

procedure percorre;
begin
if Top-nil then
writeln (Pilha vazia')
else
begin op; // Apontador auxilia aponta para o topo da pilha
while Px<nil do // Enquanto não chegar ao o fim da pilha
begin writeln (Px'info); // Imprime a informação guardada no nó
Px-Px prox; // Avança para o nó seguir lte
end;
end
end;

Ano letivo 2018 2019 ' /4
super
poCH DA CRCA