Рекурсия на pascal

Рейтинг: 0Ответов: 1Опубликовано: 24.12.2014

Помогите рекурсивно описать функцию cos(x,k) на pascal, где

cos(x,k)=cos(cos(..cos(x)..))(k косинусов)
pascal рекурсия
Источник: Stack Overflow на русском

Ответы

▲ 2Принят
function cosk(x: Real; k: LongInt): Real;
begin
  if k <= 0 then begin
    cosk := cos(x);
  end else
    cosk := cosk(x, k - 1);
end;