Gvicente Posted July 14, 2018 at 08:51 AM Report #611310 Posted July 14, 2018 at 08:51 AM Olá a todos. É minha primeira postagem no fórum. Fiz um esboço de um projeto onde utiliza estrutura de dados (pilha) utilizando ponteiros. Agora vem o problema, gostaria de fazer este mesmo projeto utilizando componentes visual(botões,edit,memo,mais de um form), Não estou conseguindo desenvolver a lógica. Alguém poderia me dar uma luz? Grato. Program project1; USES crt; Type livro = record nome_livro : String; quant_pag : Integer; autor_livro : String; proximo : ^livro; end; Var n_livro, top, pegar_livro : ^livro; opc : Integer; Begin top := nil; WHILE opc <> 3 DO begin writeln('---------MENU---------'); writeln('|1 - Inserir livro. |'); writeln('|2 - Pegar livro. |'); writeln('|3 - Sair |'); writeln('----------------------'); writeln('Digite a opção: '); readln(opc); writeln; CASE opc OF 1 : begin new(n_livro); writeln('----CADASTRAR LIVROS----'); writeln('Nome do livro: '); readln(n_livro^.nome_livro); writeln('Quantidade de páginas: '); readln(n_livro^.quant_pag); writeln('Nome do autor: '); readln(n_livro^.autor_livro); n_livro^.proximo := top; top := n_livro; end; 2 : begin IF top = nil THEN begin writeln('Acabou os livros.'); readln; end ELSE begin writeln('----LIVRO RETIRADO----'); writeln('Nome do livro: ', top^.nome_livro); writeln('Quantidade de páginas: ', top^.quant_pag); writeln('Autor: ', top^.autor_livro); pegar_livro := top; top := top^.proximo; dispose(pegar_livro); readln; end; end; 3 : opc := 3; ELSE begin writeln('Opção inválida.'); readln; end; end; clrscr; end; End.
BHAMF Posted July 14, 2018 at 09:34 AM Report #611311 Posted July 14, 2018 at 09:34 AM (edited) Gostei desse projeto... Acho que estarei fazendo um parecido... Me concedes a permissão? Quanto à resposta deste tópico, não sei se é possível "transferir" um programa de consola para gráfico... Acho que você teria que criar do zero... Não sei, não lido muito com Delphi e semelhantes... Só com o ligeiro Pascal 🙂É provável que em pouco tempo sua resposta apareça 🙂 B.H.A.M.F 14/07/2018 - 06:34 (Horário de Brasília) Edited July 14, 2018 at 09:34 AM by BHAMF Brenio Hallison A.M. Filho
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now