Разработать рекурсивный алгоритм и программу решения задачи, в которой вычислить : f(n)=(n+2)!/(n+4)!. Исходные данные вводятся с клавиатуры. Программа должна быть реализована с использованием пользовательского библиотечного модуля — Pascal(Паскаль)

Модуль

unit factorial;
interface
function Fac(n:longint):longint;
function F(n:longint):real;
implementation
function Fac(n:longint):longint;{нахождение факториала}
begin
if n=1 then Fac:=1
else Fac:=n*Fac(n-1);
end;
function F(n:longint):real;{вычисление}
begin
F:=Fac(n+2)/(Fac(n+4));
end;
end.

Программа

uses crt,factorial;
var n:longint;
begin
clrscr;
repeat
write('Введите число от -1 до 8 n=');
{в Паскале можно без всяких хитростей посчитать факториал от 1 до 12, с учетом формулы от -1 до 8 }
readln(n);
until(n>=-1)and(n<=8);
write('F=',F(n):0:5);
readln;
end.

Leave a Comment

+ 82 = 89