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


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

kostyuchkova12 kostyuchkova12    2   14.01.2021 12:23    0

Ответы
s1nedesports s1nedesports  13.02.2021 12:28

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы