Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вычисление произведения 
:(
    Опции темы
Frank
Дата 25.6.2006, 10:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.6.2006

Репутация: нет
Всего: нет
Здравствуйте!

Помогите решить задачу.
Дано натуральное число N. Вычислить произведение первых N сомножителей.
P=(2/3)*(4/5)*(6/7)*...*(2*N)/2*N+1

Заранее спасибо. 
PM MAIL   Вверх
Palladin
Дата 25.6.2006, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
Код

programm RooR;
Var
n,i:integer;
p:real;
begin
p:=1;

Write('vvedite n:');
Readln(n);

for i:=1 to n do 
begin
p:=p*((2*n)/(2*n+1));
end;

Write('P= ',p:4:4);
Readln;
end;


На вскидку не проверял, а вообще тебе в раздел помощи с такими вопросамиsmile  

Это сообщение отредактировал(а) RooR - 25.6.2006, 11:17


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
Frank
Дата 26.6.2006, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.6.2006

Репутация: нет
Всего: нет
Цитата

begin
p:=p*((2*n)/(2*n+1));
end;

Почему здесь после =p*. И с чего вы взяли, что p=1.
Где вот эта часть формулы 
Цитата

P=(2/3)*(4/5)*(6/7)*...*
 
PM MAIL   Вверх
comtat
Дата 26.6.2006, 13:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: нет
Всего: 71
Цитата
Где вот эта часть формулы Цитата
P=(2/3)*(4/5)*(6/7)*...*


Это батенька полиномом называется 
2/3 получится если положить N=1 по формуле ((2*n)/(2*n+1)); 


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
Palladin
Дата 26.6.2006, 19:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: нет
Всего: 17
А P=1 я сделал для того чтобы не получился ноль в первый раз, т.к. получиться такая штука: 

p:=0*((2*n)/(2*n+1));

или какаянить другая, я не проверял, но точно знаю что если переменную не обозначить, то она будет равна либо 0 либо хз какому числу! 


--------------------
Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0440 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.