Напечатать в обратном порядке заданную строку - Turbo Pascal
Формулировка задачи:
Нужно напечатать в обратном порядке заданную строку, Паскаль, рекурсия.
Решение задачи: «Напечатать в обратном порядке заданную строку»
textual
Листинг программы
- procedure reverse(s:string;k:byte);
- begin
- write(s[k]);
- if k>1 then reverse(s,k-1);
- end;
- var s:string;
- n:byte;
- begin
- writeln('Введите строку');
- readln(s);
- n:=length(s);
- reverse(s,n);
- readln
- end.
Объяснение кода листинга программы
- В начале объявляются необходимые переменные: s (строка), n (байт), k (индекс).
- Затем идет приглашение пользователю ввести строку.
- Строка считывается в переменную s с помощью функции readln.
- Переменная n инициализируется значением длины строки s с помощью функции length.
- Вызывается процедура reverse, которая печатает символы строки в обратном порядке.
- Если k больше 1, то вызывается рекурсивно процедура reverse для оставшейся части строки, уменьшая значение k на 1.
- Программа завершается вызовом функции readln.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
