Question

Написать программу,вычисляющую значение функции: ln(x)*sin(x)-46, если x<-6; (51/e^x)*(57/x), если -6<=x<-4; x+cos(2*x), если -4<=x
В паскале

Answer 1

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

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

№1

begin

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

 var y: real;

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

 else

 if x < -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 <= b + h / 2 do

 begin

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

   else

   if x < -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.