степень с действительным показателем

[viknik]

написать прогу. (в делфи) вычисления степени действительного числа а с целым показателем k/
// a^k=1 if k=0;
a*a^k-1 if k>0;
(a^k+1)/a if k<0/
СПАСИБО

[_Колибри_]

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  k: Integer;
  a: Real;
begin
  a := 2;
  k:= StrToInt(InputBox('Введите целое число k', 'k:', '0'));

  if k < 0 then
    a:= Power(a, k+1);

  if k = 0 then
    a:= Power(a, k);

  if k > 0 then
    a:= Power(a, k-1);

  ShowMessage('a = ' + FloatToStr(a));
end;