** отрезке [-3,14;3,14] с шагом 0,2 протабулировать функцию: sin^2(x) + cos^2(x)

Question

На отрезке [-3,14;3,14] с шагом 0,2 протабулировать функцию:
sin^2(x) + cos^2(x)

Answer 1

Begin
var x:=-3.14;
repeat
writeln ('x=', x, '; y=', sqr(sin(x))+sqr (cos(x)));
x:=x+0.2;
until x>3.14
end.