Заменить первые 3 символа слов, имеющих выбранную длину, на символ * Опции

[Grief]

Заменить первые 3 символа слов, имеющих выбранную длину, на символ * .
Длинна слов 6-8
Количество слов 10

По найденным урокам не особо смог ориентироваться, нужен наглядный пример
Буду признателен за помощь... Спасибо заранее.

[volvo]

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

const razd: set of char=[' ','.',',',':',';','!'];
var
  st, buf:string;
  L: integer;
begin
  write('длина -> '); readln(L);
  write('строка -> '); readln(st);

  repeat
    { для начала проверяем, первый символ - разделитель или нет? }
    if (length(st)=0) or (st[1] in razd) then { СНАЧАЛА проверяем длину, только потом - st[1] !!! }
      while (length(st) > 0) and (st[1] in razd) do
      begin
        write(st[1]); delete(st,1,1); { не теряем символы - разделители, выводим из перед удалением }
      end
    else begin
      { нет, не разделитель, составляем слово: }
      while (length(st)>0) and (not (st[1] in razd)) do { Еще раз - СНАЧАЛА длина, потом первый символ }
      begin
        buf:=buf+st[1]; delete(st,1,1);
      end;

      if length(buf) = L then
      begin
        delete(buf, 1, 3); insert('*', buf, 1); { <--- Удалили три символа, вставили один }
      end;
      write(buf); { слово печатается в любом случае, не только при каком-то условии }
      buf:='';
    end; { else закончился }
  until (length(st)=0) and (length(buf)=0);
  readln;
end.

Теперь - зачем все это делается: а затем, что если ты ввел строку, и тебя попросили заменить в ней первые символы четырех(например)-буквенных слов на звездочку, это не значит, что тебе надо вывести измененные огрызки этих самых четырехбуквенных слов. Тебе надо получить строку, полную, в которой части слов нужной длины заменены звездочками, а все остальное - сохранено (другие слова, разделители, это не должно пострадать).

Кстати, я бы еще добавил условие, проверяющее, а больше ли введенная пользователем "длина", чем 3. Потому что удалять из двухбуквенного слова три первых символа - это по меньшей мере странно. Какая-то защита от дурака должна быть...

Основа у тебя есть. Дорабатывай...

P.S. Объяснение, почему я поменял порядок следования условий, и какое вообще это имеет значение - будет, если тебе это интересно. Будут еще какие вопросы по коду - задавай.

[Lapp]

Будут еще какие вопросы по коду - задавай.

Мало надежды, что автор темы будет задавать вопросы. Скорее всего, он проигнорирует твой мессадж, volvo, как он проигнорировал мой.

Терпеть не могу спрашивающих, не обращающих внимания на ответы. Ничего не может быть хуже