Обработать текстовый файл: удалить пробелы между знаком препинания и окончанием слова - Turbo Pascal
Формулировка задачи:
Нужна помощь, пропустил пару и теперь въехать не могу как алгоритм составить.
1.Обработать текстовый файл: удалить пробелы между знаком препинания и окончанием слова. Если можно то с комментариями.
Решение задачи: «Обработать текстовый файл: удалить пробелы между знаком препинания и окончанием слова»
textual
Листинг программы
While Pos(' .',S)>0 do Delete(S,Pos(' .',S),1);
While Pos(' ,',S)>0 do Delete(S,Pos(' ,',S),1);
While Pos(' !',S)>0 do Delete(S,Pos(' !',S),1);
While Pos(' ?',S)>0 do Delete(S,Pos(' ?',S),1);
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д