For25. Дано вещественное число X (|X| < 1) и целое число N (> 0). Найти значение выражения X — X2/2 + X3/3 -…+ (-1)N-1*XN/N. Полученное число является приближенным значением функции ln в точке 1 + X.
Решение Pascal
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
program For25; var X,Rez,pow:Real; N, i :Integer; begin Write('Введите X: '); Readln(X); Write('Введите N: '); Readln(N); Rez:=0; pow:=1; For i:=1 to N do begin pow:=pow*X; Rez:=Rez+pow/i; pow:=pow*(-1); end; Writeln(Rez); end. |
Решение C
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
#include int main(void) { float x; printf("X:"); scanf ("%f", &x); int n; printf("N:"); scanf ("%i", &n); float x1=x,rez=x; int i; for (i =2; i<=n; ++i){ x1 *= -1*x; rez += x1/i; printf("%f; %f \n ",rez,x1); } printf("%f \n ",rez); return 0; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования
