const
n = 10;
var
A: array[1..n] of real;
i: integer;
function pow(value, power: integer): integer;
var r,i: integer;
begin
r:=1;
for i := 1 to power do r:=r*value;
pow:=r;
end;
function p(y: integer; Ar: array of real): real;
var c: integer;
r: real;
begin
r:=0; { An*y^n + ... + A1*y^1 }
for c:=low(Ar) to high(Ar) do r:=r+A[c]*pow(y, c);
end;
function y(x: integer; Arr: array of real):real;
begin
y := p(x+1, Arr)+p(x, Arr);
end;
begin
for i:=1to n do A[i] := Random(1000)/100;
Writeln(y(1, A));
Writeln(y(5, A));
Writeln(y(7, A));
end.
|
