Добрый день, к сожалению, не могу понять как дальше делать задание и был бы признателен, если бы вы мне помогли.
Само уравнение я приклеил к посту, задача же такова :
Написать программу вычисления приближенных значений функции, представленной в виде ряда, в десяти равноотстоящих друг от друга точках указанного диапазона возможных значений аргумента, как в таблице, которая будет в след посте, т.е. сначала посчитать Х от 10^-1 до 10^-6, затем перейти на следующий X
Вот то, что я имею на данный момент, она считает х от -0.5 до 0.3, но только с одним параметром eps.
Большое спасибо!
| Код |
uses crt,math;
var xn,xk,x,dx,eps,s,t,p:real; fp:text;
begin
AssignFile(fp,'lab1.text');
Rewrite(fp);
Write('xn='); ReadLn(xn);
Write('xn=');ReadLn(xk);
dx:=(xk-xn)/9;
eps:=0.00001;
x:=xn;
writeln('----------------------------');
writeln('eps, | x | s | (1+x)^-1 |');
writeln('----------------------------');
while x<=xk+dx/2 do
begin
s:=1;
t:=1;
while abs(t)>eps do
begin
t:=-t*x;
s:=s+t;
end;
writeln(',x:5:2,'|',s:8:4,' |',1/(1+x):9:4,' |');
x:=x+dx;
write(fp,'lab1.text');
end;
writeln('----------------------------');
readln;
Closefile(fp);
end.
|
|