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

Узнай цену своей работы

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

Доброго времени суток. Буду очень признательна, если б кто-нибудь помог с задачкой. =( Вычислить предел последовательности an, с точностью до 0.5∙10-6. если значения a0, x вводятся, an считать по правилу: an = 5-sin2(1-a2n-1)/xn; 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
Похожие ответы