На отрезке [-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