Gustavo-E-D-Demarchi/dicionario
1
0
Fork 0
mirror of https://github.com/Gustavo-E-D-Demarchi/dicionario.git synced 2026-07-27 16:25:46 -03:00
Code Issues Packages Projects Releases Wiki Activity

tentando enteder mais não vai

Browse Source
This commit is contained in:
Gustavo Erlindo Dellajustina Demarchi
2026-04-29 11:28:35 -03:00
committed by GitHub
parent 56be04636d
commit c51d75f5a1
1 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dicionario.pas
+18 -6
View File
@@ -27,7 +27,8 @@ program pzim;
procedure adicionar_lista(var lista : Tlista ; chave : string); procedure adicionar_lista(var lista : Tlista ; chave : string);
var var
aux , aux2 : Tlista; aux , aux_Ant , aux_Prox : Tlista;
temp_s : string;
begin begin
new(aux); new(aux);
if if
@@ -36,10 +37,21 @@ program pzim;
begin begin
while aux^.prox <> nil do while aux^.prox <> nil do
aux := aux^.prox; aux := aux^.prox;
temp_s := aux^.key;
aux^.key := chave ;//
new (aux_Ant);
new (aux_Prox);
if maior(temp_s , chave)then
begin
if aux^.ant <> nil then
aux_Ant := aux^.ant ;
if aux^.prox <> nil then
aux_Prox := aux^.prox;
aux^.key := chave ;//
end;
end; end;
end; end;
@@ -71,4 +83,4 @@ begin
end; end;
begin begin
end. end.