{A ver esto es para que tu te a gas una idea de como es pero lo puedes realizar a tu manera las frases y sinónimos los pongo e una constante y los cargo en archivo para luego poder
manejar los espero te ayude.}
program sinonimos;
uses
crt;
type
datosdic = record
dat : string;
end;
const
datodic : array[1..22] of string = (
'amplificar, = ampliar',
'afan, = anhelo, ansia, deseo',
'advertir, = prevenir, avisar',
'aerolito, = meteorito',
'boda, = matrimonio',
'bonito, = hermoso',
'bondadoso, = benévolo',
'boleto, = billete',
'cabello, = pelo',
'calido, = caliente, caluroso',
'cama, = lecho',
'camino, = via, sendero',
'causa, = motivo',
'comite, = junta, delegacion',
'danza, = baile',
'ebrio, = borracho',
'economizar, = ahorrar',
'eden, = paraiso',
'educar, = ense¤ar',
'elegir, = escoger',
'embuste, = mentira',
'enfurecer, = enojar');
var
f : file of datosdic;
dta : datosdic;
procedure cargadicio;
var
d : integer;
begin
assign(f,'dicsino.dcc');
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
rewrite(f);
for d := 1 to 22 do
begin
seek(f,d - 1);
dta.dat := copy(datodic[d],1,length(datodic[d]));
write(f,dta);
end;
end
else
begin
seek(f,filesize(f));
write(f,dta);
end;
close(f);
end;
procedure ampliardici;
var
tec : char;
begin
clrscr;
writeln(' *** Ampliacion Dicionario *** '); writeln('Ejemplo : cabello, = pelo'); writeln;
writeln('Entre nuevo dato : '); read(dta.dat);
writeln;
writeln('Desea Guardarlo [S/N]'); repeat
tec := upcase(readkey);
until tec in['S','N'];
if tec = 'S' then
begin
cargadicio;
end;
end;
procedure busquedaendiccionario;
var
sinonimo, tomado, frase : string;
i : longint;
t : integer;
sal, encot : boolean;
begin
clrscr;
write(' Entre Frase : '); read(frase);
assign(f,'dicsino.dcc');
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Archivo no encontrado pulse [Enter]'); readln;
halt(1);
end;
i := 0;
repeat
seek(f,i);
read(f,dta);
t := 1;
fillchar(tomado,65,' ');
encot := false;
sal := false;
repeat
if dta.dat[t] = ',' then
begin
sal := true;
end
else
begin
tomado[t] := dta.dat[t];
tomado[0] := chr(t);
end;
t := t + 1;
until (t > length(dta.dat)) or (sal = true);
if tomado = frase then
begin
encot := true;
end;
i := i + 1;
until (encot = true) or (i > filesize(f) - 1);
close(f);
if encot = true then
begin
for t := 1 to length(dta.dat) do
begin
if dta.dat[t] = '=' then
begin
sinonimo := copy(dta.dat,t + 1,length(dta.dat));
break;
end;
end;
writeln(' La Frase Es [ ',frase,' ]'); writeln(' y El o Los sininimos [',sinonimo,']'); writeln(' Pulse [Enter]'); readkey;
end
else
begin
writeln('La Frase [',frase,'] No Encontrada Pulse [Enter]'); readkey;
end;
end;
procedure menu;
var
tecla : char;
termina : boolean;
begin
termina := false;
repeat
clrscr;
writeln('**** Menu General ****'); writeln;
writeln(' C = Cargar Diccionario De Nuebo Si Esta Cargado Ya'); writeln(' A = Ampliar Datos En El Diccionario'); writeln(' B = Buscar Sinonimo En Diccionario'); writeln(' S = Salir'); writeln;
writeln(' Elija Opcion'); repeat
tecla := upcase(readkey);
until tecla in['C','A','B','S'];
case tecla of
'C' : begin clrscr; cargadicio; end;
'A' : begin clrscr; ampliardici; end;
'B' : begin clrscr; busquedaendiccionario; end;
'S' : termina := true;
end;
until termina = true;
end;
begin
menu;
end.
Crear cuenta