[Kosten]

Помогите с кодом для определения СУммы и произведения числового ряда 1+2+3+4+....n)
ну тоесть 3 едита в первый вводим n, во 2ой выводится сумма в 3ий произведение...
сам че-то накалякал вроде, но не получается ;(

[lmikle]

Код:

procedure CalcVals(N : Integer; var ASum, AMul : Integer);
var
  I : Integer;
begin
  ASum := 0;
  AMul := 1;
  For I := 1 To N Do
    Begin
       ASum  := ASum + I;
       AMul := AMul * I;
    End;
end;

Работу с интерфейсом (едитами) сам напишешь.
И большие N не задавай - факториал (произведение) расчет очень быстро.

[Kosten]

Спасибо за первое....
пипец, думал сделав это смогу сделать другое, но там бред вообще...попытался реализовать сам, но не смог чисто из-за математики ))
Помогите пожалуйста с кодом для нахождения:
Σ(внизу буквы a=4 сверху 6)*Π(внизу буквы b=-4 сверху -6)*на модуль |(a+b)/a|