Напечатать в обратном порядке заданную строку - 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.