Вычислить сумму N слагаемых заданного вида - Turbo Pascal
Формулировка задачи:
При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму.Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение x, лежащем в интервале (-R, R).
Решение задачи: «Вычислить сумму N слагаемых заданного вида»
textual
Листинг программы
uses crt; var n,i:integer; x,e,t,s:real; begin clrscr; repeat write('Введите |x|<1 x='); readln(x); until abs(x)<1; repeat write('Введите натуральное n>1 n='); readln(n); until n>1; writeln('Значение при N=',n); t:=x/2; s:=1+t; for i:=2 to n do begin t:=-t*(2*i-3)*x/(2*i); s:=s+t; end; writeln('S=',s:0:5); writeln('Значение при точности e=0.0001'); e:=0.0001; n:=1; t:=x/2; s:=1+t; while abs(t)>e do begin n:=n+1; t:=-t*(2*n-3)*x/(2*n); s:=s+t; end; writeln('S=',s:0:5,' N=',n); writeln('Значение при точности e=0.00001'); e:=0.00001; n:=1; t:=x/2; s:=1+t; while abs(t)>e do begin n:=n+1; t:=-t*(2*n-3)*x/(2*n); s:=s+t; end; writeln('S=',s:0:5,' N=',n); write('sqrt(1+x)=',sqrt(1+x):0:5); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д