Question

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

используя var, const, writeln и тд, всё что нужно. чтобы было понятно

Answer 1

Ответ:

--- PascalABC.NET 3.6.2 ---

#1

begin

 var func1: real -> real := x -> (1 - (1/x))*e**-x;  

 var func2: real -> real := x -> (x*(e**x))/(x+1)**2;

 var x := ReadReal();

 Println(x <= 0.5 ? func2(x) : func1(x));

end.

#2

begin

 var func: real -> real := x -> sqrt(x)*arctan(x);

 PartitionPoints(2, 5, 15).Tabulate(x -> func(x)).Print;

end.

Объяснение: