Здравствуйте! Очень надеюсь на вашу помощь!

Здравствуйте! Очень надеюсь на вашу помощь! Написать программу на языке Pasсal, меняющую все слова "red" на "black", "tree" на "palms" из текста, указанного в файле in.txt и сохраняющую результат в файл out.txt. Все остальные слова, пробелы, запятые, точки и т. П должны остаться без изменений.

в избранное

bjorn

14 августа 2022

Var myInFile, myOutFile: text; ind: integer; currentString: string; begin assign (myInFile, 'in.txt'); reset (myInFile); assign (myOutFile, 'out.txt'); rewrite (myOutFile); while (not EOF (myInFile) do begin currentString: =readln (myInFile); while (pos ('red', currentString) > 0) do begin ind: =pos (currentString, 'red'); delete (currentString, ind, length ('red'); insert ('black', currentString, ind); end; while (pos ('tree', currentString) > 0) do begin ind: =pos (currentString, 'tree'); delete (currentString, ind, length ('tree'); insert ('palms', currentString, ind); end; end; close (myInFile); close (myOutFile); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?