Не могу поправить программку - PascalABC.NET
Формулировка задачи:
Здравствуйте. Дан символьный файл f. Записать в файл g символы имеющиеся в файле f в обратном порядке, я не могу понять, как сделать в обратном порядке? Сделал обычную запись, а в обратном порядке не получается...
Вот программа:
Решение задачи: «Не могу поправить программку»
textual
Листинг программы
for i := 1 to FileSize(f) do begin read(f, x); if str.Contains(x) then begin write(g, x); end;
Объяснение кода листинга программы
- Объявляется цикл for, который будет выполняться от 1 до FileSize(f) (предположительно функция, которая возвращает размер файла)
- В каждой итерации цикла считывается строка из файла f с помощью функции read(f, x) (предполагается, что x это переменная типа string)
- С помощью функции str.Contains(x) проверяется, содержится ли в строке x определенная подстрока (предполагается, что str это объект типа String)
- Если подстрока найдена, то с помощью функции write(g, x) (предполагается, что g это объект типа StreamWriter) выводим строку x в файл g
- Код не содержит обработки ошибок, так что при возникновении ошибки программа, скорее всего, завершится с ошибкой
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д