Вычислить значение функции

@paul3 · Регистрация: 12.01.2020

Author24 — интернет-сервис помощи студентам

Вычислить значение функции от X (X1=1, X2=2)
Вот программа. при вводе 1 или 2 ответ выдает 0, в чем проблема не смог разобраться, помогите пж

Pascal

program qq;
 
var x,y:real;
 
var a,b:real;
 
begin
 
writeln('введите значение x');
 
read(x);
 
a:=(sin(power(abs(1-x),1/3))+exp(2-x))*(2-x);
 
b:=(ln(2+power(x,3))/ln(x)+sin(1/x-1)/cos(1/x-1));
 
y:=a/b;
 
writeln('y=',y);
 
end.

@paul3 · 28.01.2021, 01:31 **[ТС]**

вот фотока

@Puporev · 28.01.2021, 08:58

А что такое справа 1 и 2? Пхоже на интервал табуляции.
У Вас ошибка здесь
log₃(2+x³)=ln(2+x³)/ln(10), a не /ln(x)
Если не смотреть на это то так

Pascal

var a,b,x,y:real;
begin
write('введите значение x=');
readln(x);
if(x=0)or(2+x*x*x<=0)then write('Значение выражения не определено')
else
 begin
  a:=(sin(power(abs(1-x),1/3))+exp(2-x))*(2-x);
  b:=(ln(2+power(x,3))/ln(10)+sin(1/x-1)/cos(1/x-1));
  y:=a/b;
  write('y=',y);
 end;
end.

Если с табуляцией то например так

Pascal

var a,b,x,dx,y:real;
begin
x:=1;
dx:=0.1;
while x<2+dx/2 do
 begin
  a:=(sin(power(abs(1-x),1/3))+exp(2-x))*(2-x);
  b:=(ln(2+power(x,3))/ln(10)+sin(1/x-1)/cos(1/x-1));
  y:=a/b;
  writeln('x=',x:3:1,'  y=',y:6:3);
  x:=x+0.1;
 end;
end.

@paul3 0 / 0 / 0 Регистрация: 12.01.2020 Сообщений: 31
	28.01.2021, 01:31 [ТС]	2
	вот фотока Миниатюры 0

	28.01.2021, 08:58