Mail

В этот день много лет назад...
29 января. В 1978 году (48 лет назад) - В Швеции запрещается использование аэрозольных спреев, наносящих ущерб окружающей среде.

Turbo Pascal Documentation

Функция Cos

     Функция: Возвращает косинус аргумента.
      Описание: Cos(x : real)
     Тип результата: Вещественный (real).
     Примечания: Параметр x является выражением вещественно-
го  типа.  Результатом  будет косинус x. Предполагается, что
это значение задает угол в радианах.
     Пример:

var
  r : real;
begin
  r := Cos(Pi);
end.