Pascal. Задача 7-1

Пользователь вводит действительное положительное число a и целое число n. Вычислить a^n. Решение оформить в виде функции. Стандартной функцией возведения в степень пользоваться нельзя.

Решение

function power(a, n : integer) : double;
var
  i : integer;
begin
  result := 1;
  if n > 0 then
    for i := 1 to n do
      result := result * a
  else if n < 0 then
         for i := 1 to abs(n) do
           result := result / a;
end;

var
  a : double;
  n : integer;
begin
  Write('Введите число a: ');
  Readln(a);
  Write('Введите степень числа n: ');
  Readln(n);
  Writeln('a в степени n: ', power(a, n));
end.

◄▲►