Задачка, Если не угадал с разделом, подкорректируйте, плз Опции

[Олири]

а pow это x в степень i ввозводит..а через exp можно? и я не поняла...надо использовать от 0 до m изменение i ... куда это впихнуть? а то мне препод сказала что эт тож важно....я ща пересчитала....не ..нифига неправильно....

Сообщение отредактировал Олири - Dec 29 2010, 16:34

[iMagus]

а pow это x в степень i ввозводит..а через exp можно? и я не поняла...надо использовать от 0 до m изменение i ... куда это впихнуть? а то опять неправильно считает..

pow возводит икс в степень и. exp делает нечто иное. В твоем Паскале нет функции pow? Тогда пиши вместо pow:
exp( m * ln(x) ), икс должен быть положительным.

Вот как я написал, должно работать правильно. Разве что я не учел какую-то особенность Паскаля (Паскаля у меня нет - проверить сам не могу).

Вот так это выглядит у меня на Питоне и все работает (проверено)

Раскрывающийся текст

Код

i = 1
ci = ci1 = 1
sum = 1
while i <= m:
  ci1 = ci*(m-i+1)/(i+1-1)
  sum = sum + ci1*(x**i)
  ci = ci1
  i = i + 1

[Олири]

я с exp так и сделала...считает неправильно...когда вводишь x=0 m=1 ответ должен быть 1 а не 2..

[iMagus]

Логарифм ноля проблематично посчитать, да. Введи доп. условие в начале - если х=0, то ответ сразу =1.

[Олири]

я не пр логарифм.... накопление суммы произведения должно быть от 0 до m... сim*xim

[Алексиусдворф]

как будто "Теорию большого взрыва" читаю...

[Олири]

как будто "Теорию большого взрыва" читаю...

такие умные все на подкол))можт напишешь задачу лучше чтоб правильно считалось))

[iMagus]

я не пр логарифм.... накопление суммы произведения должно быть от 0 до m... сim*xim

Сумма так и считается. А 2 вместо 1 получается потому, что функция ln(0) возвращает ноль (и это неверно! так как аргументом логарифма может быть только число больше ноля), а exp(0) = 1.

Чтобы этого не происходило, можно переписать функцию так:

Код

function calc_binom_series(x: integer, m: integer): integer;
var
  sum: real;
  ci, ci1: real;
  i: integer;
begin
if x == 0 then
  begin
  calc_binom_series := 1
  exit;
  end;
i := 1;
ci := 1;
sum := 1;
while i <= m do
  begin
    ci1 := ci*(m-i+1.0)/(i+1.0-1.0);
    sum := sum + ci1*exp(m*ln(x));
    ci := ci1;
    i := i + 1;
  end;
calc_binom_series := sum;
end;

Сообщение отредактировал iMagus - Dec 29 2010, 19:27

[Олири]

я ввела всё это..всё равно 2 вместо 1(( и exp(0) не от нуля... а при x=0, exp(m)

Сообщение отредактировал Олири - Dec 29 2010, 19:44

[iMagus]

Это невозможно.

Или возможно... тогда надо писать не
if x == 0 then
а
if x = 0 then

Ты паскаль должна знать лучше меня

и exp(0) не от нуля... а при x=0, exp(m)

m*0 = 0

[Олири]

Это невозможно.

Или возможно... тогда надо писать не
if x == 0 then
а
if x = 0 then

Ты паскаль должна знать лучше меня



m*0 = 0

m*1=m)) там бином то (1+x) в степени m..и ясен перец что я так пписала -if x=0...

[iMagus]

.и ясен перец что я так пписала -if x=0...

Значит, как только на входе х=0, так сразу на выходе должно быть 1. Иное невозможно, если только нет ошибок в синтаксисе.

[Олири]

Значит, как только на входе х=0, так сразу на выходе должно быть 1. Иное невозможно, если только нет ошибок в синтаксисе.

вот..пипец..

да он всё равно считает неправильно .. при подстановке x=2 m=3 должно быть 27 а он 25 выдаёт..

[iMagus]

С округлением, видать, проблемы. Поменяй тип для m на real.

[Олири]

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

[iMagus]

Если у тебя условие "if x = 0 then" не работает, то все возможно. Предложенный же мною алгоритм я для проверки реализовал на Питоне - все работает как часы.

[Олири]

да если x=0 всё равно ещё от m зависит...

[iMagus]

да если x=0 всё равно ещё от m зависит...

(1 + 0) абсолютно в любой степени будет 1.

[Lanser]

[Олири]

странно почему не считает...да и ладно..её наверно сама препод тока знает как делать