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

Модуль

unit Formula;
interface
function F(n:integer):extended;
implementation
function F(n:integer):extended;
function Fac(n:integer):longint;
begin
if n=1 then Fac:=1
else Fac:=n*Fac(n-1);
end;
begin
F:=1+2/fac(n);
end;
end.

Программа

uses crt,Formula;
var n:integer;
begin
clrscr;
Write('n=');readln(n);
write('(n!+2)/n!=',F(n):0:10);
readln
end.

Leave a Comment

− 5 = 1