Вычислить значения двух функций в n равномерно распределенных в диапазоне а≤x≤b точках.
a=1 b=3 n=12 F1(х)=√(e^(x) -1) F2(х)=x ln^2 x
(Паскаль)

Предыдущий
вопрос Следующий
вопрос

program FunctionValues;

var
a, b, n, i: Integer;
x, F1, F2: Real;

function Func1(x: Real): Real;
begin
Func1 := sqrt(exp(x) - 1);
end;

function Func2(x: Real): Real;
begin
Func2 := x ln(x) ln(x);
end;

begin
a := 1;
b := 3;
n := 12;

for i := 0 to n do
begin
x := a + i * (b - a) / n;
F1 := Func1(x);
F2 := Func2(x);

end;
end.