Вычисление факториала с помощью рекурсии

@ProFiTM · Регистрация: 28.10.2011

Author24 — интернет-сервис помощи студентам

Составление и отладка программы с внешними модулями.
Написать внешний модуль для вычисления с применением рекурсии факториала n!. С его помощью в основной программе вычислить выражение b:=k!+a! и выдать на экран. Переменные k и a ввести с клавиатуры.
_____________________
Заранее благодарю за помощь!

@Puporev · 28.10.2011, 16:03

Модуль

Pascal

unit factorial;
interface
function Fact(n:integer):real;
implementation
function Fact(n:integer):real;
begin
if n<2 then Fact:=1
else Fact:=Fact(n-1)*n;
end;
end.

программа

Pascal

uses factorial;
var a,k:integer;
    b:real;
begin
writeln('Введите a,k:');
read(a,k);
b:=Fact(k)+Fact(a);
write(b:0:0);
end.

@ProFiTM · 28.10.2011, 16:05 **[ТС]**

Puporev, спасибо.

@ProFiTM 2 / 2 / 1 Регистрация: 28.10.2011 Сообщений: 35
		1
	Вычисление факториала с помощью рекурсии 28.10.2011, 15:53. Показов 3086. Ответов 2 Метки нет (Все метки) Составление и отладка программы с внешними модулями. Написать внешний модуль для вычисления с применением рекурсии факториала n!. С его помощью в основной программе вычислить выражение *b:=k!+a!* и выдать на экран. Переменные k и a ввести с клавиатуры. _____________________ Заранее благодарю за помощь! 0

@ProFiTM 2 / 2 / 1 Регистрация: 28.10.2011 Сообщений: 35
	28.10.2011, 16:05 [ТС]	3
	Puporev, спасибо. 0

Вычисление факториала с помощью рекурсии

Решение