Рекурсия и геом. прогрессия (C)

[SeregaF1]

Даны первый член и знаменатель геометрической прогрессии. Описать рекурсивную функцию вычисления n-го члена прогрессии. Вычислить значение функции для различных n.

[anGeee]

Та пожалуйста:

foo :: Int -> Int -> Int -> Int
foo f _ 1 = f
foo f m n = foo (f * m) m (n - 1)

[Bearw08]

  
  int b1,  //1 Элемент
        q,   //Знаменатель
        n;  //Номер искомого Элемента


int Geom(int x)   //Функции передается номер искомого элемента
{
    if (x == 1) return b1 ;
    else
    return Geom(x-1) * q;
}

Единственное надо подправить, что б работала с убывающей геом-ой последовательностью (при 0 < q < 1) - но это и сам сделаешь

[SeregaF1]

Спасибки всем!