Составить алгоритм вычисления факториала

@Наташк_О · Регистрация: 28.03.2010

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

Составить алгоритм вычисления факториала.

@NIch · 31.03.2010, 17:57

Pascal
1
2
for i := 1 to n do
 F := F*i;

@кот Бегемот · 31.03.2010, 21:16

не забудь сначала задать f=1

@Наташк_О · 31.03.2010, 21:51 **[ТС]**

спасибо))))

@g-man · 02.04.2010, 19:18

таки алгоритм не сможет высчитать 1000!

@Helfer · 02.04.2010, 19:24

g-man, алгоритм правильный, а вот воплощение его в реальность это уже другая тема)

@guestonearth · 02.04.2010, 23:48

Собственно советую всем писать на Питоне - красивый, читабельный и мощный язык

Python
1
2
3
4
5
a=int(raw_input())
res = 1
for i in xrange(2,a+1):
   res *= i
print res

@Наташк_О · 06.04.2010, 20:42 **[ТС]**

фэнкс!)

@Perl_Boy · 13.04.2010, 23:30

факториал на перловке:

Perl
1
2
3
4
$num = <>;
$f = 1;
$f *= $_ for (1..$num);
print $f;

сравните с кодом на питоне

@Mysterious Light · 14.04.2010, 02:36

Code
1
2
3
factorial 0 = 1
factorial n = n * factorial (n-1)
main = getLine >>= (print.factorial.read)

Факториал на хаскелле. Ещё варианты?

@axi · 14.04.2010, 02:42

Java
1
2
3
4
int result;
 if(n==1) return 1;
 result=fact(n-1)*n;
return result;

18.06.2014, 10:16

1C
1
2
3
4
5
6
7
8
Число=5;
Ответ=1;
 
Для Шаг=2 По Число Цикл
    Ответ = Ответ*Шаг;
КонецЦикла;
 
Сообщить(Ответ);

Факториал на 1C

@li4n0st · 18.06.2014, 12:31

PHP
1
2
3
4
5
6
$num = 1;
for ($r = 1; $r <= 5; $r ++) {
$num *= $r;
 
}
echo $num;

@pycture · 18.06.2014, 12:43

F#

Haskell
1
2
3
[1 .. () |> System.Console.ReadLine |> int] 
|> List.reduce (*) 
|> printfn "%A"

@Qwertiy · 19.06.2014, 14:09

T-SQL
1
2
3
4
5
6
declare @n int = 10, @i int = 0, @f bigint = 1;
 
with temp (i) as (select 1 union all select 1 from temp)
select top (@n) @i = @i + 1, @f = @f * @i from temp;
 
select @f;

Добавлено через 33 секунды
Это MS SQL Server 2012

@xod · 05.07.2014, 10:14

QBasic/QuickBASIC
1
2
3
4
F=1
FOR i=1 TO n
   F=F*i
NEXT i

@Krasme · 05.07.2014, 10:56

Fortran
1
2
3
4
 f=1
 do k=1,n
  f=f*k
 end do

volodin661 · 21.07.2016, 02:46

Perl6:

Perl
1
2
sub postfix:<!> {[*] 1..$^n};
say 1000!

Кликните здесь для просмотра всего текста

4023872600770937735437024339230039857193 7486421071463254379991042993851239862902 0592044208486969404800479988610197196058 6316668729948085589013238296699445909974 2450408707375991882362772718873251977950 5950995276120874975462497043601418278094 6464962910563938874378864873371191810458 2578364784997701247663288983595573543251 3185323958463075557409114262417474349347 5534286465766116677973966688202912073791 4385371958824980812686783837455973174613 6085379534524221586593201928090878297308 4313928444032812315586110369768013573042 1616874760967587134831202547858932076716 9132448426236131412508780208000261683151 0273418279777047846358681701643650241536 9139828126481021309276124489635992870511 4964975419909342221566832572080821333186 1168115536158365469840467089756029009505 3761647584772842188967964624494516076535 3408198901385442487984959953319101723355 5566021394503997362807501378376153071277 6192684903435262520001588853514733161170 2103968175921510907788019393178114194545 2572238655414610628921879602238389714760 8850627686296714667469756291123408243920 8160153780889893964518263243671616762179 1689097799119037540312746222899880051954 4441428201218736174599264295658174662830 2955570299024324153181617210465832036786 9061172601587835207515162842255402651704 8330422614397428693306169089796848259012 5458327168226458066526769958652682272807 0757813918581788896522081643483448259932 6604336766017699961283186078838615027946 5955131156552036093988180612138558600301 4356945272242063446317974605946825731037 9008402443243846565724501440282188525247 0935190620929023136493273497565513958720 5596542287497740114133469627154228458623 7738753823048386568897646192738381490014 0767310446640259899490222221765904339901 8860185665264850617997023561938970178600 4081188972991831102117122984590164192106 8884387121855646124960798722908519296819 3723886426148396573822911231250241866493 5314397013742853192664987533721894069428 1434118520158014123344828015051399694290 1534830776445690990731524332782882698646 0278986432113908350621709500259738986355 4277196742822248757586765752344220207573 6305694988250879689281627538488633969099 5982628095612145099487170124451646126037 9029309120889086942028510640182154399457 1568059418727489980942547421735824010636 7740459574178516082923013535808184009699 6372524230560855903700624271243416909004 1536901059339838357779394109700277534720 0000000000000000000000000000000000000000 0000000000000000000000000000000000000000 0000000000000000000000000000000000000000 0000000000000000000000000000000000000000 0000000000000000000000000000000000000000 0000000000000000000000000000000000000000 00000000

echs · 21.07.2016, 09:03

Можно использовать также рекурсию.
Пусть f(n) - рекурсивная функция (n! = f(n)), тогда
If n < 2 Then f = 1 Else f = n * f(n-1)

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Наташк_О 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 12

	Составить алгоритм вычисления факториала 31.03.2010, 17:39. Показов 4431. Ответов 18 Метки нет (Все метки) Составить алгоритм вычисления факториала. 0

@кот Бегемот Платежеспособный зверь 8964 / 4387 / 1654 Регистрация: 28.10.2009 Сообщений: 11,645
	31.03.2010, 21:16
	не забудь сначала задать f=1 0

@Наташк_О 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 12
	31.03.2010, 21:51 [ТС]
	спасибо)))) 0

@g-man 9 / 9 / 1 Регистрация: 02.04.2010 Сообщений: 25
	02.04.2010, 19:18
	таки алгоритм не сможет высчитать 1000! 0

@Helfer ЙожЪ 64 / 60 / 17 Регистрация: 23.10.2009 Сообщений: 652
	02.04.2010, 19:24
	g-man, алгоритм правильный, а вот воплощение его в реальность это уже другая тема) 0

@Наташк_О 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 12
	06.04.2010, 20:42 [ТС]
	фэнкс!) 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	21.07.2016, 09:03
	Можно использовать также рекурсию. Пусть f(n) - рекурсивная функция (n! = f(n)), тогда If n < 2 Then f = 1 Else f = n * f(n-1) 0