алгоритм деление целочисленных безнаковых чисел

Reves2

дайте ссылочку

garikus



PROCEDURE Divide (rq, y: INTEGER);

	VAR i: INTEGER;

BEGIN

	y := y * 10000H; i := 16;

	REPEAT DEC(i);

		rq := 2 * rq;

		IF rq >= y THEN

			rq := rq - y + 1

		END

	UNTIL i = 0;

	StdLog.Int(rq MOD 10000H);

	StdLog.Int(rq DIV 10000H);

	StdLog.Ln

END Divide;

Reves2

я уже посмотрел в кнуте спасибо
p.s. и на asme написал, если каму надо, то могу дать
там длинные числа до 2^32 байт

durka82

Так это же любой современный процессор умеет.
Или это по учебе?

Reves2

Так это же любой современный процессор умеет.
Или это по учебе?

любой современный процессор может разделить число длинной 2^32 байт на число длинной 2^32?

durka82

Результат должен быть целочисленный?

oleg701

Ты кажись путаешь число 2^32 (4 байта) и число длиной 2^32 байт.

durka82

Да, путаю, сори...

Оставить комментарий