Текст подпрограммы и версий ( Фортран )
pa12i.zip 
Тексты тестовых примеров ( Фортран )
tpa12i.zip 
Текст подпрограммы и версий ( Си )
pa12i_c.zip 
Тексты тестовых примеров ( Си )
tpa12i_c.zip 
Текст подпрограммы и версий ( Паскаль )
pa12i_p.zip 
Тексты тестовых примеров ( Паскаль )
tpa12i_p.zip 

Подпрограмма:  PA12I

Назначение

Вычисление последовательности простых чисел.

Математическое описание

Подпрограмма 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