В заданном текстовом файле изменить порядок следования символов на противоположный - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Если в строке написано "привет", то должно вывести "тевирп".

Решение задачи: «В заданном текстовом файле изменить порядок следования символов на противоположный»

textual
Листинг программы
Function StRevers(St : String) : String;
Begin
  If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
   else StRevers:=St;
end;

Объяснение кода листинга программы

  1. В функции StRevers используется строка St, которая является входным параметром.
  2. Если длина строки St больше 1, то выполняется рекурсивный вызов функции StRevers для Copy(St,2,Length(St)-2)), где Copy(St,2,Length(St)-2)) создает новую строку, содержащую все символы строки St, начиная со второго и заканчивая последним символом, исключая последний символ.
  3. Затем выполняется рекурсивный вызов функции StRevers для строки St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1], где St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1] объединяет результат последнего рекурсивного вызова с текущей строкой St.
  4. Если длина строки St равна 1, то функция возвращает исходную строку St без изменений.
  5. В противном случае функция возвращает результат последнего рекурсивного вызова.

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы