СРОЧНО! ИНФОРМАТИКА ЦИКЛЫ
Распечатать значения функции y=cos(x) для всех целых x от -5 до 5

Вопрос школьника по предмету Информатика

СРОЧНО! ИНФОРМАТИКА ЦИКЛЫ
Распечатать значения функции y=cos(x) для всех целых x от -5 до 5

Ответ учителя по предмету Информатика

var x:integer;

begin

for x:=-5 to 5 do writeln(‘cos(‘,x,’) = ‘,cos(x):6:4);

end.

Результат:

cos(-5) = 0.2837
cos(-4) = -0.6536
cos(-3) = -0.9900
cos(-2) = -0.4161
cos(-1) = 0.5403
cos(0) = 1.0000
cos(1) = 0.5403
cos(2) = -0.4161
cos(3) = -0.9900
cos(4) = -0.6536
cos(5) = 0.2837