Помощь - Поиск - Пользователи - Календарь
Полная версия: опять эти строки
Форум «Всё о Паскале» > 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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.