Seu próximo nível começa aqui
Seu desenvolvimento não pode ter limites. Garanta sua Assinatura Ilimitada e libere uma preparação completa com os melhores professores do Brasil.
Dado o programa: program Cells;type CellPointer =...
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.
A
1 e 7
B
1 e 5
C
0 e 7
D
0 e 5