вычисление выражений (pascal)

[вкусняшка]

вычислить z=n/mk,где
n=1*2*3...n(произведение всех чисел от 1 до n)
m=1*2*3...m(произведение всех чисел от 1 до m)
k=1*2*3...k(произведение всех чисел от 1 до k)
плииззззз..........кто нить!!!

[Sazary]

вот функция, которая считает произведение от 1 до a:

function proiz(a : integer) : integer;
 var rez : integer;
 begin
 rez := 1;
 while a>1 do
  begin
  rez := rez * a;
  dec(a);
  end;
 proiz := rez;
 end;

-
читаете n,m,k, а потом считаете z:

z := proiz(n)/(proiz(m)*proiz(k));

[AndrzejX]

Опечатка: функция называется proiz, а результат записывается в переменную proizv. И вообще, лучше пользоваться встроенной переменной Result - результат, возвращаемый функцией

[valetik]

Самый интерес в этой задаче - нахождение аргументов n, m и k. А перемножить и поделить их уже труда не составит. Так вот эти самые аргументы n, m и k есть не что иное как факториалы.

В свою очередь предлагаю другой вариант функции по нахождению факториала. В основе ее работы лежит принцип рекурсии (вызов функции самой из себя).

function fact(MinValue, MaxValue: Integer) : Integer;
begin
   If MinValue=MaxValue then
   begin
      fact:=MinValue;
      exit;
   end;

   fact:=MinValue*fact(MinValue+1, MaxValue);

end;

Соот-но вызов fact(1,10) вычисляет 10 факториал. В нашем случае там будут фигурировать n, m и k.

[вкусняшка]

вот спасибочки