Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Программа,позволяющая найти нужные слова в файле(pascal abc).Подобие поисковика.  (Прочитано 12751 раз)
0 Пользователей и 1 Гость смотрят эту тему.
mary
Новенький

ru
Offline Offline

« : 06-11-2013 16:50 » 

Толком не соображаю в Паскале, а очень нужно разобраться и сделать программу.
Помогите пожалуйста.

Код: (Pascal)
var
s,s1,s2,s3,s4: string;
k1,k2: integer;
f:file of char;
c:char;
begin
assign(f,'c:\file.txt');
reset(f);
read(f); // исходный текст
write('введите искомое слово 1: ');
readln(s2); // искомое слово
write('введите искомое слово 2: ');
readln(s3); // искомое слово
s1:=s; // временной переменной присваиваем значение исходного текста
while pos(s2,s1)<>0 do // пока такое слово есть в тексте
begin
inc(k1); // увеличиваем счетчик
delete(s1,pos(s2,s1),length(s2)); // удаляем слово из текста
end;
while pos(s3,s1)<>0 do
begin
inc(k2);
delete(s1,pos(s3,s1),length(s3));
end;
close (f);
begin
if (k1>=1) and (k2>=1) then
writeln('в тексте ',k1,'è',k2,' таких слов')
else
writeln('в тексте нет таких слов');
end;

end.
Записан
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 06-11-2013 17:09 » 

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

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
mary
Новенький

ru
Offline Offline

« Ответ #2 : 06-11-2013 17:12 » 

Программа, к сожалению, лишь читает текст из файла.
а мне нужно,чтоб она осуществляла еще и поиск нужных слов ,которые могут находиться нетолько рядом, но и на расстоянии n симоволов.
Записан
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 06-11-2013 21:07 » 

mary, и твои предложения? С какой строчки нужно начать вносить изменения?
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
mary
Новенький

ru
Offline Offline

« Ответ #4 : 07-11-2013 12:52 » 

Думаю,начиная отсюда:

Код: (Pascal)
read(f); // исходный текст
write('введите искомое слово 1: ');
readln(s2); // искомое слово
write('введите искомое слово 2: ');
readln(s3); // искомое слово
s1:=s; // временной переменной присваиваем значение исходного текста
while pos(s2,s1)<>0 do // пока такое слово есть в тексте
begin
inc(k1); // увеличиваем счетчик
delete(s1,pos(s2,s1),length(s2)); // удаляем слово из текста
end;
while pos(s3,s1)<>0 do
begin
inc(k2);
delete(s1,pos(s3,s1),length(s3));
end;
close (f);
begin
if (k1>=1) and (k2>=1) then
writeln('в тексте ',k1,'è',k2,' таких слов')
else
writeln('в тексте нет таких слов');
end;

end.
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #5 : 07-11-2013 13:08 » 

Цитата
Толком не соображаю в Паскале
а если без привязки в паскале, какой алгоритм должен быть?

Добавлено через 6 минут и 46 секунд:
Цитата
Программа, к сожалению, лишь читает текст из файла.
овет не правильный.

 Программа не только должна (но на самом деле в тексте ошибка) читать из файла, но и находит слова, подсчитывает их.
« Последнее редактирование: 07-11-2013 13:15 от PooH » Записан

Удачного всем кодинга! -=x[PooH]x=-
mary
Новенький

ru
Offline Offline

« Ответ #6 : 07-11-2013 15:23 » 

Да-да,она должна находить в файле слова,которые задает сам пользователь и находить их в тексте и подсчитывать.
Подобие поиска, ctrl+F.
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #7 : 07-11-2013 17:51 » 

Так и что ты от нас хочешь? В твоей программе уже все есть.
Записан

Удачного всем кодинга! -=x[PooH]x=-
Dimka
Деятель
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #8 : 08-11-2013 12:29 » 

PooH, она хочет, чтобы искались слова не только подряд, но и на расстоянии n.

Однако налицо, что код чужой, и она в нём не понимает - тут медицина бессильна.
Записан

Программировать - значит понимать (К. Нюгард)
Невывернутое лучше, чем вправленное (М. Аврелий)
Многие готовы скорее умереть, чем подумать (Б. Рассел)
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #9 : 09-11-2013 07:02 » new

Dimka, а тут в коде и нет никакой проверки порядка, тут только не слова ищутся, а куски текста.
Записан

Удачного всем кодинга! -=x[PooH]x=-
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines