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

program zz1;

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

begin

x:=2;

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

begin

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

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

x:=x + 1; / / увеличиваем х на единицу

end;

end.