Вычисления факториала больших чисел (с++)

[maksat-15]

Нужно написать функцию для вычисления факториала до 100. а результаты записать в виде много байтового числа. Подкиньте идею.или можете даже код)))

[Asdprom]

Идея Тут.
Много байтового числа это long или int.

#include "stdafx.h"
#include <iostream>
//#include


int _tmain(int argc, _TCHAR* argv[])
{
	int i;
	int fact =1;
	for(i=1;i<101;i++){ fact *= i;}
	std::cout<<fact;

	system("pause");
	return 0;
}

Если я не ошибаюсь. Факториал - это произведение всех чисел заданного диапазона.
Если что - то не так - извиняйте.

[BDA]

Asdprom, проблема в том, что 100!=933262154439441526816992388562 66700490715968264381621468592963895 21759999322991560894146397615651828 62536979208272237582511852109168640 00000000000000000000000 (по заявлению Wolfram Alpha).

[Rin]

BDA дело говорит. Прикольнула задача, написал на delphi, правда при 100! выдаёт первые 14 цифр правильно, а 15 округляет. То есть

933262154439441526816992388562 66700490715968264381621468592963895 21759999322991560894146397615651828 62536979208272237582511852109168640 00000000000000000000000

выдает 933262154439442(0). (0)-это значит, что все остальные разряды заполняются нулями.
Кстати, что значит в виде много байтового числа?

 function f(n:byte):extended;
    var i:byte;
    begin
      result:=1;
      for I := n downto 2 do
      result:=result*i;
    end;
    function stepen(n:byte):integer;
    var i:integer;
    begin
      result:=1;
      for I := 1 to n do result:=result*10;
    end;
var s,chislo:string;
 e,tochka,count_razryad:integer;
i:integer;
begin
  s:=floattostr(f(100));
  if pos('E',s)<>0 then
  begin
     tochka:=pos(',',s);
     e:=pos('E',s);
     count_razryad:=0;
     for I := e+1 to length(s) do
     count_razryad:=count_razryad+strtoint(s[i])*(stepen(length(s)-i));
     chislo:=copy(s,1,1)+copy(s,3,e-tochka-1);
     for I := 1 to count_razryad-(e-tochka-1) do
       chislo:=chislo+'0';
  end
  else chislo:=s;
  showmessage(chislo);

[s-andriano]

Сообщение от Rin

BDA дело говорит. Прикольнула задача, написал на delphi, правда при 100! выдаёт первые 14 цифр правильно, а 15 округляет.
...
Кстати, что значит в виде много байтового числа?

Мельком глянул - при extended должно выдавать 18-19 верных цифр, а 14-15 - это должно быть double.

Многобайтовое число - подразумевается число, хранимое в памяти и обрабатываемое как массив.
Т.е. определяется новый тип и для него определяется операция умножения. Остальное - тривиально.

[Asdprom]

Решается 2 - умя строчками кода в библиотеке GMP

[s-andriano]

Сообщение от Asdprom

Решается 2 - умя строчками кода в библиотеке GMP

Если в библиотеке есть функция факториала, то и одной строчки много.
Или в самой библиотеке факториал большого числа вычисляется двумя строчками?

PS. Когда речь идет об объеме кода при реализации некоторого алгоритма, ссылаться на библиотеку - дурной тон.

[DiemonStar]

на ассемблере тут вообще проблем не вижу: массивчик байт на 100 (влом пересчитывать разряды в приведённом выше числе) для хранения результата и два цикла:
1) от 1 до 100
2) умножение содержимого массива побайтно с накоплением (а лучше сразу двойными словами).
1 умножаем байт на байт
2 младший байт на место, а старший запоминаем
3 умножаем следующий байт на байт
4 прибавляем старший байт из предыдущей операции
5 сохраняем младший байт и запоминаем старший
6 повторяем с п.3 пока число не закончится.
т.е. обычное умножение в столбик, только вместо десятиразрядных чисел можно использовать те, которые понимает процессор...

собственно, элементарная задача с использованием больших чисел)