Паскаль. цикл FOR. Дано вещественное число Х(|X|<1) и целое число N(>0) Найти значение выражения ...

[schibeki]

добрых времени суток. Нужно опять доделать задачу. Вот само условие: Дано вещественное число Х(|X|<1) и целое число N(>0) Найти значение выражения Х-Х2/2+Х3/3-…+(-1)N-1*ХN/N. Полученное число является числом приближенным значением функции ln в точке 1+Х. Задачу нужно сделать с for. Вот мой код:

var c,x,u,t,e:real;
i:integer;
begin
x:=StrToFloat(Edit1.Text); // Считывается значение X
// Вывод X в окно Memo1
// Вычисляем арифметическое выражение
e:=0.0001;
i:=0;
u:=1;
t:=1;
while abs(t)>=e do
Begin
i:=i+1;
t:=t*x/i;
u:=u+t;
c:=ln(1+x);
end;

,но он невырный походу и я сделал через while?а нужно через for. Помогите как можно быстрее,просто завтра сдавать,буду благодарен.

[Stilet]

Не получится через FOR. Он не умеет работать с вещественными.

[schibeki]

т.е. только через while ?

[Stilet]

Я до конца задание не понял, но если следовать логике то да.

[schibeki]

я тоже не знаю

[Poma][a]

for i := 1 to n do begin
    t := t * (-1);
    r := r+t*x[n]/n
end;

[schibeki]

ща попробую

Сообщение от Poma][a

for i := 1 to n do begin
    t := t * (-1);
    r := r+t*x[n]/n
end;

Стоп,а скобки квадратные не пропускает и,если можно,чуть подробнее. от а до я код

ответь,пожалуйста

[Аватар]

y:=-1; r:=0
for i := 1 to n do begin
  y:=-y*x/n;
  r:=r+y;
end;

[schibeki]

а можно весь код,пож. и там нужно,чтобы знаки чередавались,т.е. + -

[Аватар]

нужно,чтобы знаки чередавались

y:=-y*x/n;
not comments