наити ошибку в коде

@N-Ban · Регистрация: 19.12.2010

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

Дано действительное число x. Вычислить:
(x-2)(x-4)(x-8)...(x-64)/(x-1)(x-3)(x-5)...(x-63)

Считает через раз а если читает то некоректно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program L3;
var
a,b,c,d:real;
i:integer;
begin
b:=1;
c:=1;
readln(a);
for i:=1 to 64 do
begin
if i mod 2=0 then b:=b*(a-i)
else c:=c*(a-i)
end;
d:=b/c;
writeln (d:8:3);
readln;
end.

поиск нечем неувенчался наидено несколько подобных задач но там та же ситуация

@Dekio · 19.12.2010, 17:51

Pascal
1
2
3
4
5
6
for i:=1 to 64 do
if odd(i) then
t:=t*(x-i)
else
k:=k*(x-i);
writeln(k/t:5:2);

@SuPeR XaKer · 19.12.2010, 17:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses
 CRT;
var
 a,b,c,d,pr:real;
 i:integer;
begin
b:=1;
c:=1;
readln(a);
for i:=1 to 32 do
begin
 b:=b*(a-(2*i));
 c:=c*(a-((2*i)-1));
 pr:=(b/c);
end;
writeln (pr);
readln;
end.

x-проверяй на чётность только.
Тогда вообще на целостность проверяй x

@Dekio · 19.12.2010, 18:00

задание придумали недалекие люди.
если х непарное, выходит деление на 0. если парное тогда результат 0

@N-Ban · 19.12.2010, 18:23 **[ТС]**

как бы пичально небыло но эти решения тоже неработают

@SuPeR XaKer · 19.12.2010, 18:38

(x-8)

Это ошибка?
не (x-6)?

@N-Ban · 19.12.2010, 18:44 **[ТС]**

ДА это ошибка опечатался я

Добавлено через 1 минуту
Дано действительное число x. Вычислить:
(x-2)(x-4)(x-6)...(x-64)/(x-1)(x-3)(x-5)...(x-63)

@SuPeR XaKer · 19.12.2010, 18:45

((2.3 - 2) * (2.3 - 4) * (2.3 - 6)) / ((2.3 - 1) * (2.3 - 3) * (2.3 - 5)) = 0.768009768

проверь не для 32 а 3.Где не верно?И а=2.3

@N-Ban · 19.12.2010, 18:57 **[ТС]**

упорно выдает 200 ошибку
я неспорю что в теории код правильныи
а вот на практике чтото нето О_о

@SuPeR XaKer · 19.12.2010, 21:08

разделителем дробной части является точка

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте 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 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	19.12.2010, 18:00
	задание придумали недалекие люди. если х непарное, выходит деление на 0. если парное тогда результат 0 0

@N-Ban 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 4
	19.12.2010, 18:23 [ТС]
	как бы пичально небыло но эти решения тоже неработают 0

@N-Ban 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 4
	19.12.2010, 18:44 [ТС]
	ДА это ошибка опечатался я Добавлено через 1 минуту Дано действительное число x. Вычислить: (x-2)(x-4)(x-6)...(x-64)/(x-1)(x-3)(x-5)...(x-63) 0

@N-Ban 0 / 0 / 0 Регистрация: 19.12.2010 Сообщений: 4
	19.12.2010, 18:57 [ТС]
	упорно выдает 200 ошибку я неспорю что в теории код правильныи а вот на практике чтото нето О_о 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,875
	19.12.2010, 21:08
	разделителем дробной части является точка 0