Решение задачи с использованием рекурсивных функций

@mad17 · Регистрация: 27.12.2012

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

Образец решения:
Дана последовательность чисел x1,x2,x3 и т.д.x1=1; $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{i}$ = $https://www.cyberforum.ru/cgi-bin/latex.cgi?{2x}_{i-1}+3,14$
Найти $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{n} {x}_{i}$
Образец решения данного примера(Итерационный метод)

Pascal

program pr1;
uses crt;
function sum(n:integer):real;
var i:integer;x1,x2,s:real;
begin
x1:=1;
i:=1;
s:=0;
while i<=n do begin
s:=s+x1;
i:=i+1;
x2:=2*x1+Pi;
x1:=x2;
end;
sum:=s;
end;
begin
writeln('Введите n');
readln(n);
writeln('s=',sum(n));
end.
Образец решения для репульсивного метода:
program pr1;
uses crt;
var
function x(i:integer):real;
begin
if i=1 then x:=1;
else x:=2*x(i-1)+pi;(репульсивная функция)
end;
begin
writeln('n=');
readln(n);
s:=0;
i:=1;
while i<=n do begin
s:=s+x(i);
i:=i+1;
end;
writeln('s=',s);
end.

Нужно решить задачу:
Пусть x1=x2=x3=1;
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{i}$ = $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{i}=\frac{{x}_{i-1}}{1+|xi-3|}$ + $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{i-2}$
i=4,5,...
Дано действительное число а.Найти такое значение i,что
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{2}^{1}}{x1+1!}+ \frac{{2}^{2}}{x2+2!}+...>a;$
задачу нужно решить 2-мя способами ,как на образцах,образцы написал,но у меня не получается по ним сделать,может кто решал подобное,заранее спасибо за помощь.

dimabubyakin · 26.10.2013, 12:46

Зачем вам дана кнопочка PASCAL?

@mad17 · 27.10.2013, 16:57 **[ТС]**

может быть есть образцы решения похожих примеров?

Добавлено через 27 секунд
по тому который нам дали не втыкаю

Добавлено через 6 часов 33 минуты
не понимаю зачем мне xi дали,если x1=x2=x3=1;xi-дают же чтобы х2 х3 и тд узнавать,понять не могу.
как условие записать?
if i=1 then x:=1
else x:=x(i-1)/1+abs(x(i-3))+x(i-2);
end; так чтоли?Для 2 случая
или для случая х1х2х3 i=1,2,3 а затем i=4,5,,..и считать по xi ?Разобраться не могу.

@mad17 · 28.10.2013, 17:32 **[ТС]**

program pr1;
uses crt;
var i:integer;x1,x2,x3:real;
funcrion x(i:integer):real;
begin
if i<=3 then x:=1
else x:=x(i-1)/1+abs(x(i-3))+x(i-2);
end.
хочу так начать,но не знаю как дальше идти)

dimabubyakin 161 / 122 / 85 Регистрация: 16.10.2013 Сообщений: 1,738
	26.10.2013, 12:46	2
	Зачем вам дана кнопочка PASCAL? 0

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165
	27.10.2013, 16:57 [ТС]	3
	может быть есть образцы решения похожих примеров? Добавлено через 27 секунд по тому который нам дали не втыкаю Добавлено через 6 часов 33 минуты не понимаю зачем мне xi дали,если x1=x2=x3=1;xi-дают же чтобы х2 х3 и тд узнавать,понять не могу. как условие записать? if i=1 then x:=1 else x:=x(i-1)/1+abs(x(i-3))+x(i-2); end; так чтоли?Для 2 случая или для случая х1х2х3 i=1,2,3 а затем i=4,5,,..и считать по xi ?Разобраться не могу. 0

@mad17 9 / 9 / 0 Регистрация: 27.12.2012 Сообщений: 165
	28.10.2013, 17:32 [ТС]	4
	program pr1; uses crt; var i:integer;x1,x2,x3:real; funcrion x(i:integer):real; begin if i<=3 then x:=1 else x:=x(i-1)/1+abs(x(i-3))+x(i-2); end. хочу так начать,но не знаю как дальше идти) 0