Программа для составления слов из введенного слова.

Нахождение в заданном словаре слов,содержащих только букыв заданого слова
(например дано слово "программа", и из него можно составить слова пар,паром,грамм,рог...) основное слово вводиться с клавиатуры,вывод результатов по желанию на экран или файл.

Словарь храниться в текст. файле - каждое слово на отдельной строке:содержит примерно 20000 слов; должна быть представлена возможность добавления слов в словарь,причем,если вводимое с клавиатуры слово уже есть в словаре,оно не должно добавляться повторно.

Если кому не лень,то прошу помочь ибо сам ничего в этом не понимаю

0

а как скоро тебе нужна эта программа???

0

Ну скажем так,к середине следующей недели.
Буду очень признателен.

0

эт как программа узнает есть слово или нет из этих букв??

0

ок

0

Сообщение от John_Pa9JIbHuK эт как программа узнает есть слово или нет из этих букв

нутак словарь же для того и прилагается, чтобы по нему проверять

0

создать эту прогу невозможно.

0

Это почему невозможно ?
При наличии словаря технически возможно.

0

kentaw, почему??? грубо говоря вот алгоритм...
есть 2 стринговых значения. одно ето слово(например программа, или еще какое) второе ето слова которое беретса из библиотеки. итак програма получает словодалее идет проверка на возможность составление его из букв слова-образца. проверка может быть такой:
программа а из библиотеки беретса грамм...
теперь берем побуквенно
п в грамм не встричаетса
р тоже
о тоже
г встречаетса вытираем ее из грамм будет рамм
р встречаетса вытираем ее из рамм будет амм
а встречаетса вытираем ее из амм будет мм
м(первая) встречаетса вытираем ее из мм будет м
м(вторая) встречаетса вытираем ее из м будет ''
а уже не встичаетса...
теперь если константа из библиотеки стала '' ну либо s[0]=0 то слово можно составить выводим его на екран) вот и все) а вы говорите невозможно)

0

ребята а вы почитали задачку
и что будете делать.
На русском языке 250.000 слов!

0

На русском языке 250.000

Обижаете. В Академическом словаре русского языка 850 000 слов.

1

Спасибо Puporev за поправление

0

Уважаемый kentaw, а то что слово вводитса из клавиатуры и то что слов в принцыпе очень много делают задачу невозможной? может долгообрабатываемой, может медленной... но не невозможной... чтобы убыстрить процес работы программы можно много чего сделать... ето уже оптимизация. например можно создать темповый файл в который переписать слова которые могут быть например которые начинаютса с букв слова-ключа а ето уже намного меньше 850тыс... Но программу то сделать возможно)))

0

Рад,что достаточно многих заинтересовал этот вопрос
Если бы я вообще в этом,что-то понимал... Сам бы решил... А так приходиться прибегать к помощи

0

я пробывал этот код в работе для словаря из 8 000 000 слов, работает около 1 минуты, так что прежде чем говорить что можно сделать а что нельзя, необходимо хотябы попробывать сделать задачу

Добавлено через 55 минут 21 секунду
только надо будет дописать , чтобы выводило результат по выбору на экран или в файл, а то я что то про это забыл

6

mamedovvms
Мужик ОГРОМНОЕ тебе СПАСИБО!)))

0

А можно было и через Case написать.

0

mamedovvms, Доброго времени суток.Подскажите, как открыть эту прогу?

uses crt;
var f:text;
adres,slovo,slovar:string;
k:integer;
i:longint;
l:boolean;
ch:char;
function proverka(slovo,slovar:string):boolean;
var flag:boolean;
ch:char;
begin
flag:=true;
repeat

if pos(slovar[1],slovo)=0 then flag:=false
else
begin
delete(slovo,pos(slovar[1],slovo),1);
delete(slovar,1,1);
end;
until(flag=false)or(slovar='');
proverka:=flag;
end;
begin
l:=false;
clrscr;
writeln('Dobavit slovo v slovar : 1 ');
writeln('Nayti v slovare slova : 2 ');
ch:=readkey;
if ch='1' then
begin
clrscr;
writeln('Vvedite adres slovarya ');
readln(adres);
writeln('Vvedite slovo kotoroe nado dobavit ');
readln(slovo);
assign(f,adres);
reset(f);
repeat
readln(f,slovar);
if slovo=slovar then l:=true;
until(eof(f))or(l);
close(f);
if l then writeln('Takoe slovo est ')
else
begin
append(f);
writeln(f,slovo);
close(f);
writeln('Slovo dobavleno ');
end;
end;
if ch='2' then
begin
clrscr;
writeln('Vvedite adres slovarya ');
readln(adres);
writeln('Vvedite slovo ');
readln(slovo);
assign(f,adres);
reset(f);
k:=0;
i:=0;
repeat
readln(f,slovar);
if length(slovar)<=length(slovo) then
if proverka(slovo,slovar)=true then
begin
l:=true;
writeln(slovar);
k:=k+1;
i:=i+1;
end;
if k=20 then
begin
readln;
k:=0;
end;
until(eof(f));


if l=false then writeln('Net')
else writeln('Naydeno ',i,' slov');

end;
readln;
end.

Добавлено через 2 минуты
Matix, Привет! Помоги открыть ет прогу?

Или как ето сделать?

А Pascal тегом тебе религия воспользоваться не позволяет? Скопируй код в буфер, открой паскаль, правый клик по значку слева в заголовке окна-изменить-вставить.

0

Mazilkree, Блин я в етом вообще не понимаю а что такое "ПАСКАЛЬ тегом" ?
Спасибо за терпение.