На отрезке [-3,14; 3,14] с шагом 0.2 протабулировать функцию: sin2 (x) + cos2 (x).

program zz1;

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

begin

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

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

begin

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

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

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

end;

end.