Составьте программу, которая вычисляет значение y, для любого действительного x и каких - либо целых а и b: (паскаль)
Приложения:
![](https://st.uroker.com/files/ee8/ee82ba09f4885517d0e9c4cf1314458c.png)
123Dinamo:
Извините, но я всего лишь 8 класс, мои темы не подходят к вашим
Ответы
Ответ дал:
1
Ответ:
--- PascalABC.NET 3.6.2 ---
begin
var func1: (real, real, real) -> real := (x, a, b) -> ln( abs( (a - sqrt(abs(b))*(3.14159 - (a/ (b + ((x**2)/2) )) ) ) ));
var func2: (real, real, real) -> real := (x, a, b) -> x - ((x**2)/a)+ ((x**3)/b);
var (a, b, x) := ReadInteger3('Введите значения a, b, x в соответственном порядке');
println( x <= 0 ? func1(x, a, b) : func2(x, a, b));
end.
Делает вид что работает. Правильность вычислений я, уж извините, проверять не стал.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
6 лет назад
7 лет назад