Quantidade de parênteses iguais usando pilha

Dado uma equação matemática qualquer, tal como, ((x+y)*z) identifique se o conjuto de parênteses a esquerda apresenta complemento a direita. Em caso afirmativo apresentar como resultado "equação correta". Caso contrário, "operação inválida, erro na composição dos parênteses.

A solução encontra-se abaixo:

Caso queria baixar os fontes clique aqui.


program Expressao;

type
  TipoChave     = char;
  TipoApontador = ^TipoCelula;
  TipoItem      = record 
                    Chave: TipoChave;
                    { outros componentes }
                  end;
  TipoCelula    = record 
                    Item: TipoItem;
                    Prox: TipoApontador;
                  end;
  TipoPilha     = record
                    Fundo  : TipoApontador;
                    Topo   : TipoApontador;
                    Tamanho: integer;
                  end;

procedure FPVazia (var Pilha: TipoPilha);
begin
  new (Pilha.Topo);
  Pilha.Fundo := Pilha.Topo;
  Pilha.Topo^.Prox := nil;
  Pilha.Tamanho := 0;
end; { FPVazia }

function Vazia (Pilha: TipoPilha): boolean;
begin
  Vazia := Pilha.Topo = Pilha.Fundo;
end; { Vazia }

procedure Empilha (x: TipoItem; var Pilha: TipoPilha);
var Aux: TipoApontador;
begin
  new (Aux);
  Pilha.Topo^.Item := x;
  Aux^.Prox := Pilha.Topo;
  Pilha.Topo := Aux;
  Pilha.Tamanho := Pilha.Tamanho + 1;
end; { Empilha }

procedure Desempilha (var Pilha: TipoPilha; var Item: TipoItem);
var q: TipoApontador;
begin
  if Vazia (Pilha)
  then writeln ('Erro: lista vazia')
  else begin
       q := Pilha.Topo;
       Pilha.Topo := q^.Prox;
       Item := q^.Prox^.Item;
       dispose (q);
       Pilha.Tamanho := Pilha.Tamanho - 1;
       end;
end; { Desempilha }

function Tamanho (Pilha: TipoPilha): integer;
begin
  Tamanho := Pilha.Tamanho;
end; { Tamanho }

var
  pilha, pilha2: TipoPilha;
  item : TipoItem;
  aux : string;
  i : integer;

begin
  FPVazia (pilha);
  FPVazia (pilha2);
  writeln('Digite a expressão');
  readln(aux);
  
  i:=1;
  while i<>length(aux) +1 do
  begin
if aux[i]='(' then
begin
      item.Chave := aux[i];
  Empilha (item, pilha);
end
else if aux[i]=')'then
begin
  item.Chave := aux[i];
  Empilha (item, pilha2);
end;
i:=i+1;
  end;
  
  writeln ('Tamanho da pilha: ', Tamanho (Pilha));
  writeln ('Tamanho da pilha 2: ', Tamanho (Pilha2));
  
  if Tamanho(pilha)=Tamanho(pilha2) then
    writeln('Expressão correta')
  else writeln('operação inválida, erro na composição dos parênteses');
  
end. { Pilha }



Comentários

Postar um comentário

Postagens mais visitadas deste blog

Jogo 21 em C

Buscando meus trabalhos de faculdade achei esse código de um jogo de 21 feito em C. Para compilar use gcc -o jogo21 jogo21.c /* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */ /*  * main.c  * Copyright (C) Tiago Alves de Oliveira e Walisson Maicon Silva 2008  *  * main.c is free software.  *  * You may redistribute it and/or modify it under the terms of the  * GNU General Public License, as published by the Free Software  * Foundation; either version 2 of the License, or (at your option)  * any later version.  *  * main.c is distributed in the hope that it will be useful,  * but WITHOUT ANY WARRANTY; without even the implied warranty of  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  * See the GNU General Public License for more details.  *  * You should have received a copy of the GNU General Public License  * along with main.c.  If not, writ...
Leia mais

Achar Palindromes usando Pilha

Uma pilha é uma estrutura de dados cujas principais funções estão relacionadas a empilhar e desempilhar elementos. Um problema interessante que pode ser resolvido com pilha é a verificação de palíndromos. Um palídromo é uma palavra que sua leitura é a mesma independente se iniciamos na esquerda ou na direita. Um exemplo seria a palavra arara. Assim, a tarefa aqui é elabora um programa em pascal utilizando a estrutura de pilha para verificar se uma palavra é palíndromo ou não. Abaixo segue um programa em Pascal para fazer isso: Caso queria baixar o fonte clique aqui . program Expressao; type   TipoChave     = char;   TipoApontador = ^TipoCelula;   TipoItem      = record                       Chave: TipoChave;                     { outros componentes }                   end ; ...
Leia mais