Задачи на длинную арифметику
Категория реферата: Рефераты по информатике, программированию
Теги реферата: реферати безкоштовно, образец титульный реферата
Добавил(а) на сайт: Алеев.
Предыдущая страница реферата | 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 | Следующая страница реферата