Помогите пожалуйста. Необходимо вычислить в Pascal

yartttrtrtrtert · 25.05.2014, 14:36

При решении использовал функцию power, но преподаватель просит использовать exp. Буду искренне благодарен Вам)

Дано натуральное число n. Вычислить :

Vladimir_S · 25.05.2014, 20:04

Цитата:

Сообщение от yartttrtrtrtert

При решении использовал функцию power, но преподаватель просит использовать exp. Буду искренне благодарен Вам)

Дорогой студент, передайте, пожалуйста, Вашему преподавателю от моего имени, что он (преподаватель) - безграмотный неуч и шарлатан. Потому как использование функции Exp в данном случае невозможно, поскольку выражение Exp((k+1)*Ln(-1)), которое он, скорее всего, подразумевает - бессмысленно: логарифма от отрицательно числа не бывает.
Задача может быть легко решена вообще без использования возведения в степень. Например, так:

Код:

Sum:=1/2;
a:=1/2;
for k:=2 to N do
 begin
  a:=-a*(k-1)/(k+1);
  Sum:=Sum+a;
 end;

25.05.2014, 14:36	#1 (permalink)
yartttrtrtrtert Новичок Регистрация: 25.05.2014 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста. Необходимо вычислить в Pascal При решении использовал функцию power, но преподаватель просит использовать exp. Буду искренне благодарен Вам) Дано натуральное число n. Вычислить : Изображения

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070