Рекурсия в паскале

@Prokuror · Регистрация: 22.03.2012

Студворк — интернет-сервис помощи студентам

помогите пожалуйста с программой на паскале определить рекурсивно
F(1) = 2;
F(n) = F(n/2) + F(n/2) + 2; n > 1
У меня получилось
Код Pascal

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program lr_3;
uses crt;
 
function fun(var n:real):real;
 
begin
if n=1 then fun:=2;
if n>=2 then
fun:=(fun(n/2)+fun(n/2)+2);
end;
var k,l:real;
begin
write('vvod x=');read(k);
l:=fun(k);
writeln('function fun :',l:3:2);
end.

но что-то код мой не работает...

@Puporev · 17.11.2012, 15:19

Pascal
1
2
3
4
5
function fun(n:real):real;
begin
if n=1 then fun:=2
else fun:=fun(n/2)+fun(n/2)+2;
end;

Но какая-то глупость, можно же и

Pascal
1
2
3
4
5
function fun(n:real):real;
begin
if n=1 then fun:=2
else fun:=2*(fun(n/2)+1);
end;

@Prokuror · 18.11.2012, 01:01 **[ТС]**

Спасибо помогло. Только вот не пойму почему если ввожу для x=3,5,6 и т.д. то программа завершается и не считает. и если поменять все на integer то она не запускается, мол нельзя преобразовать выражение типа real к типу integer. Это такая особенность этого условия, т.е. нельзя будет при x=3,5,6 и т.д. посчитать f(n)?

@Puporev · 18.11.2012, 08:11

Так я и говорю что написана ерунда.
F(n/2) + F(n/2) + 2 математики так не пишут, здесь можно упростить.
Это вообще только для четных чисел, причем знак "/" подразумевает вещественный тип, иначе вместо него нужно div.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Prokuror 0 / 0 / 0 Регистрация: 22.03.2012 Сообщений: 16
	18.11.2012, 01:01 [ТС]
	Спасибо помогло. Только вот не пойму почему если ввожу для x=3,5,6 и т.д. то программа завершается и не считает. и если поменять все на integer то она не запускается, мол нельзя преобразовать выражение типа real к типу integer. Это такая особенность этого условия, т.е. нельзя будет при x=3,5,6 и т.д. посчитать f(n)? 0

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	18.11.2012, 08:11
	Так я и говорю что написана ерунда. F(n/2) + F(n/2) + 2 математики так не пишут, здесь можно упростить. Это вообще только для четных чисел, причем знак "/" подразумевает вещественный тип, иначе вместо него нужно div. 0