1 Тема від budda

  • budda
  • Користувач
  • Поза форумом
  • Дата реєстрації: 23.03.2015
  • Повідомлень: 13
    • Репутація: 0

Тема: Факторіал

Як зробити щоб шукала факторіал з любого числа, зараз шукає факторіал лише з числа 2

Function SumTwo(k:integer):real;
var n :integer;
begin
if k = 2 then
result:=(2*k-3)+1/(2*k-1)
else
result:=((2*k-3)+1/SumTwo(k+1));
end;

2 Відповідь від koala Востаннє редагувалося koala (23.03.2015 16:07:44)

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

Re: Факторіал

▼Десь так...

https://i.imgflip.com/j7eve.jpg

Подякували: 0xDADA11C7, Master_Sergius, leofun013

koala вебсайт

3 Відповідь від 0xDADA11C7

  • Звідки: Дніпрожидівськ
  • Дата реєстрації: 14.02.2014
  • Повідомлень: 5 707
    • Репутація: 5776

Re: Факторіал

Це у вас не факторіал, казна-що. Ознайомтеся спочатку що воно таке

Подякували: koala, leofun012

4 Відповідь від VTrim Востаннє редагувалося VTrim (23.03.2015 16:48:21)

  • VTrim
  • VTrim
  • =)
  • Поза форумом
  • Дата реєстрації: 07.09.2014
  • Повідомлень: 3 319
    • Репутація: 2298

Re: Факторіал

Тримайте на PHP

Рекурсивно

function factorial($n) {
if ($n > 1) return $n*factorial($n-1);
else return 1;
}

UPD: На Dephi

function factorial(n: integer): integer; 
begin 
if n > 1 then result:=n * factorial(n-1)
else result := 1;
end;
Подякували: leofun011

5 Відповідь від Chemist-i

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Факторіал

▼Прихований текст

Може це такий обхід правила - "без коду не допомагаємо", вставити абсолютно лівий код?

Подякували: Torbins1

Chemist-i вебсайт

6 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 082
    • Репутація: 2280

Re: Факторіал

Chemist-i
Там є рекурсія, так що не зовсім лівий. Але взагалі схоже, що ви маєте рацію.