Ir para conteúdo
Fórum Script Brasil
  • 0

Flavy


Guest FLavy

Pergunta

Ola galera estou com um trabalho em delphi pra fazer um trabalho pra faculdade e não estou conseguindo tenho que criar um apontador no delphi que tenhas as opçoes :

Este trabalho consiste em elaborar e desenvolver dois TAD Listas. O primeiro deverá utilizar a estrutura por arranjo e o segundo por apontador. Nos dois tipos a serem criados deve-se considerar um tipo de dados composto e contemplar as seguintes operações sobre este tipo:

1. Operação de inicialização da lista;

2. Operação para inserir um elemento na lista de forma ordenada;

3. Operação para retirada de um elemento especificado pelo usuário;

4. Operação para buscar um determinado elemento;

5. Operação que mostra os elementos inseridos na lista.

Acho que não expliquei o que preciso não estou conseguindo fazer o inicio consigo fazer as procedures de inicializar inseri, retirar, buscar não estou conseguindo e fazer o cabeçario esta as declarações dos type no dephi

veja o que fiz

type

TBTNCANCELAR = class(TForm)

Label1: TLabel;

Btninserir: TBitBtn;

BtnRetirar: TBitBtn;

btnbuscar: TBitBtn;

bntlistar: TBitBtn;

btnsair: TBitBtn;

tipoitem = record

chave:tipochaves;

end;

celula=^record

item:tipointem ;

prox:apontador;

end;

tipolista=record

promeiro:apontador;

ultimo:apontador;

end;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

BTNCANCELAR: TBTNCANCELAR;

implementation

{$R *.DFM}

procedure TBTNCANCELAR.FormCreate(Sender: TObject);

begin

end;

procedure insere(x:tipoitem;var lista :tipolista);

begin

new(lista.ultimo^.prox);

lista.ultimo:=lista.ultimo^.prox;

lista.ultimo^.item:=x;

lista.ultimo^.prox:=nil;

end;

procedure retira(p:apontador;var lista:tipolista;var item:tipoitem);

var que:apontador;

begin

if vazia(lista)or(p=nil)or(P^.prox=nil) then

showmessage('Erro :lista vazei o posição não existe')

else begin

que:p^.prox;item;p^.prox:=que^.prox;

if p^.prox=nil then lista.ultimo:=p;

despose(que)

end;

end.

da erro longo na linha

celula=^record

vocês pode me ajudar grata

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...