Вычислить выражение по заданной формуле

@Анютка98 · Регистрация: 30.09.2015

Составить программу с помощью процедур Procedure
Составить программу находящую значение следующего выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{n!}{m!(n-m)!}$

@JokeR.BY · 27.10.2015, 15:22

Pascal

procedure Process(const n, m: Integer);
var
    i: Integer;
    Result: Double;
begin
    if (n > m)
    then
    begin
        Result := 1;
        for i := m + 1 to n do
            Result := Result * i;
        for i := 1 to n - m do
            Result := Result / i;
        WriteLn('Result: ', Result:0:4);
    end
    else
        WriteLn('Error!!! n must be more than m!');
end;
var
    n, m: Integer;
begin
    Write('n='); ReadLn(n);
    Write('m='); ReadLn(m);
    Process(n, m);
end.

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
		1
	Вычислить выражение по заданной формуле 27.10.2015, 14:42. Показов 1228. Ответов 1 Метки нет (Все метки) Составить программу с помощью процедур Procedure Составить программу находящую значение следующего выражения $https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{n!}{m!(n-m)!}$ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вычислить выражение по заданной формуле

Решение