Простейшие циклы.

[kazzz]

Как подступиться к решению?
В какой последовательности писать код?
Как вычислить факториал?
В Delphi.
Желательно ООП...

[Hollander]

http://www.programmersforum.ru/showt...EE%F0%E8%E0%EB

[BoozZzilla]

факториал:

function factorial(n: integer): integer;
begin
if n=o then Result:=1
else Result:=factorial(n);
end;

А вот скажите мне пожалуйста, можно так же степень посчитать?

function power(x,n: integer): integer;
begin
if n=o then Result:=1
else Result:=x*power(x,n-1);
end;

так сработает?
что то где то читал, а вкурить не могу. Вроде так же работает?

upd - тут циклы
а я мимо пропустил как то
вопрос актуален

[Serge_Bliznykov]

при решении подобных задач удобно (когда это возможно, разумеется),
вывести формулу зависимости N члена последовательности от N-1

в данном случае очевидно,
что если есть Tn-1 тогда Tn можно найти T(n) = (-1) * T(n-1) * X * X / ((n*2-2)*(2*n-1))

(для этого достаточно N-й элемент разделить на N-1 - чтобы выделить, на что надо умножать N-1 й элемент, чтобы получить N-й)

первый член последовательности равен X
следовательно:

  T := X;
  S := T;
  for i:=2 to 13 do begin
     T := T * (-1) * X * X / ((2*i-2)*(2*i-1));
     S := S + T;
  end;

[Вадим Мошев]

BoozZzilla

function factorial(n: integer): integer;
begin
if n=o then Result:=1
else Result:=factorial(n);
end;

Неправильно.
1. переменная "o" не объявлена. Разумеется, вместо этой буквы следует писать 0 (нуль).
2. В таком виде, у вас будет иметь место бесконечная рекурсия,результат вы никогда не получите, а через некоторое время произойдёт переполнение стека.

Мой вариант по поводу факториала:

function factorial(n: integer): integer;
begin
if n in [0,1] then factorial:=1
                else factorial:=n*factorial(n-1);
end;

но сдаётся мне, автор темы ещё не проходил подпрограммы и множества...

[BoozZzilla]

я опечатался
ну с нулём то степень ведь тоже отработает?

[kazzz]

Сообщение от Вадим Мошев

но сдаётся мне, автор темы ещё не проходил подпрограммы и множества...

Я только учусь Благодарю за ответы, буду разбираться...