Найти n, для которого выполняется условие - Pascal ABC
Формулировка задачи:
Даны дейсвительные числа х, ε (х ≠ 0, ε > 0). Последовательность образована по закону
Найти n, для которого выполняется условие
Ограничить рассмотрение первых 103 членов.
Решение задачи: «Найти n, для которого выполняется условие»
textual
Листинг программы
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.
Объяснение кода листинга программы
- Создается переменная n типа integer.
- Создаются переменные a, t, x, e типа double.
- Запускается цикл repeat, внутри которого выполняется следующая последовательность действий:
- Выводится сообщение
x <> 0; x =
и считывается значение переменной x. - Проверяется условие x <> 0. Цикл повторяется, пока это условие не выполнится.
- Выводится сообщение
eps > 0; eps =
и считывается значение переменной e. - Проверяется условие e > 0. Цикл повторяется, пока это условие не выполнится.
- Переменная a присваивается значение переменной x.
- Переменная n присваивается значение 1.
- Запускается цикл repeat, внутри которого выполняется следующая последовательность действий:
- Инкрементируется значение переменной n.
- Переменная t присваивается значение переменной a.
- Переменная a присваивается результат вычисления cos(x) / (4 + sqr(cos(t))).
- Проверяется условие (abs(aa - tt) < e) или (n >= 1000).
- Если условие выполняется, то выводится сообщение
n =
и значение переменной n. - Если условие не выполняется, то выводится сообщение
Для первых 1000 членов последовательности условие не было выполнено.
.
- Считывается значение переменной x.
- Выводится сообщение
- Заканчивается цикл repeat.
- Выводится сообщение
readln
. - Заканчивается программа.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д