#PascalABC.NET 3.6
const a = 1.875;
const d = 13.25;
function Range(start: real; stop: real; step: real): sequence of real;
begin
var curr := start;
repeat
yield curr;
curr += step
end
until curr > stop;
end;
var func: real -> real := x -> (x*x - power(a, 5.5) - 1.8) * power(d, 3);
Range(0.1, 1, 0.15).Tabulate(func).Select(x -> $'x:{x.Item1}, f(x):{x.Item2}{NewLine}').PrintLn;
end.
#PascalABC.NET 3.6
const a = 1.875;
const d = 13.25;
function Range(start: real; stop: real; step: real): sequence of real;
begin
var curr := start;
repeat
begin
yield curr;
curr += step
end
until curr > stop;
end;
begin
var func: real -> real := x -> (x*x - power(a, 5.5) - 1.8) * power(d, 3);
Range(0.1, 1, 0.15).Tabulate(func).Select(x -> $'x:{x.Item1}, f(x):{x.Item2}{NewLine}').PrintLn;
end.