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

    I, MaxF : Word;

    Logic : Boolean;

{Процедура обнуления длинного числа}

Procedure Zero(Var A : DlChislo);

Var I : Integer;

  Begin

    For I := 1 To NMax Do A[I] := 0;

  End;

{Функция определения количества цифр в записи длинного числа}

Function Dlina(C : DlChislo) : Integer;

Var I : Integer;

 Begin

   I := NMax;

   While (I > 1) And (C[I] = 0) Do I := I - 1;

   Dlina := I

 End;

{Процедура печати длинного числа}

Procedure Print(A : DlChislo);

Var I : Integer;

 Begin

    For I := Dlina(A) DownTo 1 Do Write(A[I] : 1);

    WriteLn

 End;

{Процедура преобразования длинного числа в массив цифр}

Procedure Translate(S : String; Var A : DlChislo;

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





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