Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата

 Var I, J : Integer; P : Digit; VspRez : 0..99;

  Begin

    Zero(C);

    For I := 1 To Dlina(A) Do {Цикл по количеству цифр

                               в первом числе}

     Begin

        P := 0; {Первоначально перенос равен нулю}

        For J := 1 To Dlina(B) Do {Цикл по количеству цифр

                                   во втором числе}

         Begin

           VspRez := A[I] * B[J] + P + C[I + J - 1];

           C[I + J - 1] := VspRez Mod 10; {Очередное значение цифры в

                                           разряде I + J - 1}

           P := VspRez Div 10 {Перенос в следующий разряд}

         End;

       C[I + J] := P {последний перенос может быть отличен от нуля,

                      запишем его в пока ещё свободный разряд}

     End

  End;

Сейчас приведем листинг программы целиком.

Program DlUmn;

Const NMax = 2000;

Type Digit = 0..9; DlChislo = Array[1..Nmax] Of Digit;

Var S : String;

    M, N, R, F : DlChislo;

Рекомендуем скачать другие рефераты по теме: дипломная работа аудит, сочинение бульба.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9 | Следующая страница реферата