PDA

Просмотр полной версии : Рекурсивные функции на Pascal



Мария
16.06.2004, 11:25
Помогите, пожалуйста, написать рекурсивную функцию для создания "перевертыша" числа, т.е. из 1234 получается 4321.
Буду прихзнательна.
:!: :!: :?

Naeel Maqsudov
17.06.2004, 07:26
К сожалению, Вы не указали тип данных в котором надо решить задачу. Предположу, что это число, записанное в строке, тогда решение будет следующим:



function reflect(X:string):string;
begin
if X='' then reflect:=X else reflect:=reflect(copy(X,2,maxint))+X[1];
end;


PS
Тема переезжает из Delphi/Pascal на более подходящую доску

Hawk
17.06.2004, 09:24
Как я понимаю эта тема была в паскале? Так бы и написали, что от туда а то сейчас не понитяно на каком языке требуется написать.