Найти n, для которого выполняется условие - Pascal ABC

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

Даны дейсвительные числа х, ε (х ≠ 0, ε > 0). Последовательность образована по закону Найти n, для которого выполняется условие Ограничить рассмотрение первых 103 членов.


textual

Код к задаче: «Найти n, для которого выполняется условие - Pascal ABC»

var n: integer;
    a, t, x, e: double;
begin
  repeat
    write(' x <> 0;    x = ');
    readln(x)
  until x <> 0;
  repeat
    write('eps > 0;  eps = ');
    readln(e)
  until e > 0;
  a := x;
  n := 1;
  repeat
    inc(n);
    t := a;
    a := cos(x) / (4 + sqr(cos(t)))
  until (abs(a * a - t * t) < e) or (n >= 1000);
  if abs(a * a - t * t) < e
    then write('n = ', n)
    else write('Для первых 1000 членов последовательности условие не было выполнено.');
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы