mirror of
https://github.com/Gustavo-E-D-Demarchi/dicionario.git
synced 2026-07-27 16:25:46 -03:00
versão 1.0.9
This commit is contained in:
Gustavo Erlindo Dellajustina Demarchi
parent
681923d442
commit
4c2ce9de76
Binary file not shown.
Executable
BIN
Binary file not shown.
Binary file not shown.
+491
-245
@@ -1,305 +1,551 @@
|
||||
program pzim;
|
||||
uses crt;
|
||||
|
||||
type
|
||||
Tverbete = ^E_Dicionario;
|
||||
E_Dicionario = record
|
||||
br : string; //portugues
|
||||
ing : string; // ingles
|
||||
prox : Tverbete;
|
||||
end;
|
||||
|
||||
Tlista = ^E_lista ;
|
||||
E_lista = record
|
||||
ant : Tlista ; //anterior
|
||||
key : string;
|
||||
dicionario : Tverbete ;
|
||||
prox : Tlista ;
|
||||
end;
|
||||
|
||||
function verificar_palavra ( D : Tverbete ; P : string ) : boolean ;
|
||||
var
|
||||
sair : boolean ;
|
||||
begin
|
||||
if D = nil then
|
||||
verificar_palavra := false
|
||||
else
|
||||
begin
|
||||
if D^.br = P then
|
||||
verificar_palavra := true
|
||||
else if D^.prox <> nil then
|
||||
sair := false
|
||||
else
|
||||
sair := true
|
||||
|
||||
if sair then
|
||||
verificar_palavra := false
|
||||
else
|
||||
verificar_palavra := verificar_palavra( D^.prox , P );
|
||||
end;
|
||||
type
|
||||
Tverbete = ^E_Dicionario;
|
||||
E_Dicionario = record
|
||||
br : string;
|
||||
ing : string;
|
||||
prox : Tverbete;
|
||||
end;
|
||||
|
||||
function consultar ( T_lista : Tlista ; chave : string ) : Tlista ;
|
||||
var
|
||||
atual : Tlista ;
|
||||
Tlista = ^E_lista;
|
||||
E_lista = record
|
||||
ant : Tlista;
|
||||
key : string;
|
||||
dicionario : Tverbete;
|
||||
prox : Tlista;
|
||||
end;
|
||||
|
||||
function verificar_palavra ( D : Tverbete ; P : string ) : boolean ;
|
||||
begin
|
||||
if D = nil then
|
||||
verificar_palavra := false
|
||||
else
|
||||
begin
|
||||
if D^.br = P then
|
||||
verificar_palavra := true
|
||||
else
|
||||
verificar_palavra := verificar_palavra( D^.prox , P );
|
||||
end;
|
||||
end;
|
||||
|
||||
function consultar ( T_lista : Tlista ; chave : string ) : Tlista ;
|
||||
var
|
||||
atual : Tlista ;
|
||||
begin
|
||||
atual := T_lista ;
|
||||
|
||||
while ( atual <> nil ) and ( atual^.key < chave ) do
|
||||
atual := atual^.prox ;
|
||||
|
||||
if ( atual <> nil ) and ( atual^.key = chave ) then
|
||||
consultar := atual
|
||||
else
|
||||
consultar := nil ;
|
||||
end;
|
||||
|
||||
function encontrar_lista (
|
||||
T_lista : Tlista ;
|
||||
palavra : string
|
||||
) : Tlista ;
|
||||
var
|
||||
aux : Tlista ;
|
||||
melhor : Tlista ;
|
||||
begin
|
||||
aux := T_lista ;
|
||||
melhor := nil ;
|
||||
|
||||
while aux <> nil do
|
||||
begin
|
||||
if UpCase( palavra[1] ) >=
|
||||
UpCase( aux^.key[1] ) then
|
||||
begin
|
||||
melhor := aux ;
|
||||
end;
|
||||
|
||||
aux := aux^.prox ;
|
||||
end;
|
||||
|
||||
encontrar_lista := melhor ;
|
||||
end;
|
||||
|
||||
function ler : string ;
|
||||
var
|
||||
temp : string ;
|
||||
begin
|
||||
write ( ' digite a palavra : ' ) ;
|
||||
readln ( temp ) ;
|
||||
ler := temp ;
|
||||
end;
|
||||
|
||||
function ler_int : integer ;
|
||||
var
|
||||
temp : integer ;
|
||||
begin
|
||||
write ( ' digite um numero : ' ) ;
|
||||
readln ( temp ) ;
|
||||
ler_int := temp ;
|
||||
end;
|
||||
|
||||
function continuar : boolean ;
|
||||
var
|
||||
op : string ;
|
||||
begin
|
||||
write ( ' quer continuar ? (S / N) : ' ) ;
|
||||
readln ( op ) ;
|
||||
|
||||
while ( op <> 'S' ) and ( op <> 's' ) and
|
||||
( op <> 'N' ) and ( op <> 'n' ) do
|
||||
begin
|
||||
writeln ( ' opcao invalida ' ) ;
|
||||
readln ( op ) ;
|
||||
end;
|
||||
|
||||
if ( op = 'S' ) or ( op = 's' ) then
|
||||
continuar := true
|
||||
else
|
||||
continuar := false ;
|
||||
end;
|
||||
|
||||
procedure criar_lista ( var lista : Tlista ) ;
|
||||
begin
|
||||
lista := nil ;
|
||||
end;
|
||||
|
||||
procedure adicionar_lista_direto (
|
||||
var T_lista : Tlista ;
|
||||
chave : string
|
||||
) ;
|
||||
var
|
||||
novo , anterior , atual : Tlista ;
|
||||
begin
|
||||
new ( novo ) ;
|
||||
|
||||
novo^.key := chave ;
|
||||
novo^.dicionario := nil ;
|
||||
novo^.prox := nil ;
|
||||
novo^.ant := nil ;
|
||||
|
||||
if T_lista = nil then
|
||||
begin
|
||||
T_lista := novo ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
atual := T_lista ;
|
||||
anterior := nil ;
|
||||
|
||||
while ( atual <> nil ) and ( atual^.key < chave ) do
|
||||
begin
|
||||
anterior := atual ;
|
||||
atual := atual^.prox ;
|
||||
|
||||
if ( atual <> nil ) and ( atual ^.key = chave) then
|
||||
consultar := atual
|
||||
else
|
||||
consultar := nil ;
|
||||
end;
|
||||
|
||||
function ler : string ;
|
||||
var
|
||||
temp : string ;
|
||||
begin
|
||||
write (' digite a palavra :') ;
|
||||
readln( temp ) ;
|
||||
ler := temp ;
|
||||
end;
|
||||
|
||||
function ler_int : integer ;
|
||||
var
|
||||
temp : integer ;
|
||||
begin
|
||||
write (' digite um numero : ') ;
|
||||
readln (temp) ;
|
||||
ler_int := temp ;
|
||||
end;
|
||||
|
||||
function continuar : boolean ;
|
||||
var
|
||||
op : string ;
|
||||
begin
|
||||
write ( 'quer continuar ? (S / N)' ) ;
|
||||
op := ler ;
|
||||
while ( ( op <> 'S' ) or ( op <> 's' ) ) and ( ( op <> 'N') or ( op <> 'n') ) do
|
||||
begin
|
||||
writeln ('opcao invalida') ;
|
||||
op := ler ;
|
||||
end;
|
||||
if op = 'S' then
|
||||
continuar := true
|
||||
|
||||
novo^.ant := anterior ;
|
||||
novo^.prox := atual ;
|
||||
|
||||
if anterior <> nil then
|
||||
anterior^.prox := novo
|
||||
else
|
||||
continuar := false ;
|
||||
T_lista := novo ;
|
||||
|
||||
if atual <> nil then
|
||||
atual^.ant := novo ;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure adicionar_lista ( var T_lista : Tlista ) ;
|
||||
var
|
||||
chave : string ;
|
||||
begin
|
||||
chave := ler ;
|
||||
adicionar_lista_direto ( T_lista , chave ) ;
|
||||
end;
|
||||
|
||||
procedure inserir_ordenado_dicionario (
|
||||
var dicionario : Tverbete ;
|
||||
novo : Tverbete
|
||||
) ;
|
||||
var
|
||||
aux_atual , aux_ant : Tverbete ;
|
||||
begin
|
||||
aux_atual := dicionario ;
|
||||
aux_ant := nil ;
|
||||
|
||||
while ( aux_atual <> nil ) and
|
||||
( aux_atual^.br < novo^.br ) do
|
||||
begin
|
||||
aux_ant := aux_atual ;
|
||||
aux_atual := aux_atual^.prox ;
|
||||
end;
|
||||
|
||||
{
|
||||
function maior(a , b : string):boolean;
|
||||
begin
|
||||
maior := upcase(a) > upcase(b);
|
||||
end;
|
||||
}
|
||||
novo^.prox := aux_atual ;
|
||||
|
||||
// Procedimentos \/ | /\ funçoes
|
||||
if aux_ant = nil then
|
||||
dicionario := novo
|
||||
else
|
||||
aux_ant^.prox := novo ;
|
||||
end;
|
||||
|
||||
procedure criar_lista ( var lista: Tlista );
|
||||
begin
|
||||
lista := nil;
|
||||
end;
|
||||
procedure redistribuir_verbetes (
|
||||
var lista : Tlista
|
||||
) ;
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux_d : Tverbete ;
|
||||
|
||||
procedure adicionar_lista(var T_lista : Tlista );
|
||||
var
|
||||
novo , anterior , atual : Tlista ;
|
||||
chave : string ;
|
||||
todos , ultimo , prox_d : Tverbete ;
|
||||
|
||||
destino : Tlista ;
|
||||
begin
|
||||
todos := nil ;
|
||||
ultimo := nil ;
|
||||
|
||||
aux_l := lista ;
|
||||
|
||||
while aux_l <> nil do
|
||||
begin
|
||||
chave := ler ;
|
||||
new (novo);
|
||||
if novo = nil then
|
||||
writeln ('memoria cheia')
|
||||
else
|
||||
aux_d := aux_l^.dicionario ;
|
||||
|
||||
aux_l^.dicionario := nil ;
|
||||
|
||||
while aux_d <> nil do
|
||||
begin
|
||||
if T_lista = nil then
|
||||
prox_d := aux_d^.prox ;
|
||||
|
||||
aux_d^.prox := nil ;
|
||||
|
||||
if todos = nil then
|
||||
begin
|
||||
|
||||
novo^.ant := nil ;
|
||||
novo^.key := chave ;
|
||||
novo^.dicionario := nil ;
|
||||
novo^.prox := T_lista;
|
||||
|
||||
T_lista := novo ;
|
||||
|
||||
todos := aux_d ;
|
||||
ultimo := aux_d ;
|
||||
end
|
||||
|
||||
else
|
||||
begin
|
||||
ultimo^.prox := aux_d ;
|
||||
ultimo := aux_d ;
|
||||
end;
|
||||
|
||||
atual := T_lista ;
|
||||
anterior := nil ;
|
||||
aux_d := prox_d ;
|
||||
end;
|
||||
|
||||
while (atual <> nil) and (atual^.key < chave) do
|
||||
aux_l := aux_l^.prox ;
|
||||
end;
|
||||
|
||||
aux_d := todos ;
|
||||
|
||||
while aux_d <> nil do
|
||||
begin
|
||||
prox_d := aux_d^.prox ;
|
||||
|
||||
destino := encontrar_lista (
|
||||
lista ,
|
||||
aux_d^.br
|
||||
) ;
|
||||
|
||||
aux_d^.prox := nil ;
|
||||
|
||||
if destino <> nil then
|
||||
begin
|
||||
inserir_ordenado_dicionario (
|
||||
destino^.dicionario ,
|
||||
aux_d
|
||||
) ;
|
||||
end;
|
||||
|
||||
aux_d := prox_d ;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure adicionar_dicionario ( var lista : Tlista ) ;
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux : Tverbete ;
|
||||
chave_p , chave_i : string ;
|
||||
existe : boolean ;
|
||||
begin
|
||||
writeln ( ' digite a palavra em portugues : ' ) ;
|
||||
chave_p := ler ;
|
||||
|
||||
writeln ( ' digite a traducao em ingles : ' ) ;
|
||||
chave_i := ler ;
|
||||
|
||||
aux_l := encontrar_lista ( lista , chave_p ) ;
|
||||
|
||||
if aux_l = nil then
|
||||
begin
|
||||
writeln ( ' nenhuma chave encontrada ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
existe := verificar_palavra (
|
||||
aux_l^.dicionario ,
|
||||
chave_p
|
||||
) ;
|
||||
|
||||
if existe then
|
||||
begin
|
||||
writeln ( ' palavra ja existe ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
new ( aux ) ;
|
||||
|
||||
aux^.br := chave_p ;
|
||||
aux^.ing := chave_i ;
|
||||
aux^.prox := nil ;
|
||||
|
||||
inserir_ordenado_dicionario (
|
||||
aux_l^.dicionario ,
|
||||
aux
|
||||
) ;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure consultar_lista ( T_lista : Tlista ) ;
|
||||
var
|
||||
aux : Tlista ;
|
||||
begin
|
||||
aux := T_lista ;
|
||||
|
||||
if aux = nil then
|
||||
begin
|
||||
writeln ( ' lista vazia ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
while aux <> nil do
|
||||
begin
|
||||
writeln ( ' chave : ' , aux^.key ) ;
|
||||
aux := aux^.prox ;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure consultar_dicionario ( T_lista : Tlista ) ;
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux_d : Tverbete ;
|
||||
palavra : string ;
|
||||
encontrou : boolean ;
|
||||
begin
|
||||
writeln ( ' digite a palavra : ' ) ;
|
||||
palavra := ler ;
|
||||
|
||||
aux_l := T_lista ;
|
||||
encontrou := false ;
|
||||
|
||||
while ( aux_l <> nil ) and ( not encontrou ) do
|
||||
begin
|
||||
aux_d := aux_l^.dicionario ;
|
||||
|
||||
while ( aux_d <> nil ) and ( not encontrou ) do
|
||||
begin
|
||||
if aux_d^.br = palavra then
|
||||
begin
|
||||
writeln ;
|
||||
writeln ( ' chave : ' , aux_l^.key ) ;
|
||||
writeln (
|
||||
aux_d^.br ,
|
||||
' = ' ,
|
||||
aux_d^.ing
|
||||
) ;
|
||||
|
||||
encontrou := true ;
|
||||
end;
|
||||
|
||||
aux_d := aux_d^.prox ;
|
||||
end;
|
||||
|
||||
aux_l := aux_l^.prox ;
|
||||
end;
|
||||
|
||||
if not encontrou then
|
||||
writeln ( ' palavra nao encontrada ' ) ;
|
||||
end;
|
||||
|
||||
procedure consultar_geral ( T_lista : Tlista ) ;
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux_d : Tverbete ;
|
||||
begin
|
||||
aux_l := T_lista ;
|
||||
|
||||
if aux_l = nil then
|
||||
begin
|
||||
writeln ( ' lista vazia ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
while aux_l <> nil do
|
||||
begin
|
||||
writeln ;
|
||||
writeln ( ' chave : ' , aux_l^.key ) ;
|
||||
|
||||
aux_d := aux_l^.dicionario ;
|
||||
|
||||
if aux_d = nil then
|
||||
begin
|
||||
writeln ( ' dicionario vazio ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
while aux_d <> nil do
|
||||
begin
|
||||
anterior := atual;
|
||||
atual := atual^.prox;
|
||||
writeln (
|
||||
' ',
|
||||
aux_d^.br ,
|
||||
' = ' ,
|
||||
aux_d^.ing
|
||||
) ;
|
||||
|
||||
aux_d := aux_d^.prox ;
|
||||
end;
|
||||
|
||||
novo^.ant := anterior ;
|
||||
novo^.prox := atual ;
|
||||
novo^.key := chave ;
|
||||
novo^.dicionario := nil ;
|
||||
|
||||
if anterior <> nil then
|
||||
anterior^.prox := novo
|
||||
else
|
||||
T_lista := novo ;
|
||||
|
||||
if atual <> nil then
|
||||
atual^.ant := novo ;
|
||||
|
||||
end;
|
||||
|
||||
aux_l := aux_l^.prox ;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure adicionar_dicionario( var lista : Tlista );
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux , aux_atual , aux_ant : Tverbete ;
|
||||
chave , chave_p , chave_i , op : string ;
|
||||
//portugues /\ /\ inglês
|
||||
existe : boolean ;
|
||||
procedure remover_dicionario (
|
||||
T_lista : Tlista
|
||||
) ;
|
||||
var
|
||||
aux_l : Tlista ;
|
||||
aux_d , ant_d : Tverbete ;
|
||||
palavra : string ;
|
||||
achou : boolean ;
|
||||
begin
|
||||
writeln ( ' digite a palavra : ' ) ;
|
||||
palavra := ler ;
|
||||
|
||||
aux_l := T_lista ;
|
||||
achou := false ;
|
||||
|
||||
while ( aux_l <> nil ) and ( not achou ) do
|
||||
begin
|
||||
writeln (' digite a chave que vc quer : ') ;
|
||||
chave := ler ;
|
||||
aux_d := aux_l^.dicionario ;
|
||||
ant_d := nil ;
|
||||
|
||||
aux_l := consultar (lista , chave );
|
||||
|
||||
if aux_l = nil then
|
||||
while ( aux_d <> nil ) and ( not achou ) do
|
||||
begin
|
||||
writeln ('nao exite esta chave quer adicionar ? ');
|
||||
|
||||
if continuar then
|
||||
if aux_d^.br = palavra then
|
||||
begin
|
||||
adicionar_lista ( lista );
|
||||
aux_l := consultar (lista , chave) ;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
chave_p := ler ;
|
||||
chave_i := ler ;
|
||||
|
||||
new(aux);
|
||||
|
||||
if aux_l^.dicionario = nil then //adicionar o primeiro verbete
|
||||
begin
|
||||
aux^.br := chave_p ;
|
||||
aux^.ing := chave_i ;
|
||||
aux^.prox := aux_l^.dicionario ;
|
||||
aux_l^.dicionario := aux ;
|
||||
end
|
||||
|
||||
else
|
||||
begin
|
||||
existe := verificar_palavra( aux_l^.dicionario , chave_p); // verificar se a palavra ja existe no dicionario
|
||||
|
||||
if not existe then
|
||||
begin
|
||||
aux_ant := nil ;
|
||||
aux_atual := aux_l^.dicionario ; // apontar para o primeiro verbete do dicionario da chave
|
||||
|
||||
while (aux_atual <> nil) and ( aux_atual^.br < chave_p ) do
|
||||
begin
|
||||
aux_ant := aux_atual ;
|
||||
aux_atual := aux_atual^.prox ;
|
||||
end;
|
||||
|
||||
if aux_ant = nil then
|
||||
begin
|
||||
aux^.br := chave_p;
|
||||
aux^.ing := chave_i;
|
||||
aux^.prox := aux_atual;
|
||||
|
||||
aux_l^.dicionario := aux;
|
||||
end
|
||||
else
|
||||
begin
|
||||
aux_ant^.prox := aux ;
|
||||
aux^.br := chave_p ;
|
||||
aux^.ing := chave_i ;
|
||||
aux^.prox := aux_atual;
|
||||
end;
|
||||
|
||||
end
|
||||
if ant_d = nil then
|
||||
aux_l^.dicionario := aux_d^.prox
|
||||
else
|
||||
write (' esta palavra ja existe no dicionario ') ;
|
||||
ant_d^.prox := aux_d^.prox ;
|
||||
|
||||
dispose ( aux_d ) ;
|
||||
|
||||
achou := true ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ant_d := aux_d ;
|
||||
aux_d := aux_d^.prox ;
|
||||
end;
|
||||
end;
|
||||
|
||||
aux_l := aux_l^.prox ;
|
||||
end;
|
||||
|
||||
if achou then
|
||||
writeln ( ' palavra removida ' )
|
||||
else
|
||||
writeln ( ' palavra nao encontrada ' ) ;
|
||||
end;
|
||||
|
||||
procedure consultar_lista ( T_lista : Tlista );
|
||||
var
|
||||
aux : tlista ;
|
||||
op : string ;
|
||||
procedure remover_lista (
|
||||
var lista : Tlista
|
||||
) ;
|
||||
var
|
||||
aux , ant : Tlista ;
|
||||
chave : string ;
|
||||
begin
|
||||
writeln ( ' digite a chave : ' ) ;
|
||||
chave := ler ;
|
||||
|
||||
aux := lista ;
|
||||
ant := nil ;
|
||||
|
||||
while ( aux <> nil ) and
|
||||
( aux^.key <> chave ) do
|
||||
begin
|
||||
write ( ' vc quer consutar quer consultar qual palavra ? ') ;
|
||||
op := ler ;
|
||||
ant := aux ;
|
||||
aux := aux^.prox ;
|
||||
end;
|
||||
|
||||
aux := consultar( T_lista , op );
|
||||
|
||||
if aux = nil then
|
||||
writeln (' palavra nao encontrada ')
|
||||
if aux = nil then
|
||||
begin
|
||||
writeln ( ' chave nao encontrada ' ) ;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if ant = nil then
|
||||
lista := aux^.prox
|
||||
else
|
||||
write (' palavra encontrada :' , aux^.key );
|
||||
ant^.prox := aux^.prox ;
|
||||
|
||||
if aux^.prox <> nil then
|
||||
aux^.prox^.ant := ant ;
|
||||
|
||||
dispose ( aux ) ;
|
||||
|
||||
redistribuir_verbetes ( lista ) ;
|
||||
|
||||
writeln ( ' chave removida ' ) ;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure consultar_dicionario (T_lista : Tlista );
|
||||
var
|
||||
aux : Tlista ;
|
||||
op : string ;
|
||||
begin
|
||||
end;
|
||||
procedure menu ( var lista : Tlista ; var j : integer ) ;
|
||||
var
|
||||
op : integer ;
|
||||
begin
|
||||
writeln ;
|
||||
writeln ( ' 1 - adicionar lista ' ) ;
|
||||
writeln ( ' 2 - adicionar dicionario ' ) ;
|
||||
writeln ( ' 3 - consultar lista ' ) ;
|
||||
writeln ( ' 4 - consultar dicionario ' ) ;
|
||||
writeln ( ' 5 - consultar geral ' ) ;
|
||||
writeln ( ' 6 - remover lista ' ) ;
|
||||
writeln ( ' 7 - remover dicionario ' ) ;
|
||||
writeln ( ' 0 - sair ' ) ;
|
||||
|
||||
procedure menu ( var lista : Tlista );
|
||||
var
|
||||
op : integer ;
|
||||
begin
|
||||
op := ler_int ;
|
||||
|
||||
writeln (' 1 : adicionar_lista ') ;
|
||||
writeln (' 2 : adicionar_dicionario ') ;
|
||||
writeln (' 3 : consultar_lista ') ;
|
||||
writeln (' 4 : consultar_dicionario ') ;
|
||||
writeln (' 5 : consultar_geral ') ;
|
||||
writeln (' 6 : remover_lista ') ;
|
||||
writeln (' 7 : remover_dicionario ') ;
|
||||
writeln (' 0 : sair ') ;
|
||||
op := ler_int ;
|
||||
case op of
|
||||
1 : adicionar_lista(lista) ;
|
||||
2 : adicionar_dicionario (lista) ;
|
||||
3 : consultar_lista (lista) ;
|
||||
4 : consultar_dicionario (lista) ;
|
||||
5 : consultar_geral (lista , dicionario) ;
|
||||
6 :
|
||||
begin
|
||||
remover_lista (lista) ;
|
||||
adicionar_dicionario (lista) ;
|
||||
case op of
|
||||
1 : adicionar_lista ( lista ) ;
|
||||
2 : adicionar_dicionario ( lista ) ;
|
||||
3 : consultar_lista ( lista ) ;
|
||||
4 : consultar_dicionario ( lista ) ;
|
||||
5 : consultar_geral ( lista ) ;
|
||||
6 : remover_lista ( lista ) ;
|
||||
7 : remover_dicionario ( lista ) ;
|
||||
|
||||
0 : begin
|
||||
writeln ( ' saindo... ' ) ;
|
||||
j := 0;
|
||||
end;
|
||||
7 : remover_dicionario (dicionario) ;
|
||||
0 : writeln (' vc saiu do sistema ') ;
|
||||
end
|
||||
else
|
||||
write (' opcao invalida digite novamente : ') ;
|
||||
|
||||
writeln ( ' opcao invalida ' ) ;
|
||||
end;
|
||||
end;
|
||||
|
||||
var
|
||||
lista : Tlista ;
|
||||
|
||||
i : integer ;
|
||||
|
||||
begin
|
||||
i := 1;
|
||||
criar_lista (lista) ;
|
||||
while ( i = 1 ) do
|
||||
i := 1 ;
|
||||
|
||||
criar_lista ( lista ) ;
|
||||
|
||||
while i = 1 do
|
||||
begin
|
||||
menu (lista);
|
||||
if not continuar then
|
||||
i := 0;
|
||||
menu ( lista , i ) ;
|
||||
end;
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user