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

program zz1;

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

begin

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

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

begin

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

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

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

end;

end.