Programação (TI)

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 gt;= 0 then

remove := v[i]

else

remove := '';

end;

A estrutura de dados implementada acima é: