Простейшие рекурсивные алгоритмы (ПАСКАЛЬ)

[Таня.Ку]

Описать рекурсивную функцию PowerN(x,n) вещественного типа, находящую значение n-й степени числа x по формуле: x0=1, xn= x*xn-1 при n>0, xn=1/x-n при n<0 (x>=0 -вещественное число, n- целое). С помощью этой функции найти значение XN при 5 различных значениях N для даного X.

[Alex_FF]

function Power(X: Double; N: Integer): Double;
var
  T: Double;
begin
  if N = 0 then
  begin
    Power := 1;
    Exit;
  end;
  if N mod 2 = 0 then
  begin
    T := Power(X, N div 2);
    Power := T * T;
  end
  else Power := X * Power(X, N - 1);
end;

var
  X: Double;
  N: Integer;
begin
  WriteLn('Введите X, N');
  ReadLn(X, N);
  WriteLn;
  Write('X ^ N = ');
  WriteLn(Power(X, N):4:3);
  ReadLn;
  ReadLn;
end.