Вопрос Решить задачу в паскале

[roma46rus]

Написать алгоритм вычисления факториала числа n при помощи циклов for, repeat, while ПОМОГИТЕ ПОЖАЛУЙСТА

 

[хотабыч]

Можно в одной программе безо всяких дополнительных функций посчитать три значения факториала n! в трёх различных циклах. Если все три значения одинаковые, тогда это совпадающее значение и выводится: uses crt;
var i, n: integer;
ffor, frepeat, fwhile: int64;
begin
clrscr();
while true do
begin
write('n = ');
readln;
if n = 0 then writeln(1)
else
begin
ffor := 1;
for i := 1 to n do ffor := ffor * i;
i := n; frepeat := 1;
repeat
frepeat := frepeat * i;
i := i - 1
until i = 0;
i := 0; fwhile := 1;
while i < n do
begin
i := i + 1;
fwhile := fwhile * i
end;
if (ffor = frepeat) and (frepeat = fwhile)
then writeln(n, '! = ', ffor)
end
end
end. Это FreePascal, в нём при помощи использования стандартного целочисленного типа int64 можно получить точное значение n! для n из диапазона 0 ≤ n ≤ 20 (или приближённое вещественное значение для чуть большего диапазона аргументов факториала). В PascalABC.NET, в котором есть специальный тип больших целых чисел, таких ограничений нет, но я на этом псевдо-паскале не пишу...

 

[AlanGroening]

Держи через аппроксимацию Ланшольца гамма функции #include
#include
#include
#define EPSILON 1e-07

double g = 7;
double n = 9;
double p[] = {
0.99999999999980993,
676.5203681218851,
-1259.1392167224028,
771.32342877765313,
-176.61502916214059,
12.507343278686905,
-0.13857109526572012,
9.9843695780195716e-6,
1.5056327351493116e-7};

std::complex drop_imag(std::complex z) {
if (abs(z.imag())

 

[mickthom]

это в гугле есть

 

[superass190]

Вот несколько вариантов решения этой задачи с использованием различных циклов:

Цикл for:

Цикл repeat:

Цикл while: