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

program zz1;

var x, y:real; // задаем переменные не целого типа

begin

x:=0.4; // задаем начальное значение для переменной х

while x lt;= 1 do // организуем цикл, в котором переберем все числа от начального значения х до единицы

begin

y:=2 * sin(x) - cos(x); // вычисляем значение функции у по заданной формуле

writeln( для , x , вычисленное значение функции y = , y:5:2); // выводим ответ в столбец в формате 5 символов для всего числа и два знака после точки

x:=x + 0.1; // увеличиваем х на шаг

end;

end.