Цитата:
Сообщение от EVO_X
В этой программе мы задаем шаг, а промежуток тот же что и в первой программе?
|
А что, и его менять надо? Ну пожалуйста: задаются нижняя и верхняя границы, а также шаг:
Код:
Var
n,i,M:integer;
a,x,S,Step,mn,mx:real;
f:Text;
Begin
Assign(f,'Ln.txt');
Rewrite(f);
Write('Minimal value = ');
Readln(mn);
Write('Maximal value = ');
Readln(mx);
Write('Step = ');
Readln(Step);
M:=Trunc((mx-mn)/Step)+2;
x:=mn-step;
for i:=1 to M do
begin
x:=x+Step;
a:=x;
S:=a;
n:=1;
repeat
n:=n+1;
a:=-a*(n-1)/n*x;
S:=S+a;
until Abs(a)<1E-7;
Writeln(x:6:3,S:15:5,Ln(1+x):15:5);
Writeln(f,x:6:3,S:15:5);
end;
Close(f);
Readln
End.