{$mode objfpc}
uses Math, Crt;
var
x: Double = 0;
c: array [0..4] of Double = (-1, -1, 0, 2, 1);
function F: Double;
var
i: Integer;
begin
result := 0;
for i := Length( c ) - 1 downto 0 do
result := result + Power(x, i) * c[i];
end;
begin
clrscr;
writeln(F:2:2);
readln;
end.
Вычисления. Модуль Math |