Как в паскале решить уравнение
Поделиться
Введите адрес электронной почты, который вы использовали при регистрации. Вы получите ссылку на сброс пароля
Напишите причину обращения
var a,b,c,d,e,f,x:real;
begin
writeln(‘Введите a,x’);
readln(a,x);
if a*x=-3 then write(‘c не определено, деление на 0’)
else
begin
b:=x/sqr(3+a*x)+3*x;
d:=x*sin(x)/3-1;
if cos(x)<0 then
write('c не определено, отрицательное число в вещественной степени')
else if cos(x)=0 then write('c не определено, деление на 0')
else
begin
e:=exp(ln(cos(x))*x);
f:=d*d*d/e;
c:=b*f+a+2;
write('c=',c:0:3);
end;
end;
end.
Вот пример решения