Составить программу вычисления функции на паскале ABC.NET на заданных промежутках и с заданным шагом h.
используя var, const, writeln и тд, всё что нужно. чтобы было понятно
используя var, const, writeln и тд, всё что нужно. чтобы было понятно
More Questions From This User See All
Answers & Comments
Ответ:
--- 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.
Объяснение: