Proc42. Описать функцию Cos1(x, $$\epsilon$$) вещественного типа (параметры x, $$\epsilon$$ — вещественные, $$\epsilon > 0$$), находящую приближенное значение функции cos(x): $$cos(x) = 1 — x^2/(2!) + x^4/(4!) — … + (-1)^n*x^{2*n}/((2*n)!) + …$$ . В сумме учитывать все слагаемые, модуль которых больше ?. С помощью Cos1 найти приближенное значение косинуса для данного $$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 33 34 35 36 |
использовать Файлы алг proc42 нач вещ э,x, ответ вывод "Введите число x: " ввод x файл файл1 файл1:=открыть на чтение ("Proc42.txt") вывод "Стандартный косинус = ", cos(x), нс нц пока не конец файла (файл1) ввод файл1, э вывод э," " ответ:=Cos1(x,э) вывод "cos(x) = ", ответ, нс кц закрыть (файл1) кон алг вещ Cos1(арг вещ x, э) нач вещ S S:=1 вещ step, f step:=1 f:=1 цел i i:=1 нц пока abs(step/f)>э f:=f*(i*2-1)*(i*2) step:=-step*x*x S:=S+step/f i:=i+1 кц знач:=S кон |
Файл Proc42.txt
1 |
0.00000000000001 0.0000001 0.01 0.001 0.00001 0.000001 0.00000000001 |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: