Question

Может кто сможет решить?

Answer 1

Const x0=0.1; xk=1; dx=0.1;
var x,y,b :real; i,n:integer;
begin
b:=1.5;
writeln('ТАБЛИЦА ФУНКЦИИ Y(X)');
writeln('   X      y');
n:=round((xk-x0)/dx)+1;
x:=x0-dx;
for i:=1 to n do
 begin
 x:=x+dx;
 if b*x<1
  then y:=b*x-ln(b*x)/ln(10)
  else if b*x=1 then y:=1 else y:=b*x+ln(b*x)/ln(10);
 writeln(x:5:1,y:8:3)
 end;
end.

Результат:
ТАБЛИЦА ФУНКЦИИ Y(X)
   X      y
  0.1   0.974
  0.2   0.823
  0.3   0.797
  0.4   0.822
  0.5   0.875
  0.6   0.946
  0.7   1.071
  0.8   1.279
  0.9   1.480
  1.0   1.676