100!

[jura_k]

Здравствуйте. Я программист. Написал программу, которая считает 100!, но результат не поместился у меня на экране. У кого монитор подлиннее, посмотрите, что там.
Программа совместима с Windows 95.
Скачать программу:

[Алексей1153]

jura_k, что мешает вывести в файл?

[Cuprum5]

Измерь строку - сколько на экране помещается символов и при выводе на экран основную строку разбивая на строки этой длины.

[jura_k]

100! = 93326215443944152681699238856266700 49071596826438162146859296389521759 99932299156089414639761565182862536 97920827223758251185210916864000000 000000000000000000

У меня совпадает.

[jura_k]

Image

[jura_k]

Код программы.

/*   p52
      Язык Visual C++ 6.0
	  Факториал

	  Задача. Найти 100!
	  52.5.1. Используя алгоритм вычисления функции факториал n в качестве вспомогательного,
	  напишите алгоритм вычисления суммы факториалов всех чётных чисел от 2 до 100.   */

void CP52View::OnDraw (CDC *pDC)
{
	CP52Doc *pdoc = GetDocument ();
	ASSERT_VALID (pdoc);

	int a [200], b [200];		//   Место для хранения числа.
	//   В каждом элементе массива хранится 1 цифра.

	int d;			//   число цифр
	int g, h, i;
	CString j, k;	//   вывод результата

	//   Инициализация массива
	for (g = 0; g < 200; g++) a [g] = b [g] = 0;
	a [0] = 1;
	d = 1;


	for (g = 1; g <= 100; g++)	//   считаем факториал числа
	{
		for (h = 0; h < d; h++)
		{
			a [h] *= g;
			if (g % 2 == 0) b [h] += a [h];
		}

		for (h = 0; h < d + 2; h++)
		{
			i = a [h] / 10;		//   выделяем число десятков, заносим во временную переменную
			a [h] %= 10;
			a [h + 1] += i;
		}

		if (a [d + 1])		//   смотрим, на сколько увеличилось количество цифр в числе
			d += 2;
		else
			if (a [d])
				d++;
	}


	for (h = 0; h < d; h++)
	{
		i = b [h] / 10;		//   выделяем число десятков, заносим во временную переменную
		b [h] %= 10;
		b [h + 1] += i;
	}

	//   Вывод результатов
	j = "";
	for (g = 0; g < d; g++)
	{
		k.Format ("%i", a [g]);
		j = k + j;
	}

	k = "100! = ";
	j = k + j;
	pDC -> TextOut (10, 10, j);

	j = "";
	for (g = 0; g < d; g++)
	{
		k.Format ("%i", b [g]);
		j = k + j;
	}

	k = "S = ";
	j = k + j;
	pDC -> TextOut (10, 35, j);
}

[Алексей1153]

jura_k, осталось в отдельный поток считалку вынести, чтобы комп не превращался в тыкву

[jura_k]

Этот алгоритм работает даже на 286-ом компьютере за секунду.
Не проверял, но по объему вычислений видно.
Потоки не изучал, не надо это мне.

[Arigato]

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

работает даже на 286-ом

Вот когда на i4004 заработает, можно будет считать задачу выполненной!

[Алексей1153]

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

Потоки не изучал, не надо это мне.

правильно, они ж на пентиуме только появятся, так что ещё крутые 386 и 486 в запасе