Как найти степень числа в информатике

Текст решения задачи по программированию на PascalABC с комментариями. Что бы посмотреть объяснение этого решения нажмите смотреть видеоурок.

program stepen;
uses crt;
{ Записать программу возвед. числа, а в степень n }
var a, n, i, p: integer;
begin
write (‘n=’);readln (n); {Просим ввести степень числа и считываем её}
write (‘a=’);readln (a); {Просим ввести само число и считываем его}
p:=1; {Если степень равна 0 то цикл ни разу не выполнится и выведется число р, которое мы задаем равным единице, если же укажите при выполнении программы степень равную 1, то цикл выполнится 1 раз и число, а перемножится на р=1 после чего естественно получим само число а, что так же является правильным результатом}
for i:=1 to n do
p:=p*a; {В цикле на каждом кругу в переменную р, которую мы будем выводить в качестве конечного результата, заносится новое значение числа, а, возведенного в степень равную значению счетчика т. е. при i=1 р=а*1; при i=2 р=а*1*a (т.е. а в квадрате); при i=1 р=а*1*a*а (т.е. а в кубе); }
write (‘Число, а в степени n = ‘, p){Выводим результат};
readln;
end.

ВАЖНО!

Всё, что сказано выше, взято из официальной документации
FreePascal. Однако документация иногда расходится с действительностью. Во всяком случае, мой компилятор не соответствует документации. А именно:

• В документации сказано, что функция объявлена в модуле SYSTEM. Однако без подключения модуля MATH компилятор выдаёт ошибку. Из этого следует, что на самом деле функция объявлена в модуле MATH.
• В документации приведён синтаксис как для целых, так и для вещественных чисел. Однако на самом деле функция работает только с вещественными числами. При попытке использовать целые числа компилятор также выдаёт ошибку.
• Возможно, в более новых версиях эти проблемы уже исправлены. Но у меня было именно так (версия FPC 3.0.0).

program funcpower;

uses Math;        

var x, y, z : single;

begin
  x := 2;
  y := 3;
  z := Power(x, y);   //Z = X в степени Y
  WriteLn(z:0:2);  

  ReadLn;
end.

function AVPower(Base: Double; Expon: Double) : Double;
var m     : byte;
    i     : integer;
    Res   : Double;
begin
  m := 0;
  if Expon < 0 then m := 1              //Отрицательная степень
  else if Expon = 0 then m := 2         //Нулевая степень
       else m := 3;                     //Положительная степень
  if Base < 0 then m := 10 + m          //Отрицательное число
  else if Base = 0 then m := 20 + m     //Число равно 0
       else m := 30 + m;                //Положительное число
  case m of
  11  :   //Отрицательное число, отрицательная степень
    begin //Если Expon - не целое число, то получаются комплексные числа
      Res := 1 / Exp(Abs(Expon) * Ln(Abs(Base)));
      i := Round(Expon);
      if Odd(i) then Res := -1 * Res;
    end;
  12, 32  :   //Нулевая степень
    Res := 1;
  13  :   //Отрицательное число, положительная степень
    begin //Если Expon - не целое число, то получаются комплексные числа
      Res := Exp(Expon * Ln(Abs(Base)));
      i := Round(Expon);
      if Odd(i) then Res := -1 * Res;
    end;
  21..23  :   //Число равно нулю
    Res := 0;
  31  :       //Положительное число, отрицательная степень
    Res := 1 / Exp(Abs(Expon) * Ln(Base));
  33  :       //Положительное число, положительная степень
    Res := Exp(Expon * Ln(Base));
  end;     

  AVPower := Res;
end;

как записать в паскале степень.

Андрей Павлов

Ученик

(97),
закрыт

10 лет назад

Сафин Станислав

Профи

(873)


12 лет назад

В паскале есть возведение в квадрат y:=sqr(x); и возведение любого положительного числа в любую степень y:=exp(ln(x)*n); где x,n-любые целые или вещественные числа, x>0. y – вещественное число. Для всех других случаев нужно придумывать свои функции.