Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Вычисление cos(x) с помошью ряда Тейлора
{Вычисление cos(x) с помощью ряда 1+summa(i=1,n)[x^(2*i)/(2i)!]} var i, n, k : integer; var x, s, p : real; begin readln(x); readln(n); k := -1; p := 1; s := 0; for i := 0 to n do begin p := p * x * x / ((2*i+1)*2*(i+1)); s := s + k*p; k := -k; end; writeln(1+s:10:8); // другой вариант k=1 и меняем местами строки k=-k и s=s+kp k := 1; p := 1; s := 0; for i := 0 to n do begin p := p * x * x / ((2*i+1)*2*(i+1)); k := -k; s := s + k*p; end; writeln(1+s:10:8); // третий вариант точность меншье k := 1; p := 1; s := 0; for i := 1 to n do begin p := p * x * x / ((2*i-1)*2*i); k := -k; s := s + k*p; end; writeln(1+s:10:8); end.
run
|
edit
|
history
|
help
0
Martix
2. Proba
Calcula média de pesos, o maior peso, o menos peso
practica 6 ejercicio 1
imprimir_numeros_hasta_N
Исправленный NOD без массивов и алгоритма Евклида
AreaTriangulo.pas
zad27-notoptimal
x=2;n=3
НОД через функцию с возможностью вычисления для трёх и более чисел