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

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

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт