Question

Составить программу вычисления функции на паскале АВС.NET на заданных промежутках и с заданным шагом h.

$f= \frac{sinx+cosx}{1+x^2}$

x∈[0,π]
h=π/8

Используя var, const, writeln и т.д.

Answer 1

Ответ:

• begin
• var f: real -> real := x -> (sin(x)+cos(x))/(1+sqr(x));
• PartitionPoints(0, Pi, 8).Tabulate(x -> f(x))
• .ForEach(x->writeln('x:',x.Item1:7:3,'    y:',x.Item2:7:3));
• end.

или без косметики:

• begin
• PartitionPoints(0,Pi,8).Tabulate(x->(sin(x)+cos(x))/(1+sqr(x))).Print
• end.

Примеры работ: