Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
Вычисление 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
Please
log in
to post a comment.
Project Euler 18 - Maximum path sum
test05
Enkripsi2
real vs integer
Llena un arreglo (con while)
Урок 2 задача не из учебника: 4-значное число
test07
sound
Ipis unazad ulancana lista
GUILHERME MEIRA MARINS 600624503
stackse - search stackoverflow differently
Please log in to post a comment.