Страница 1 из 1
Рекурсивные функции на Pascal
Добавлено: 16 июн 2004, 11:25
Мария
Помогите, пожалуйста, написать рекурсивную функцию для создания "перевертыша" числа, т.е. из 1234 получается 4321.
Буду прихзнательна.
:!: :!: :?
Добавлено: 17 июн 2004, 07:26
Naeel Maqsudov
К сожалению, Вы не указали тип данных в котором надо решить задачу. Предположу, что это число, записанное в строке, тогда решение будет следующим:
Код: Выделить всё
function reflect(X:string):string;
begin
if X='' then reflect:=X else reflect:=reflect(copy(X,2,maxint))+X[1];
end;
PS
Тема переезжает из Delphi/Pascal на более подходящую доску
Добавлено: 17 июн 2004, 09:24
Hawk
Как я понимаю эта тема была в паскале? Так бы и написали, что от туда а то сейчас не понитяно на каком языке требуется написать.