Написать программку,вычисляющую значение функции: ln(x)*sin(x)-46, если xamp;lt;-6;

PascalABC.NET 3.4.2, сборка 1797 от 22.09.2018

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

1

begin

 var x := ReadReal('x=');

 var y: real;

 if x lt; -6 then y := Ln(x) * Sin(x) - 46

 else

 if x lt; -4 then y := 51 / Exp(x) * 57 / x

 else y := x + Cos(2 * x);

 Println('y=', y)

end.

2

begin

 var (a, b, h) := (-8.0, -2.0, 0.3);

 var x := a;

 var y: real;

 while x lt;= b + h / 2 do

 begin

   if x lt; -6 then y := Ln(x) * Sin(x) - 46

   else

   if x lt; -4 then y := 51 / Exp(x) * 57 / x

   else y := x + Cos(2 * x);

   Writeln(x:4:1, y:20:9);

   x += h

 end

end.