Вычислить предел последовательности. Как записать уравнение? - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д