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