Resumo

Definição de um tipo ponteiro associado a um tipo registro de dois campos. Type TyPont = ^ tyReg TyReg = RECORD RGM: integer; NOME: string[20] END; Var T, P: TyPont; Referência à estrutura Se: RGM NOME

T

T^ ( é como se fosse o nome do registro, ou seja, faz referência à estrutura apontada por T ) Begin T^.RGM:= 24; { T^ .RGM faz referência ao campo RGM do registro apontado por T } T^.NOME:= ‘SP’; { O campo NOME do registro apontado por T recebe o string SP} P := T; { P passa a conter o mesmo conteudo de T, ou seja, passa a ter o mesmo Valor de endereço do registro apontado por T }

RGM NOME

P T

Campo do tipo ponteiro Type typPont = ^tyElem tyElem = Record RGM: Integer; NOME : String; PROX : tyPont; { O campo PROX é do tipo ponteiro } End; Var P, T : tyPont; { P e T são declaradas como sendo do tipo ponteiro para registro } Definir um tipo ponteiro para um tipo registro com os seguintes campos. TYPE TyPont = ^TyReg; TyReg = Record Cod_prod : Integer; Nome_prod : String[10]; Qtde_prod : Integer; Preço_prod : Real; Prox : Typont; End; Declare que as variaveis P,ULT,T são do tipo ponteiro definido no exercicio anterior VAR T, ULT, P : Typont; Supondo-se que T aponta para um registro (seguindo os exemplos anteriores) escreva os comandos para: Atribuir 171 para o campo Cod_prod; Ler valores para os campos Nome_prod, Qtde_prod e Preço_prod; Atribuir Nil ao campo Prox. Apontar o mesmo registro pelos ponteiros P e ULT BEGIN { Supon do-se que T aponta para um registro } T^.Cod_prod := 171; Readln(T^.Nome_prod, T^.Qtde_prod, T^.Preço_prod); T^.Prox := Nil; P := T;
Ult := T; End. Cod_prod Nome_prod Qtde_prodPreço_prodProx