Вычислить предел последовательности. Как записать уравнение? - Turbo Pascal

Формулировка задачи:

Доброго времени суток. Буду очень признательна, если б кто-нибудь помог с задачкой. =( Вычислить предел последовательности a_n, с точностью до 0.5∙10^-6. если значения a₀, x вводятся, a_n считать по правилу: a_n = 5-sin²(1-a²_n-1)/xⁿ; x>1 Заранее спасибо. Не могу понять как правильно записать уравнение.

Решение задачи: «Вычислить предел последовательности. Как записать уравнение?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
uses crt;
const e=0.5e-6;
var a0,an,x,s:real;
begin
clrscr;
write('a0=');
readln(a0);
repeat
write('x>1 x=');
readln(x);
until x>1;
an:=5-sqr(sin(1-sqr(a0)));
s:=1;
while abs(an-a0)>e do
 begin
  s:=s/x;
  an:=5-sqr(sin(1-sqr(a0)))*s;
  a0:=an;
 end;
write('An=',an:0:6);
readln
end.

Оцени полезность:

8 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы