|
Текст подпрограммы и версий ( Фортран ) pa12i.zip |
Тексты тестовых примеров ( Фортран ) tpa12i.zip |
|
Текст подпрограммы и версий ( Си ) pa12i_c.zip |
Тексты тестовых примеров ( Си ) tpa12i_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) pa12i_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa12i_p.zip |
Вычисление последовательности простых чисел.
Подпрограмма PA12I вычисляет последовательность простых чисел (включая единицу), не превосходящих заданного натурального N, используя алглоритм, имеющий название "решето Эратосфена". Полученная последовательность помещается в массиве IP, длина которого
не больше [ 1.6N / lnN + 1 ] , если N ≤ 200 , или не больше [ N / (lnN-2) + 1 ] , если N > 200.
Символ [ ] означает целую часть числа.
SUBROUTINE PA12I (N, IP)
Параметры
| N - | заданное значение натурального числа, для которого ищутся простые числа, не превосходящие его (тип: целый); |
| IP - |
целый одномерный массив длины [1.6N/lnN + 1], если
N ≤ 200, или длины [N/(lnN - 2) + 1], если N > 200, в котором помещается вычисленная последовательность простых чисел. |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
DIMENSION IP(35)
N = 100
CALL PA12I (N, IP)
Результаты:
IP = 1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53,
59, 61, 67, 71, 73, 79, 83, 89, 97