Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с...

Question

Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем. Работу выполнить на Паскале. π F = tg x + √1 + | x - 2 | , при x < 0 F = ( a^2 + x ) + cos π , при x = 0, a - const F = x^3 * sin π * x , при x > 0

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x0, xk, h) := ReadReal3('Введите x0, xk, h:');

 var a := 0.4532; // const, можно заменить

 for var i := 0 to Trunc((xk - x0) / h) do

 begin

   var x := x0 + i * h;

   var y := x < 0 ? Tan(x) + Sqrt(1 + Abs(x - 2)) :

   x = 0 ? a * a + x + Cos(Pi) :

   x ** 3 * Sin(Pi * x);

   Writeln(x:20:15, y:20:15)

 end

end.