Mail

В этот день много лет назад...
18 апреля. В 1927 году (97 лет назад) - Ленинградский комитет по делам изобретений патентует прибор искусственного дыхания.

Turbo Pascal Documentation

Функция Cos

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

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