IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> опять эти строки, найти слова, состоящие из букв минимального слова
what is
сообщение 13.01.2007 23:20
Сообщение #1


только вперед...
*

Группа: Пользователи
Сообщений: 20
Пол: Женский

Репутация: -  1  +


Задача. Составить одмерный массив из слов, которые состоят только из букв минимального по длине слова. Разделители:. , ! ? / и пробел.
вопрос в том, что не пойму как искать сами вхождения букв минимального слова в остальные слова.
помогите плиз...


--------------------
Завтра будет. Лучше???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 14.01.2007 0:10
Сообщение #2


Гость






Цитата(what is @ 13.01.2007 22:20)
вопрос в том, что не пойму как искать сами вхождения букв минимального слова в остальные слова.
Ну, если вопрос только в этом - то... Допустим, ты уже выделила из строки все слова, и записала их в массив (ты должна уметь это делать, в предыдущей задаче это было), и нашла также минимальное по длине слово... Теперь твоя задача выделить из всех слов, находяшихся в массиве, только те, которые состоят из букв минимального по длине. Посмотри сюда:

const
{ Это массив тех слов, которые найдены в строке }
arr: array[1 .. 10] of string = (
'start', 'finish', 'begin', 'end', 'stop',
'aaaaa', 'bbbbbb', 'ccccc', 'ennndddd', 'eeee'
);

{ Это - минимальное по длине слово, тоже просто определяется }
min_word: string = 'end';
var
i, j: integer;
current: string;
error: boolean;

begin
for i := 1 to 10 do begin { <--- Вместо 10 должна быть реальное количество слов в массиве }
error := false;
current := arr[i];
for j := 1 to length(current) do
if pos(current[j], min_word) = 0 then error := true;

if not error then
writeln(current); { Здесь я просто распечатываю значение, но можно... }
end;

end.

... или заносить его во второй массив, или в обратном случае (if error then ...) сдвигать содержимое масива слов на одну позицию влево, чтобы НЕподходящее слово затерлось следующим (только с этим - внимательнее, тогда нельзя пользоваться циклом For по i, нужен While)
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 2:33
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"