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

   End

 End;

{Основная программа}

Begin

   Repeat {повторяем ввод, пока число не будет введено правильно}

     Write('Введите первый множитель: ');

     ReadLn(S); Translate(S, M, Logic)

   Until Logic;

   Repeat

     Write('Введите второй множитель: ');

     ReadLn(S); Translate(S, N, Logic)

   Until Logic;

   Multiplication(M, N, R); Print(R)

End.

В приведенном листинге Print — процедура вывода длинного числа. Предоставим читателю самостоятельно разобраться в алгоритме ее работы.

Вернемся к вычислению факториала. Используя разработанные подпрограммы, определим, значение факториала какого максимального числа можно разместить в памяти при таком представлении длинных чисел.

Вот измененный фрагмент основной программы, решающий поставленную задачу.

  Begin

    MaxF := 810;

    Zero(F);

    F[1] := 1;

    For I := 1 To MaxF Do

     Begin

       Str(I, S); {преобразование числа I к строковому типу S}

       Translate(S, M, Logic);

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



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

Поделитесь этой записью или добавьте в закладки