Реферат: Длинная арифметика

(A[i] = B[i-sdvig]) Do Dec(i);

If i = sdvig Then Begin

More:=0;

{совпадение чисел с учетом сдвига}

For i := 1 To sdvig Do

If A[i] > 0 Then Exit;

More := 2;

{числа равны, "хвост" числа А равен нулю}

End

Else More := Byte(A[i] < B[i-sdvig])

End

End;

Пятая задача. Умножение длинного числа на короткое. Под коротким понимается целое число типа LongInt.

Процедура очень походит на процедуру сложения двух длинных чисел.

Procedure Mul(Const A : TLong; Const К : Longlnt; Var С : TLong);

Var i : Integer;

{результат - значение переменной С}

Begin

FillChar (С, SizeOf(С), 0);

If K = 0 Then Inc(С[0]){умножение на ноль}

Else Begin

For i:= l To A[0] Do

Begin

C[i+l] := (LongInt(A[i]) * K + C[i]) Div Osn;

C[i] := (LongInt(A[i])* K + C[i]) Mod Osn

End;

If C[A[0]+1] > 0 Then C[0]:= A[0] + 1

Else C[0]:= A[0]

{определяем длину результата}