Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.01.2008, 10:01   #1
Raptor5
Пользователь
 
Регистрация: 13.01.2008
Сообщений: 32
По умолчанию Помогите плиз с задачей

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

(1/a)+(1/a*(a+1))+....+(1/a*(a+1)...(a+n))
Raptor5 вне форума Ответить с цитированием
Старый 21.01.2008, 10:06   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Чет формула, вроде, кривая какая то... Ну може типа такого:
Код:
...
For i:=1 to n do result:=result+(1/a*(a+i));
...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.01.2008, 10:15   #3
Raptor5
Пользователь
 
Регистрация: 13.01.2008
Сообщений: 32
По умолчанию

а result что означает?
Raptor5 вне форума Ответить с цитированием
Старый 21.01.2008, 10:23   #4
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Может типа этого:
Код:
result:=0;
s:=1;
for i:=0 to n
begin
s:=s/(a+i);
result:=result+s;
end;
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана

Последний раз редактировалось Plague; 21.01.2008 в 10:27.
Plague вне форума Ответить с цитированием
Старый 21.01.2008, 10:38   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Сообщение от Raptor5 Посмотреть сообщение
а result что означает?
Это переменка, в которую помесчаеться сумма, собсно это результат.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачей на С++ Nemisoi Помощь студентам 1 22.04.2008 22:09
Помогите плиз с задачей Raptor5 Помощь студентам 3 28.01.2008 09:41
Помогите плиз срочно с задачей Raptor5 Паскаль, Turbo Pascal, PascalABC.NET 13 27.01.2008 17:18