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<br> 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