Вычисление последовательностей, помогите плиз Опции

[kess]

Это как это??
Обычно много чего можно... Но речь идет не о том, что обычно можно, а о том, что сейчас нужно!

Но это не единственная твоя ошибка..

Попытаюсь сделать первый проход по ошибкам (типа нулевое приближение ).

    { 1. Перед циклом весьма желательно обнулять переменную для суммы }
    for k:=1 to n-1 do  { 2. Тут нужен begin, видимо, иначе оператор If не в цикле.  И почему цикл до n-1? }
    a:=(exp(n*ln(2)))*(k*(k+1))/exp(n*Ln(n));  { 3. Расчет факториала неверный }
    If abs(a)>=E Then S:=S+a else S:=0;   { 4. Зачем обнуление суммы здесь?..  }
    { 5. А тут нужен end к begin'у (см. п.2 }

И вообще, нужен, конечно, не for, а repeat (или while).
Извини, просто любопытство: а чем тебе не понравился мой последний вариант? Что-то непонятно?

обнуление суммы... он и так выдаёт)

переменные обычно задаются по желанию...

[volvo]

kess, никогда не полагайся на то, что компилятор делает по своему желанию... Вот сейчас у тебя это "и так выдает", а я добавлю к твоей программе 3 строки, и у тебя будет выдаваться бред, причем каждый раз - разный... Вывод - всегда инициализируй переменную начальным значением.

[Lapp]

переменные обычно задаются по желанию...

Замечательно.
А почему бы тогда сразу ответ (переменная S) не задать по желанию?..
Кстати, скажи, что именно подсказывает твое желание для задания переменной n? Допустим, преп тебе задал точность e=0.0001. Итак - каково твое желание относительно n?
С нетерпением жду ответа..

[kess]

с факториалом.....

F:=1;
    for k:=1 to n do
    F:=F*k;
    a:=(exp(n*ln(2)))*F/exp(n*Ln(n));

???

[Lapp]

???

...

[kess]

...

в смысле так можно записать нахождение факториала?

F:=1;
    for k:=1 to n do
    F:=F*k;

[Lapp]

Да, годится.
Только я бы умножение на F поставил в конец формулы. А две степени объединил бы в одну..

Добавлено через 1 мин.
А как ты собираешься описать F? как целое или вещественное?

[kess]

Да, годится.
Только я бы умножение на F поставил в конец формулы. А две степени объединил бы в одну..

Добавлено через 1 мин.
А как ты собираешься описать F? как целое или вещественное?

целое

[Lapp]

целое

Вот это плохо. Тогда у тебя снова будет проблема - не можешь считать для n>15, даже при LongInt.
Делай real.

[kess]

Вот это плохо. Тогда у тебя снова будет проблема - не можешь считать для n>15, даже при LongInt.
Делай real.

оки, спс

[мисс_граффити]

Вот это плохо. Тогда у тебя снова будет проблема - не можешь считать для n>15, даже при LongInt.
Делай real.

тогда уж extended...