Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Про слова

Автор: -Студент- 11.04.2007 22:31

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

Автор: klem4 11.04.2007 23:12

function Count(s, word: String): Byte;
const
limits = ['.', ',', ';', '!', '?', ' ']; // можно увеличить список разделителей
var
p: Byte;
begin
p := Pos(word, s);
if (Length(s) = 0) or (p = 0) then Count := 0 else
if ((p = 1) or (s[pred(p)] in limits))
and ((s[p + Length(word)] in limits) or
((p + Length(word) - 1) = Length(s))) then
Count := 1 + Count(Copy(s, p + Length(word) + 1, 255), word)
else Count := 0 + Count(Copy(s, P + Length(word) + 1, 255), word)
end;


Функция вернет количество вхождений слова word в строку s

ps надо потестировать еще.

Автор: Гость 11.04.2007 23:29

Спасибо. Но по-моему это немножко не то что нужно.
Или это не весь код? Мне бы желательно от начала до конца, если не затруднит. Сроки жмут просто. Завтра в обед сдавать. Знакомые сказали что тут умные люди сидят, и могут помочь. Вот я и обратился.

Автор: klem4 11.04.2007 23:38

всетаки не совсем верно функция работает, сейчас исправлю

исправлено

Вот посмотри пример вызова, а вообще тебе сюда: http://forum.pascal.net.ru/index.php?showtopic=2361


function Count(s, word: String): Byte;
// ...
end;

var
s, w: string;

begin
s := 'mila mila mama ramu s milom milamila milamilamila lalala mila';
w := 'mila';
writeln(COunt(s, w));
end.

Автор: Гость 11.04.2007 23:52

Текст должен быть на русском языке. Ну в принципе значения не имеет. Можно любой подставить.
Дело в том что текст во внешнем файле должен быть, а в нем уже программа должна определить. И нужно не 1, а 2 слова.
И в идеале еще программа должна посчитать сколько раз эти 2 слова идут друг за другом.
В общем куча заморочек, а сдавать завтра. Вот такая вот скверная ситуация получается.

Тему просмотрел. Сразу скажу что знаний у меня самый минимум. Поэтому и попросил.

Автор: South Fruit 12.04.2007 20:06

Помогите человеку, со мной учится unsure.gif