Proc44. Описать функцию Arctg1(x, $$\epsilon$$) вещественного типа (параметры $$x$$, $$\epsilon$$ — вещественные, $$|x| < 1, \epsilon > 0$$), находящую приближенное значение функции $$arctg(x)$$: $$arctg(x) = x — x^3/3 + x^5/5 — … + (-1)^n*x^{2*n+1}/(2*n+1) + …$$ . В сумме учитывать все слагаемые, модуль которых больше $$\epsilon$$. С помощью Arctg1 найти приближенное значение $$arctg(x)$$ для данного $$x$$ при шести данных $$\epsilon$$.
Решение от Дмитрия:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
использовать Файлы П алг Arctg_1(арг вещ x) нач цел fi вещ E, res fi:=открыть на чтение("Proc44.txt") нц пока не конец файла(fi) Фввод fi,E res := Arctg1(x, E) вывод "Arctg1(",x, ") = ", res, " при E = " , E, нс кц вывод " Arctg(",x, ") = ", arctg(x), нс закрыть (fi) кон алг вещ Arctg1(арг вещ x, E) нач вещ ai, S, i S:=0 ai:=x i:=1 нц пока abs(ai) > E S:=S+ai ai:=-ai*x*x*i/(i+2) i:=i+2 кц знач := S кон |
Proc44.txt
1 |
0.1 0.01 0.001 0.05 0.003 0.0041 |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: