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