С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
ClickTronix
0 / 0 / 0
Регистрация: 18.09.2012
Сообщений: 26
1

Реализовать функцию преобразования строк с использованием рекурсивной процедуры

20.12.2012, 14:29. Просмотров 959. Ответов 3
Метки нет (Все метки)

Прошу написать программный код по предоставленной задаче
Реализовать функцию преобразования строк с использованием рекурсивной процедуры
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2012, 14:29
Ответы с готовыми решениями:

Разработать программу согласно алгоритму с использованием рекурсивной функции и без использования рекурсивной
Разработать программу согласно алгоритму с использованием рекурсивной функции и...

Остановка рекурсивной процедуры
Каким образом можно прервать выполнение такой рекурсивной процедуры? Написал...

с использованием рекурсивной функции
найти n-ый член числовой последовательности по рекуррентной формуле:...

Вычислить четные числа в файле с помощью рекурсивной процедуры
помгите, задача очень простая но у меня рекурсия как-то странно себя ведет,...

Составить программу с использованием рекурсивной функции
Составить программу с использованием рекурсивной функции. Организовать красивый...

3
ClickTronix
0 / 0 / 0
Регистрация: 18.09.2012
Сообщений: 26
23.12.2012, 16:04  [ТС] 2
Дорогие форумчане, остался не большой срок до сдачи данного задания, хотелось бы побыстрее получить программный код к данному заданию, надеюсь на понимание. Заранее благодарю.
0
orange_rush
140 / 146 / 116
Регистрация: 15.11.2012
Сообщений: 529
Записей в блоге: 2
24.12.2012, 16:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function f(a :string):string;
var     j :byte;
        a2,a3 :string;
begin
        if Length(a)<=2 then f:=a
        else begin
                j:=length(a);
                if j mod 2=0 then f:=a
                else  begin
                        a2:=Copy(a,1,(j div 2)+1);
                        a3:=Copy(a,(j div 2)+1,j);
                        f:=f(a2)+f(a3);
                end;
        end;
end;
var     a :string;
BEGIN
        a:='123456789';
        writeln(f(a));
        readln;
END.
1
ClickTronix
0 / 0 / 0
Регистрация: 18.09.2012
Сообщений: 26
25.12.2012, 08:33  [ТС] 4
orange_rush, огромное спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2012, 08:33

Написать программу вычисления факториала с использованием рекурсивной подпрограммы
3. Написать программу вычисления факториала с использованием рекурсивной...

Написать программу вычисления факториала с использованием рекурсивной подпрограммы
Написать программу вычисления факториала с использованием рекурсивной...

Составить программу с использованием рекурсивной функции для сравнения двух одномерных массивов.
Составить программу с использованием рекурсивной функции для сравнения двух...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru