Дано действительные числа х и натуральное 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...