Цикл while and Repeat

[ates]

над написать прогу в 2 вариантах в цикле while and Repeat
Вычислить сумму ряда и распечатать.
S=e^x=1+x/1+x^2/2+...+x^n/n.... Считать, что требуемая точность достигнута, если |X^i/i|<=z z=10^-5

[ex.cluz]

Обязательно указывайте на каком языке вам нужна реализация алгоритма, а то я тут телепатов еще не встречал .

[ates]

паскаль конешно)

[J.Bond]

Сообщение от ex.cluz

Обязательно указывайте на каком языке вам нужна реализация алгоритма, а то я тут телепатов еще не встречал .

ну если за плюсик то на асемлере)


Если помог - не стесняйтесь, жмите на весы и ставьте плюсик )

[Aronax]

я без объявления переменных, сами объявите ок?
x:=1;
while abs(x)<=0.00001 do begin
i:=i+1;
x:=x+(exp(i*ln(x)))/i;
end;

с repeat аналогично

[ates]

ага спасибо