Question

составить на алгоритмическом языке PASCAL программу вычисления значений функции
ВАРИАНТ №3
данные указать произвольно

Answer 1

Ответ:

#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.