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 = ^Cell;...
1
Q23986
Teclas de Atalhos
Compartilhar
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