Question

ПАСКАЛЬ: Помогите пожалуйста) Надо написать процедуру , которая вычисляет степень целого числа. Использовать для её вычисления значение выражения y:=a1*x^4+a2*x^3+a3*x^2+a4*x+a5

Answer 1

Function stepen(x:real; n:integer):real;
var i : integer;
   x_n:real;
begin
   x_n := 1;
   for i := 1 to n do
     x_n := x_n * x;
   stepen := x_n;
end;

Answer 2

Процедура вычисления степени целого числа в Pascal

Для вычисления степени целого числа в Pascal можно использовать следующую процедуру:

procedure CalculatePower(var y: Integer; x: Integer; a1: Integer; a2: Integer; a3: Integer; a4: Integer; a5: Integer);
begin
  y := a1 * x * x * x * x + a2 * x * x * x + a3 * x * x + a4 * x + a5;
end;

В данной процедуре используется переменная `y`, которая будет содержать результат вычисления степени. Параметры `x`,