Questão 1112206

Tecnologia da Informação · 2002

Questão

ID 1112206

Disciplina: Tecnologia da Informação

Assunto: Ponteiros

Ano: 2002 Banca: PUC MG - Pontifícia Universidade Católica de Minas Gerais Órgão: Procuradoria-Geral de Justiça de Minas Gerais

Dado o programa:

program Cells;

type CellPointer = ^Cell;

Cell = RECORD

value : integer;

PCell : CellPointer;

end;

var A, H : ^Cell;

var i: integer;

begin

New(A);

H := A;

A^.value := 1;

for i:=1 to 3 do begin

New(A^.PCell);

A^.PCell.value := A^.value + 2;

A := A^.PCell;

end;

writeln(H^.value,' e ', A^.value );

end.

Marque a alternativa que exibe CORRETAMENTE o resultado da execução desse programa.