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

Может кто сможет решить?
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы