Рекурсивные функции на Pascal

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Мария
Сообщения: 3
Зарегистрирован: 16 июн 2004, 11:13
Откуда: Краснодар

16 июн 2004, 11:25

Помогите, пожалуйста, написать рекурсивную функцию для создания "перевертыша" числа, т.е. из 1234 получается 4321.
Буду прихзнательна.
:!: :!: :?
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

17 июн 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
Сообщения: 215
Зарегистрирован: 17 фев 2004, 14:52
Откуда: СПб
Контактная информация:

17 июн 2004, 09:24

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