PILHA Visualg

[RodrigoMaciel19]

O meu código não funciona por que?

PILHA no Visualg valendo 10 pontos?

* Criar uma Pilha no Visualg que tenha os menus Sair Incluir e Pesquisar

* Preimeiramente o seu algoritimo devera solicitar ao usuario quantos elementos existe na Pilha

* o usuario poderá sair a qual quer momento da execução

* tera que verificar uma possivel situação de erro overlow

concequi isto ai embaixo sou iniciante, abraços

algoritmo "registro"

// Função :Pilha

// Autor :Rodrigo_Maciel

// Data : 11/10/2010

// Seção de Declarações

var

tipo pilha_reg = Registro

topo: inteiro

elemento:vetor[1..50]de inteiro

fim

pilha:pilha_reg

inicio

pilha.topo <- -1

função vazia (): lógica

inicio

se (pilha.topo = -1)então retorne .v.

senão .f.

fim-se

fim

função cheia ():lógica

inicio

se (pilha.topo >=50) então

retorne .v.

senão .f.

fim-se

fim

procedimento empilhar (elem: inteiro)

inicio

se (cheia() = .f.)então

pilha.topo <- pilha.topo +1

elemento.topo <- elem

senão

mostre ("pilha cheia!")

fim-se

finção desempilhar(): inteiro

var

valorDesempilhado: inteiro

inicio

se (vazia() = .f.) então

mostre ("Pilha vazia!")

valorDesempilhado <- nulo

retorne (valorDesempihado)

fim-se

procedimento exibepilha( )

var

i:inteiro

inicio

Para(i <- 0 até topo)faça

mostre "elemento", elemento, "posição", i)

fim-para

fim

fimalgoritmo