Volvo писал: _index.php?s=&showtopic=6972&view=findpost&p=50569 .
(тут стоит защита от спама) _ замените на forum.pascal.net.ru
Так вот можно ли переделать этот метод, так чтобы можно было k-слово?
Пример:
Дано: "Привет, как дела?"
Вывод:
Привет
Как
Дела
Нужно взять слово "Как", то есть k[2].
Помогите переделать пожалуйста.
если с минимальными изменениями(не менять начальные функции), то можно так..
{...}
Count := GetWords(s, L, ['-', ';', '.']);
if (i > count) or (i < 1) then writeln('Error!') else begin
p := L.first;
while i > 1 do begin
p := p^.next;
i:=i-1;
end;
writeln(p^.data);
end;
{...}
Спасибо.
Вот набросал код, http://pastebin.com/m4e1fc194 пользуясь FAQ.
Не могу понять, как правильно описывать процедуры.
Алгоритм такой.
Сначала открываем файл, ищем строку(с помощью getwords), и если эта строка максимальная, то заносим эту строку в strmax, потом повторно используем гетвордс, для вытаскивания и-того слова.
...
В идеале думаю надо сделать процедуру поиска макс строки отдельно.
Ты бы задание привел полностью, а то догадываться, зачем тебе эти преобразования - не очень прельщает... Может быть все проще делается...
Мне нужно i-oe слово максимальной строки файла.
желательно чтобы в параметры процедуры указывалось номер слова и имя файла.
и желательно список, а не массив =)
"Максимальной строки" по какому параметру? Самой длинной? Тогда твой алгоритм из поста №4 неверен.
ой =)
Максимальная строка - это строка, в которой содержится наибольшее количество слов.
Словами не являются символы вида: ,.!\/!.........
=)
Вот это проверь:
Прикрепленные файлы
__habi.pas ( 2.33 килобайт )
Кол-во скачиваний: 214
Спасибо. а зачем инитЛист, что делает?
Спасибо учту, дабы, не дать утечки =)