Найти произведение членов ряда

@Dmitry_Rublevsk · Регистрация: 01.12.2013

Студворк — интернет-сервис помощи студентам

Задание - Найти произведение.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\prod_{i=1}^{N} \frac{i+2}{4}$

Прошу помочь найти ошибку. Мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var p,s,n:real;
    i:integer;
    begin
    n := StrToInt(Edit1.Text);
    p:=1;
    s:= 0;
     i := 1;
while i <= n do
    begin
    p:=p*(I+1)/4;
    Inc(i);
    end;
Label2.Caption:=FloatToStr(p);
end;

@volvo · 15.12.2013, 15:08

В задании же написано (i+2), а в программе, почему-то, (i+1)

@Dmitry_Rublevsk · 15.12.2013, 15:24 **[ТС]**

Точно. Но всё равно неверно получается. Я правильно понимаю? Если задаю n=1, то результат 0.75, если n=2, то результат 0.56, затем n=3, то результат 0,42. Где я ошибся?

@volvo · 15.12.2013, 15:29

Без понятия. Заменил в твоем коде 1 на 2, при n=1 и n=2 получаю 0.75, при n=3 получаю 0.9375 (оно же 15/16, как и положено). Где я ошибся?

@Dmitry_Rublevsk · 15.12.2013, 15:41 **[ТС]**

Должно ведь получаться при n=1, 0.75, при n=2, 0.56, при n=3, 0,42. Но у меня точно как у вас получается. Помогите пожалуйста решить

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
var p,n:real;
    i:integer;
    begin
    n := StrToInt(Edit1.Text);
    p:=1;
    i := 1;
while i <= n do
    begin
    p:=p*(I+2)/4;
    Inc(i);
    end;
Label2.Caption:=FloatToStr(p);
end;
 
end.

@volvo · 15.12.2013, 16:20

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

Должно ведь получаться при n=1, 0.75, при n=2, 0.56, при n=3, 0,42

Да почему?
n = 1: $https://www.cyberforum.ru/cgi-bin/latex.cgi?p=\frac{1+2}{4}=0.75$
n = 2: $https://www.cyberforum.ru/cgi-bin/latex.cgi?p=\frac{1+2}{4}*\frac{2+2}{4}=\frac{3}{4}*1=0.75$
n = 3: $https://www.cyberforum.ru/cgi-bin/latex.cgi?p=\frac{1+2}{4}*\frac{2+2}{4}*\frac{3+2}{4}=\frac{3}{4}*1*\frac{5}{4}=\frac{15}{16}=0.9375$

@Dmitry_Rublevsk · 15.12.2013, 16:27 **[ТС]**

Значит I большое меняется, я думал, что i=I. А получается, что N=I в формуле. Если так, то всё верно) Спасибо!!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@volvo Супер-модератор 33421 / 21527 / 8240 Регистрация: 22.10.2011 Сообщений: 36,935 Записей в блоге: 12
	15.12.2013, 15:08
	В задании же написано (i+2), а в программе, почему-то, (i+1) 0

@Dmitry_Rublevsk 0 / 0 / 0 Регистрация: 01.12.2013 Сообщений: 66
	15.12.2013, 15:24 [ТС]
	Точно. Но всё равно неверно получается. Я правильно понимаю? Если задаю n=1, то результат 0.75, если n=2, то результат 0.56, затем n=3, то результат 0,42. Где я ошибся? 0

@volvo Супер-модератор 33421 / 21527 / 8240 Регистрация: 22.10.2011 Сообщений: 36,935 Записей в блоге: 12
	15.12.2013, 15:29
	Без понятия. Заменил в твоем коде 1 на 2, при n=1 и n=2 получаю 0.75, при n=3 получаю 0.9375 (оно же 15/16, как и положено). Где я ошибся? 0

@Dmitry_Rublevsk 0 / 0 / 0 Регистрация: 01.12.2013 Сообщений: 66
	15.12.2013, 16:27 [ТС]
	Значит I большое меняется, я думал, что i=I. А получается, что N=I в формуле. Если так, то всё верно) Спасибо!! 0

Опции темы