SHARE
TWEET

Untitled

a guest May 22nd, 2019 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. BPUBLICA AGRUPAMENTO DE EsCOLAS DE CARVALHOS
  2. PORTUGUESA
  3. EDUCAçho ESCOLA SOUDARIA
  4.  
  5. DEPARTAMENTO DE MATEMATICAE CIÊNCIAS EXPERIMENTAIS
  6. CURS PROFISsiONAL TÉCNICo DE GESTÄO E PROGRAMACao DE SISTEMAS ORMATICOS
  7.  
  8. Ficha de Trabalho N° 1
  9. Disciplina: Programação e Sistemas de Informação
  10. Módulo: 6-Estruturas de Dados Dinàmicas
  11. Formando: Turma G/ 1 Ano
  12. Formadores: Conceiçāo Marques e Vasco Fernandes Classificação:
  13. - Bxpezimente no compurador o sguinte programa em Pascal para Insergäo, Eliminação e Listagem de
  14. elementos em Pilhas
  15. Program Pilha;
  16. type TipoNo-record
  17. infostring, // Informação guardada pelo Nó
  18. end prox:"TipoNo; // Apontador para o próxim Nó
  19.  
  20. var Top:TipoNo, //Apontador para o topo da pilha
  21. PxTipoNo;// Apontador Auxiiar (recebe a informação antes de ir para a pilha)
  22. op:integer; // Opção do utilizador
  23.  
  24. procedure insere;
  25. begin
  26.  
  27. writeln (lntroduza a informação a guardar);
  28. read (Px info);
  29. Px'prox: op; // Aponta para o nó que estava anteriormente no topo
  30.  
  31. end p:-Px; // O topo passa a ser o nó inserido
  32.  
  33. procedure percorre;
  34. begin
  35. if Top-nil then
  36. writeln (Pilha vazia')
  37. else
  38. begin op; // Apontador auxilia aponta para o topo da pilha
  39. while Px<nil do // Enquanto não chegar ao o fim da pilha
  40. begin writeln (Px'info); // Imprime a informação guardada no nó
  41. Px-Px prox; // Avança para o nó seguir lte
  42. end;
  43. end
  44. end;
  45.  
  46. Ano letivo 2018 2019 ' /4
  47. super
  48. poCH DA CRCA
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top