Pascal/Delphi pilhas em modo gráfico

[gilmar.vicente]

Olá Bom dia.

 

estudando sobre estrutura de dados, me deparei com um exemplo, encontrado na internet, em modo gráfico que

demonstra a utilização de pilhas.

 

O sistema é o seguinte:

Digita-se o nome e a idade e (acredito eu) ao clicar em listar deveria

aparecer em um listbox os dados digitados.

 

porém, aparece (1-Nome:,Idade:)

Estou encafifado com isso.

 

Há pouco conteúdo em modo gráfico sobre assunto.

 

Grato por qualquer ajuda

unit1.zip

project1.zip

[devair1010]

@gilmar.vicente    esse código é em pascal mas é para ser usado no delphi .

 

[gilmar.vicente]

OK.

 

Você tem algum exemplo em modo gráfico de alguma aplicação que trate de estrutura de dados.

OU alguma ideia que eu passa tentar implementar.

 

sou iniciante em pascal e tenho que entregar um trabalho sobre o assunto.

[devair1010]

@gilmar.vicente    para o modo gráfico usando pascal você  precisa usar o delphi 7 , pois com o turbo pascal ou o pascalzim não tem como usar modo gráfico .

[Simon Viegas]

@gilmar.vicente, tudo depende do que você precisa...

 

32 minutos atrás, gilmar.vicente disse:

OK.

 

Você tem algum exemplo em modo gráfico de alguma aplicação que trate de estrutura de dados.

OU alguma ideia que eu passa tentar implementar.

 

sou iniciante em pascal e tenho que entregar um trabalho sobre o assunto.

 

Que tipo de modo gráfico? que assunto?

 

O modo gráfico no Pascal creio que seja um, no Delphi (que é parente do Pascal) seria outra. Tipo, no Pascal o Gráfico seria mais volta para o ambiente MS DOS. No Delphi, no ambiente Windows.

 

Qual o enunciado do problema? tente explicar melhor o que foi pedido, antes de tentar tirar dúvidas sobre o que encontrou... pois pode ser que não tem relação... entende?

 

Poste o enunciado completo para analisarmos.

 

[gilmar.vicente]

Tenho um trabalho que implemente estrutura de dados (lista encadeada, pilha )  e ambiente gráfico ( buttons, text, mais de um form ).

 

preciso de uma ideia para implementação.

 

[Simon Viegas]

10 horas atrás, gilmar.vicente disse:

Tenho um trabalho que implemente estrutura de dados (lista encadeada, pilha )  e ambiente gráfico ( buttons, text, mais de um form ).

 

preciso de uma ideia para implementação.

 

 

Tudo sugere que seja em Delphi. Qual IDE (programa) utiliza para implementar o código?

adicionado 1 minuto depois

Sobre uma sugestão, poderia implementar uma tabela da copa...  poderia, por sinal, usar os dados reais para preencher os dados.

[gilmar.vicente]

Olá galera.

 

Utilizo o Lazarus IDEv1.8.2 - Tive a ideia de fazer uma Biblioteca Virtual tentando estruturar os dados em um tipo Pilha.

Fiz em modo texto para poder visualizar a lógica.

Mas quando tento implementar com button, edit, form e outros componentes não entendo onde entro com os ponteiros.

Implementei uma primeira tela de menu e uma segunda de cadastro.

 

A meta é fazer uma aplicação com alguma forma de estrutura(pilha,fila) com alocação dinâmica de memória contemplando o máximo de  componentes(button, edit) do Lazarus.

 

Grato por qualquer ajuda.

 

 

empilha_livros - Copia.rar

M_grafico.rar

[gilmar.vicente]

Observe as alterações:

está excluindo no topo do grid.

porém só acrescenta em cima da primeira linha.

Estante_Virtual.zip

[gilmar.vicente]

procedure TfrmCADEXE.BtnIncluirClick(Sender: TObject);
begin

  pilha := Nil;

  begin
  if (pilha = Nil) then
  begin
  new(pilha);

  pilha^.Autor        := EdtNome_Autor.Text;
  pilha^.Nome_da_Obra := EdtNome_Obra.Text;
  pilha^.QTD_Pg       := EdtQtd_Pag.Text;
  pilha^.CEP_Autor    := EdtCEP_Autor.Text;

  pilha^.proximo := nil;
  end
  else
  begin

  aux := pilha;

  while (aux^.proximo <> Nil) do
  new(novo);
  novo^.Autor        := EdtNome_Autor.Text;
  novo^.Nome_da_Obra := EdtNome_Obra.Text;
  novo^.QTD_Pg       := EdtQtd_Pag.Text;
  novo^.CEP_Autor    := EdtCEP_Autor.Text;

  novo^.proximo := Nil;
  aux^.proximo := novo;

  end;
  end;

  ListBox1.Items.Add(pilha^.Autor + ' - ' + pilha^.Nome_da_Obra + ' - ' +  pilha^.QTD_Pg + ' - ' +  pilha^.CEP_Autor);

  EdtNome_Autor.Clear;
  EdtNome_Obra.Clear;
  EdtQtd_Pag.Clear;
  EdtCEP_Autor.Clear;


end;

procedure TfrmCADEXE.BtnRetirarClick(Sender: TObject);
begin

  if (pilha = nil) then
  begin
    ShowMessage('Sem Livros para Retirar');
  end;
  if (pilha <> nil) then
  begin
  aux := pilha;
  While(aux^.proximo <> nil) do
  begin
       penultimo :=  aux;
       aux := aux^.proximo;
  end;
  penultimo^.proximo := nil;// Aqui se encontra o erro
  Dispose(aux);
  end;
end;

Preciso que alguém mais experiente me dê uma luz.

Não está excluindo no topo como deveria.

Help - me

 

[kscheid26]

Pessoal , preciso montar uma calculadora de expressao em delphi com duas pilhas e memoria , alguém tem uma ideia por onde começo , por favor 

[devair1010]

@kscheid26    o que você quer dizer com   calculadora de expressão ? ,    para Que as duas pilhas ?  ,   e Que tipo de memória  ? ,  ..   , , ,,,

[kscheid26]

@devair1010 calculadora igual do windows , que tenha as operaçoes basicas +,-,*,/ e (,) , e que consigo digitar na tela do programa uma expressao ex (2+3) = 5

[devair1010]

@kscheid26 @kscheid26    você pode usar o delphi 7 ,  mesmo ,  crie uma nova Aplication  e no form coloque os botões e depois clique duas veXes em cada button e escreva o código referente a aquele determinado botão , que é na LinguaGem PascaL :

[kscheid26]

@devair1010 obrigada =] 

[kscheid26]

Em 01/10/2021 às 14:41, kscheid26 disse:

@devair1010 sabe me dizer como faço pra inserir duas pilhas nesse programa , consegui momtar a calculadora , mas não tenho ideia de como faço pra inserir as pilhas , pode me ajudar?

 

[devair1010]

@kscheid26     mas ,   para que essas pilhas  ? ,   se você quer guardar os dados calculados ,  pode usar arquivos , porém  , desculpe , mas nem arquivos e nem pilhas lista filas , ainda não tenho conhecimento .

[kscheid26]

@devair1010 Obrigada por toda ajuda =]