Question

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

Answer 1

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