Рекурсивная функция

@cl0ne · Регистрация: 28.01.2017

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

Возникли проблемы с рекурсивной функцией.
Задание:
Вычислить (a! + b!)/a!, используя рекурсивную функцию вычисления факториала.

@ZX Spectrum-128 · 19.03.2017, 18:56

Pascal

var
  a, b: LongInt;
  c: real;
 
function fact(n: LongInt): LongInt;
begin
  if n = 0 then 
    fact := 1
  else
    fact := n * fact(n - 1);
end;
 
begin
  readln(a, b);
  //c := (fact(a) - fact(b)) / fact(a);
  c := 1 - fact(b) / fact(a);
  writeln(c);
end.

Добавлено через 49 секунд
Наверняка можно ещё упростить, только я забыл как.

@bormant · 19.03.2017, 19:35

ZX Spectrum-128,
ошибка в выражении, в задании a! + b!.

Можно еще упростить, но тогда функция факториала не поможет.
Если a<b, то b!/a! = П(a+1,b)
Если a>b, то b!/a! = 1/П(b+1,a)
Если a=b, то 1.

Рекурсивная функция

Решение

Решение

@cl0ne 0 / 0 / 1 Регистрация: 28.01.2017 Сообщений: 47
		1
	Рекурсивная функция 19.03.2017, 16:52. Показов 1880. Ответов 2 Метки function (Все метки) Возникли проблемы с рекурсивной функцией. Задание: Вычислить (a! + b!)/a!, используя рекурсивную функцию вычисления факториала. 0

@bormant Модератор 7769 / 4598 / 2823 Регистрация: 22.11.2013 Сообщений: 13,077 Записей в блоге: 1
	19.03.2017, 19:35	3
	Сообщение было отмечено ZX Spectrum-128 как решение Решение ZX Spectrum-128, ошибка в выражении, в задании a! + b!. Можно еще упростить, но тогда функция факториала не поможет. Если a<b, то b!/a! = П(a+1,b) Если a>b, то b!/a! = 1/П(b+1,a) Если a=b, то 1. 1

Опции темы