Написать программу, которая удаляет три символа в начале слов, оканчивающихся на th

Posted by obzor under Delphi

Написать программу, которая удаляет три символа в начале слов, оканчивающихся на th.

К примеру задаю строку ghghjhth jdfkth shfjth hjsjhfj
Программа должна вывести hjhth kth jth hjsjhfj

Serge_Bliznykov

Если не сильно заморачиваться, то можно начать с такого кода:

var s, sword, answer : string;
 i : integer;
begin
  s := 'ghghjhth jdfkth shfjth hjsjhfj';

  answer := '';
  s:=s+' '; {добавили пробел в конец строки для удобства обработки}
  sword:='';
  for i:=1 to Length(s) do begin
    if s[ i] <> ' ' then sword:=sword + s[ i]
    else
      if Length(sword)>0 then begin
        if copy(sword,Length(sword)-1,2)='th' then Delete(sword,1,3);
        answer := answer + sword + ' ';
        sword := '';
      end;
  end;
  WriteLn(answer)
end

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)