criando o meu espaço

dicionario_gusta.pas

@@ -0,0 +1,243 @@
+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 ( var lista: Tlista );
+	begin
+		lista := nil;
+	end;
+
+	procedure adicionar_lista(var T_lista : Tlista );
+	var
+		novo , anterior , atual : Tlista ;
+		chave : string ;
+	begin	
+		chave := ler ;
+		new (novo);
+		if novo = nil then
+			writeln ('memoria cheia') 
+		else
+		begin
+			if T_lista = nil then
+			begin
+				
+				novo^.key := chave ;
+				novo^.prox := T_lista;
+				novo^.ant := nil ;
+				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;
+				end;
+				
+				novo^.ant := anterior ;
+				novo^.prox := atual ;
+				novo^.key := chave ;
+				
+				if anterior <> nil then
+					anterior^.prox := novo
+				else
+					T_lista := novo ; 
+
+				if atual <> nil then
+					atual^.ant := novo ;
+				
+			end;
+		end;
+	end; 
+		
+	procedure adicionar_dicionario(dicionario : E_dicionario);
+	var
+		aux , aux2 : Tlista;
+		chave_p , chave_i : string ;
+//portugues /\      /\ inglês 
+	begin
+		chave_p := ler ;
+		chave_i := ler ;
+			new(aux);
+			if aux = nil then
+				begin
+					writeln ('memoria cheia') ;
+				end
+			else
+			begin
+				if (dicionario = nil) then
+					begin
+						aux^.br := chave_p ;
+						aux^.ing := chave_i ;
+						aux^.prox := dicionario ;
+						dicionario := aux ;
+					end;
+				aux2 := aux ;
+				while (aux2 <> nil) and (aux2^.br < chave_p ) do
+				begin 
+					aux2 := aux2^.prox ;
+					aux := aux2 ;
+				end;
+				if aux2 = nil then
+				begin
+				
+				aux2^.br := chave_p ;
+				aux2^.ing := chave_i ;
+				
+				if aux <> nil then
+					aux2^.prox := aux 
+				else 
+					aux2^.prox := nil ;
+				
+
+				end;
+			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)
+			consultar := atual 
+		else 
+			consultar := nil ;
+	end;
+
+
+	procedure consultar_lista ( T_lista : Tlista );
+	var 
+		aux : tlista ;
+		op : string ;
+	begin
+		write ( ' vc quer consutar quer consultar qual palavra ? ') ;
+		op := ler ; 
+
+		aux := consultar( T_lista , op );
+
+		if aux = nil then
+			writeln (' palavra nao encontrada ')
+		else 
+			write (' palavra encontrada :' , aux^.key );
+
+	end;
+
+	procedure consultar_dicionario (T_lista : Tlista );
+	var 
+		aux : Tlista ;
+		op : string ;
+	begin
+	end;
+
+	procedure menu ( var T_lista : Tlista);
+	var 
+		op : integer
+	begin
+		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 ler_int of 
+			1 : adicionar_lista ; 
+			2 : adicionar_dicionario ;
+			3 : consultar_lista ;
+			4 : consultar_dicionario ;
+			5 : consultar_geral ;
+			6 : remover_lista ;
+			7 : remover_dicionario ;
+		end
+		else if ( ) 
+			write (' opcao invalida digite novamente : ');
+	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 ( num : integer ) : boolean ;
+	var 
+		op : string ;
+	begin
+		if num = 1 then
+			continuar := true 
+		else
+		begin
+			write ( 'quer continuar ? (S / N)' ) ;
+			op := ler ;
+			while ( op <> 'S' ) and ( op <> 'N') do
+			begin
+				writeln ('opcao invalida') ;
+				op := ler ;
+			end;
+			if op = 'S' then
+				continuar := true 
+			else 
+				continuar := false ;
+		end;
+	end;
+
+var 
+	lista : Tlista ;
+
+	i : integer ;
+begin
+	i := 1;
+	criar_lista (lista) ;
+	while ( continuar(i) ) do
+	begin
+		menu (lista);
+		i := 0;
+	end;
+end.