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

Если я правильно понял и функция sin в квадрате и cos в квадрате топо идее она будет равна 1 в любом случаеvarx,y: real; beginx: =-3,14; while x <= 3,14 do beginy: =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 тогдаvarx,y: real; beginx: =-3,14; while x <= 3,14 do beginy: =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