Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal] Подпрограмы(функции)


Автор: Anyutka 8.1.2010, 08:48

Даны два натуральных числа a, b. Вычислить  (a!!-ab) / (a!!+ab)


Функция х!! Определяется следующим образом:
х!! = 1*3*5*...*х, если х нечетно,
х!! = 2*4*6*...*х, если х четно.

Автор: Sanaff 10.1.2010, 17:45
Ну сама функция наверно так:

Код

function XF(X: Integer): Real;
N: Integer;

if x mod 2 = 0 then 
begin

FOR N := 1 TO x/2 DO
  BEGIN
    XF:= XF*2*N;
  end;
else
begin
FOR N := 1 TO (x-1)/2 DO
  BEGIN
    XF:= XF*(2*N+1);
  end;
end;


дальше - просто))

Добавлено через 8 минут и 27 секунд
Ну сама функция наверно так:

Код

function XF(X: Integer): Real;
N: Integer;

if x mod 2 = 0 then 
begin

FOR N := 1 TO x/2 DO
  BEGIN
    XF:= XF*2*N;
  end;
else
begin
FOR N := 1 TO (x-1)/2 DO
  BEGIN
    XF:= XF*(2*N+1);
  end;
end;


дальше - просто))

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)