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

tive que retira pq eu nao fiz um push antigo dai so deu nisso

Browse Source
This commit is contained in:
Otakinhi
2026-05-29 10:30:44 -03:00
parent d0d43d7a14
commit 681923d442
1 changed files with 0 additions and 95 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dicionario.pas
-95
View File
@@ -1,95 +0,0 @@
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 maior(a , b : string):boolean;
begin
maior := upcase(a) > upcase(b);
end;
procedure criar_lista(lista: Tlista );
begin
lista := nil;
end;
procedure adicionar_lista(var T_lista : Tlista );
var
aux , aux_Ant , aux_Prox : Tlista;
temp_s : string;
begin
new(aux);
if
//memoria cheia
else
begin
while aux^.prox <> nil do
aux := aux^.prox;
temp_s := aux^.key;
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;
procedure portugues()
procedure adicionar_dicionario(dicionario : E_dicionario);
var
aux , aux2 : Tlista;
begin
new(aux);
if aux = nil then
begin
//memoria cheia
end
else
begin
if (dicionario = nil) then
begin
aux^.
end;
while aux^.prox <> nil do
aux := aux^.prox
if aux^.prox = nil then
end;
end;
begin
i := 1;
criar_lista (lista) ;
while ( continuar(i) ) do
begin
menu (lista);
i := 0;
end;
end.