Рекурсивные алгоритмы. - Паскаль, Turbo Pascal, PascalABC.NET

masha13 · 01.03.2012, 23:57

Помогите пожалуйста написать рекурсивную программу нахождения x=sqrt(8+(sqrt(8-(sqrt(8-(sqrt(8+(sqrt(8-(sqrt(8-(sqrt(8+......) для заданного n количества радикалов.

Hacker19_90 · 02.03.2012, 00:31

писал с потолка так-что извиняйте

Код:

function RecursSqrt (const n: integer);
begin
    if n = 1 then RecursSqrt := sqrt(8);
    else 
        if odd(n) then RecursSqrt := sqrt(8 + RecursSqrt(n - 1))
        else RecursSqrt := sqrt(8 - RecursSqrt(n - 1))
end;

мб так...
хотя не уверен!

01.03.2012, 23:57	#1
masha13 Новичок Джуниор Регистрация: 01.03.2012 Сообщений: 1	Рекурсивные алгоритмы. Помогите пожалуйста написать рекурсивную программу нахождения x=sqrt(8+(sqrt(8-(sqrt(8-(sqrt(8+(sqrt(8-(sqrt(8-(sqrt(8+......) для заданного n количества радикалов.

02.03.2012, 00:31	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	писал с потолка так-что извиняйте Код: `function RecursSqrt (const n: integer); begin if n = 1 then RecursSqrt := sqrt(8); else if odd(n) then RecursSqrt := sqrt(8 + RecursSqrt(n - 1)) else RecursSqrt := sqrt(8 - RecursSqrt(n - 1)) end;` мб так... хотя не уверен! *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Рекурсивные алгоритмы	bodya00728	Помощь студентам	2	29.02.2012 01:12
Рекурсивные алгоритмы	ПрИуЭт	Помощь студентам	3	16.11.2011 23:18
РЕКУРСИВНЫЕ АЛГОРИТМЫ С++	Liza Dalbek	Фриланс	3	16.06.2011 19:30
рекурсивные алгоритмы	maverick12	Паскаль, Turbo Pascal, PascalABC.NET	1	21.06.2010 01:57
Рекурсивные алгоритмы в Паскале.	profan	Помощь студентам	8	31.03.2010 17:31