Claw.ru | Рефераты по информатике, программированию | "Длинная" арифметика "Длинная" арифметика | Категория реферата: Рефераты по информатике, программированию | Теги реферата: сочинение по русскому, решебник 10 11 | Добавил(а) на сайт: Lazarev. Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата	516	238	0	7
2	516	380	2
1	160	385	2

После этого остается только добавить текущую (считанную в ch) цифру "длинного" числа к А[1] и изменить значение А[0].

В конечном итоге процедура должна иметь следующий вид:

   Procedure ReadLong(Var A : Tlong);

   Var ch : char; i : Integer;

   Begin

               FillChar(A, SizeOf(A), 0) ;

               Read(ch);

               While Not(ch In ['0'..'9']) Do Read(ch);

               {пропуск не цифр во входном файле}

               While ch In ['0'..'9'] Do

               Begin

                           For i := A[0] DownTo 1 Do

                           Begin

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





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