Помощь - Поиск - Пользователи - Календарь
Полная версия: опять эти строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
what is
Задача. Составить одмерный массив из слов, которые состоят только из букв минимального по длине слова. Разделители:. , ! ? / и пробел.
вопрос в том, что не пойму как искать сами вхождения букв минимального слова в остальные слова.
помогите плиз...
volvo
Цитата(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)
what is
Спасибо большое! Теперь все поняла...
Вы - гений.. good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.