Ilha e fila

algoritmo analizaExpressao;

var Expressao: string de caractere;

i:inteiro;

simbolo:caractere;

valido:logico;

p:Pilha

Inicio

leia(expressao);

i := 0;

valido := true;

enquanto i < Tamanho(Exp) faca

inicio

Simbolo := Expressao[i];

se simbolo pertence a { '{','[','(' } entao

p.empilha(simbolo)

senao

Se Simbolo pertence a { '}',']',')' } entao

se p.pilhavazia() entao

valido:=false

senao

se (Simbolo = '}') e (p.elementoDoTopo()) = '{' ) entao

p.desempilha()

senao

se (Simbolo = ']') e (p.elementoDoTopo()) ='[' ) entao

p.desempilha()

senao

se (Simbolo = ')') e (p.ElementoDoTopo()) = '(' ) entao

p.desempilha();

fimse

fimse

fimse

fimse

fimse

fimse

i := i + 1;

fimenquanto;

se p.pilhaVazia() e valido entao

Escrevere('Expressão Correta')

senao

Escrever('Expressão Incorreta');

fimse

fimalgoritimo