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

Const xn=0.4; xk=1; h=0.1;

var x, y:real; i, n:integer;

begin

x:=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