Дано действительные числа х и натуральное n=5..10. Вычислить функции Опции

[Luna]

Всем приветик! Помогите пожалуйста решить, все в одном проекте надо сделать:
Дано действительные числа х и натуральное n=5..10. Вычислить функции

Сообщение отредактировано: Luna - 28.10.2010 19:31

[TarasBer]

for i:= 2 to strtoint(edit7.Text) do
fact:=fact*(2*i-1);

Эта строчка не считает факториал.

for i:= 2 to strtoint(edit7.Text) do
fact:=fact*(2*i-1)*(2*i-2);

Проверь.

Кстати, x^n не надо каждый раз считать заново. Лучше завести отдельную переменную, назвать её xn, инициализировать как икс и умножать при каждой итерации (кроме первой) на x*x.
И икс тоже лучше сразу отдельно запомнить, а не писать каждый раз StrToFloat...

[Luna]

for i:= 2 to strtoint(edit7.Text) do
fact:=fact*(2*i-1);

Эта строчка не считает факториал.

for i:= 2 to strtoint(edit7.Text) do
fact:=fact*(2*i-1)*(2*i-2);

Проверь.

Нет, все равно не то. Понимаете, итог не должен быть отрицательным.. и не должен быть не понятный конец
( -1,38131925934753E-7 ), должно быть обычое положительное число, там что то к примеру 1,323489214

Сообщение отредактировано: Luna - 2.11.2010 18:41