Используя процедуру для вычисления степени числа, найти значение выражения: у= а4x^4+...

Question

Используя процедуру для вычисления степени числа, найти значение выражения:
у= а4x^4+ а3х^3+ a2х^2+ a1х + a0.
Коэффициенты а4, а3 а2, а1, а0 и х вводятся с клавиатуры.

Answer 1

Pascal:

function power(a: integer; n: integer): integer;
begin
  if n = 0 then 
    power := 1
  else if n mod 2 = 0 then
    power := sqr(power(a, n div 2))
  else
    power := power(a, n - 1) * a;    
end;

var
  a: array[0 .. 4] of integer;
  x, i, res: integer;
begin
  res := 0;
  for i := 4 downto 0 do
    read(a[i]);
  readln(x);
  for i := 4 downto 0 do
    inc(res, a[i] * power(x, i));
  writeln(res)
end.