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

если я правильно понял и функция sin в квадрате и cos в квадрате то по идее она будет равна 1 в любом случае var x,y:real; begin x:=-3.14; while x<=3.14 do  begin y:=sin(x)*sin(x)+cos(x)*cos(x); writeln(x:8:2,y:8:2); x:=x+0.2; end; end. вот результат выполнения -3.14 1.00 -2.94 1.00 -2.74 1.00 -2.54 1.00 -2.34 1.00 -2.14 1.00 -1.94 1.00 -1.74 1.00 -1.54 1.00 -1.34 1.00 -1.14 1.00 -0.94 1.00 -0.74 1.00 -0.54 1.00 -0.34 1.00 -0.14 1.00 0.06 1.00 0.26 1.00 0.46 1.00 0.66 1.00 0.86 1.00 1.06 1.00 1.26 1.00 1.46 1.00 1.66 1.00 1.86 1.00 2.06 1.00 2.26 1.00 2.46 1.00 2.66 1.00 2.86 1.00 3.06 1.00 если брать 2x тогда var x,y:real; begin x:=-3.14; while x<=3.14 do  begin y:=sin(2*x)+cos(2*x); writeln(x:8:2,y:8:2); x:=x+0.2; end; end. и результат -3.14 1.00 -2.94 1.31 -2.74 1.41 -2.54 1.29 -2.34 0.97 -2.14 0.49 -1.94 -0.07 -1.74 -0.61 -1.54 -1.06 -1.34 -1.34 -1.14 -1.41 -0.94 -1.26 -0.74 -0.91 -0.54 -0.41 -0.34 0.15 -0.14 0.68 0.06 1.11 0.26 1.36 0.46 1.40 0.66 1.22 0.86 0.84 1.06 0.33 1.26 -0.23 1.46 -0.76 1.66 -1.16 1.86 -1.38 2.06 -1.39 2.26 -1.17 2.46 -0.77 2.66 -0.25 2.86 0.31 3.06 0.82