на отрезке [0,4; 1] с шагом 0,1 протабулировать функцию 2xsin-cosx

const xn=0.4; xk=1; h=0.1;var x,y:real; i,n:integer;beginx:=xn-h;n:=round((xk-xn)/h)+1;writeln(' x     y');for i:=1 to n do begin x:=x+h; y:=2*sin(x)-cos(x); writeln(x:4:1,y:7:3); end;end.Результат: x     y 0.4 -0.142 0.5  0.081 0.6  0.304 0.7  0.524 0.8  0.738 0.9  0.945 1.0  1.143