А мне еще вот какой код предлагали ( не на пикабу )
var a,b,z,x,otv:double;
begin
readln(a,b);
x:=(a+b)/2;
z:=(1+x)/(1+(1+x)/x);
otv:=a*(x*x)-cos(b*x)+z/2;
writeln(otv);
end.
Насколько он правильный и правильный ли вообще?
var
a, b, x, z, alpha: real;
begin
write('введите A:'); readln(a);
write('введите B:'); readln(b);
x:=(a+b)/2;
if (1+x)/x = -1 then
writeln('Ошибка - значение X вне области определения для Z(x)')
else begin
z:=(1 + x)/(1+(1+x)/x)
alpha:=a*sqr(x)-cos(b*x)+z/2;
writeln('Значение функции альфа до 5-го знака - ', alpha:0:5);
end;
end.
ну пусть тогда она сама спишет ... и да, ни кода не берись помогать, коли сам не смыслишь ...
@topa310, возможно я ошибаюсь, но думаю что тут тебе из принципа никто не даст готового решения(а ты явно на это рассчитывал, да?).
А если серьезно - то задача несложная, минут 30 пляски с гуглом максимум, и то только если прогуливал математику - уж банальная тригонометрия у вас точно есть\была, раз программируете. Просто распиши подробно каждый шаг решения уравнения(без расчетов, ясен пень), и все перестанет выглядеть так страшно.
Ну и держи маленький бонусик, но не советую забивать туда такие уравнения целиком, от них ту систему плющить может иногда:
http://www.nigma.ru/index.php?t=math
Да что то плоховато гуглится, сама книжка автора Новичкова и Пылькина гуглится, а ее содержание - нет, кидает по разным магазинам
Экономисты будущие такое решают на 1 курсе, страшно представить, что же тогда у программистов

