Resumo

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (278 palavras )
  • Download(s) : 0
  • Publicado : 22 de setembro de 2012
Ler documento completo
Amostra do texto
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;
VarT, 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 tipoponteiro
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ãodeclaradas 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 exercicioanterior
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;
Lervalores 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 ULT
tracking img