0

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

cos(x,k)=cos(cos(..cos(x)..))(k косинусов)

1 ответ 1

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;
1
  • Т.е. функция cos применяется только один раз, а рекурсия сильно озабочена уменьшением k...
    – alexlz
    Commented 25 дек. 2014 в 4:00

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.