подпрограммы в турбо паскале

[miksed]

Даны два натуральных числа a, b. Вычислить (a!!-a*b)/(a!!+a*b) .
Определить функцию х!! следующим образом: х!! = 1*3*5*...*х, если х нечетно, х!! = 2*4*6*...*х, если х четно.
буду очень благодарна помощи

[Aleksandr H.]

function x(n):real;
var i,s:real;
begin
s :=1;
if odd(n) then i:=1 else i:=2;
while i<=n do begin s:=s*i; inc(i,2) end
x:=s;
end;

[Serge_Bliznykov]

ну или так:

function xff(n : integer):real;
var s:real;
 i:integer;
begin
  xff :=0;
  if n<1 then Exit;
  s:=1;
  i:=n;
  while i>1 do begin s:=s*i; dec(i,2) end;
  xff:=s;
end;

[miksed]

Сообщение от Serge_Bliznykov

ну или так:

function xff(n : integer):real;
var s:real;
 i:integer;
begin
  xff :=0;
  if n<1 then Exit;
  s:=1;
  i:=n;
  while i>1 do begin s:=s*i; dec(i,2) end;
  xff:=s;
end;

а можно весь код?

[min@y™]

а можно весь код?

Канешна можно!
Чо ты стесняешься? Вываливай сразу все лабы за 2 семестра, не скромничай!