Запись функции в Паскале

[lezvion]

Здравствуйте, задали написать и решить функцию в паскале. Функции приведены в картинках. Не знаю каким образом можно их всунуть в Паскаль. С программой думаю справлюсь. Спасибо.

[Sibedir]

Есть там и ln и cos. Только если X вводится в градусах, его надо в радианы перевести.
∑ считается с помощью цикла repeat. А при каждом новом ветке цикла проверяем значение нового слогаемого и сравниваем его с точностью вычисления e

  repeat
    ...
  until Abs(slog) < e/2;

Можно через for. Тогда колличество циклов n вычисляется как
n = 1 / (e/2) = 2/e

Почему именно 1 делим на e/2?
Потому что |(-1)^(k-1) * cos(kx)| всегда <= 1.

Почему е делим именно на 2?
Потому что следующее слогаемое всегда меньше предыдущего по модулю, а из-за (-1)^(k-1) всегда будет прыгать то в + то в -. Следовательно, результат, выдаваемый программой, будет равен реальному результату функции округленному до e.