Помогите пожалуйста. Необходимо вычислить в Pascal

[Rimad]

При решении использовал функцию power, но преподаватель просит использовать exp. Помогите пожалуйста)
---------------------------------------------------------------------
Дано натуральное число n. Вычислить:

[ZX Spectrum-128]

Var
 x,n:integer;
BEGIN
  Writeln('Введите число: ');
  Readln(x);
  writeln('Введите степень: ');
  Readln(n);
  Writeln('Равно: ', exp(n*LN(x)));
END.

[Stilet]

А ты открой исходник функции power и посмотри как она устроена.

[Rimad]

Как вам?

program bab;
var n,i:integer;
s:real;
begin
Writeln ('Введите число n');
Readln(n);
s:= 0;
for i:=1 to n do
if i mod 2 = 0 then
s := s -1 / i * (i + 1)
else
s := s +1 / i * (i + 1);
Writeln('s=',s);
end.

[Вадим Мошев]

Сообщение от Rimad

При решении использовал функцию power, но преподаватель просит использовать exp. Помогите пожалуйста)
---------------------------------------------------------------------
Дано натуральное число n. Вычислить:

Здесь вообще не нужно возводить в степень. Ни Power, ни exp здесь не нужны.
Здесь просто чередуется знак. Просто в цикле каждое слагаемое умножайте на (-1) и всё.

[Rimad]

Сообщение от Вадим Мошев

Здесь вообще не нужно возводить в степень. Ни Power, ни exp здесь не нужны.
Здесь просто чередуется знак. Просто в цикле каждое слагаемое умножайте на (-1) и всё.

Как вам вариант, написанный мною выше?

[Вадим Мошев]

Для новичка сойдёт, но записать можно было короче. Можно не проверять на чётность, а каждый раз умножать слагаемое на (-1) и добавлять его к S.

потом

s := s +1 / i * (i + 1);

можно записать, как

s := s +1 / i / (i + 1);