///
Considere o seguinte trecho de código escrito em Object Pascal:
program EstruturaDeDados;
type Estrutura = class
private
v: array [0..255] of string;
i: integer;
public
procedure insere(valor: string);
function remove(): string ;
end;
procedure Estrutura.insere(valor: string);
begin
v[i] := valor;
i := i + 1;
end;
function Estrutura.remove(): string ;
begin
i := i - 1;
if i >= 0 then
remove := v[i]
else
remove := '';
end;A estrutura de dados implementada acima é: