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

                    Var OK : Boolean);

Var I : Word;

 Begin

   Zero(A); I := Length(S); OK := True;

   While (I >= 1) And OK Do

   Begin

      If S[I] In ['0'..'9']

      Then A[Length(S) - I+ 1] := Ord(S[I]) - 48

      Else OK := False;

      I := I - 1

   End

 End;

Procedure Multiplication(A, B : DlChislo; Var C : DlChislo);

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;

       P := VspRez Div 10

     End;

        C[I + J] := P

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



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

Поделитесь этой записью или добавьте в закладки