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
GABRIELLA ALVES DA SILVA 600307538
Урок 2. Функции:
practica 11 ejercicio 4
Урок 6. Задача 9 (1533). Два самых маленьких числа
Huong11a2@
busca de string
test27
5161
444555666
checks if a number is exceptional