Тема: Факторіал
Як зробити щоб шукала факторіал з любого числа, зараз шукає факторіал лише з числа 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;
Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → Факторіал
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
Як зробити щоб шукала факторіал з любого числа, зараз шукає факторіал лише з числа 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;
Це у вас не факторіал, казна-що. Ознайомтеся спочатку що воно таке
Тримайте на 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;
Chemist-i
Там є рекурсія, так що не зовсім лівий. Але взагалі схоже, що ви маєте рацію.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися