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

Question

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

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</p>

 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.

---

Comments

Формулу писал кто-то безмозглый. Зачем определять при отрицательных значениях х формулу, содержащую логарифм, если логарифм определен только для положительных значений аргумента?

---

Во-первых, выбирайте выражения - это сервис, рассчитанный и на детей. Во-вторых, меня не надо звать, я прихожу сам.

---

извиняйте ,хотел вам спасибо сказать

---

Для "Спасибо" Вы уже кликнули сердечко, этого вполне достаточно.

---

а не могли бы вы еще одну такую задачку решить?

---

тут что то ошибку nan nan выдает

---

у вас там после 5.9 цифры а тут токо восемь стоит

---

Я же написал, что логарифм не существует для отрицательных х. Вы что, математику тоже не знаете, как и информатику? NaN - это Not a Number - не числовое значение. Потому что нельзя вычислить.