>> |
Anonymous
{ Escreva um programa que use a unit ListaSequencial e:
} program Exercicio3; uses ListaSequencial, crt; var L : TipoListaSeq; x : TipoElemento; p : TipoPosicao; begin {Esvaziando} esvaziar(L);
{Inserindo o primeiro Elemento} x.chave := 1; x.info := 'primeiro'; p := 1; inserir(x,p,L);
{Inserindo o segundo Elemento} x.chave := 2; x.info := 'segundo'; p := 2; inserir(x,p,L);
{Inserindo terceiro Elemento} x.chave := 3; x.info := 'terceiro'; p := 3; inserir(x,p,L);
{Localizando o Terceiro elemento} if (localizar(x,L) = 3) then writeln ('passou') else writeln ('falhou'); {escrevendo os valores do terceiro elemento} writeln(x.chave,' ',x.info); readkey;
{Apagando o terceiro elemento} p := 3; apagar(p,L); readkey;
end.
|