Цитата:
Сообщение от EVO_X
Не знаю как текст программы вставлять, отправляю так свои начала по логарифму.
|
Ну так что ж, у Вас почти всё сделано, только нужно вывод в файл добавить для дальнейшей работы. Пожалуйста:
Код:
Var
n,i:integer;
a,x,S:real;
f:Text;
Begin
Assign(f,'Ln.txt');
Rewrite(f);
for i:=-9 to 9 do
begin
x:=0.1*i;
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:4:1,S:15:5,Ln(1+x):15:5);
Writeln(f,x:4:1,S:15:5);
end;
Close(f);
Readln
End.