Как создать список простых чисел? - VB
Формулировка задачи:
Как создать список простых чисел?
Решение задачи: «Как создать список простых чисел?»
textual
Листинг программы
'' Ниже реализован алгоритм определения простых '' чисел, имеющий название 'Решето Эратосфена' '' Недостатком алгоритма является то, что в памяти '' приходится держать весь ряд натуральных чисел '' от 1 до MaxNum. Есть алгоритмы посложнее, где в памяти '' держим лишь найденные простые числа, но время счета увеличивается '' (бывает, что и существенно). Public Sub Eratosfen(ByVal MaxNum As Long, cp As Long, p() As Long) '' Входной параметр: '' MaxNum - максимальное целое число, которое ограничивает '' искомые простые числа. '' Выходные параметры: '' cp - количество простых чисел; '' p - массив (размерность 1..cp) простых чисел. Dim i As Long, j As Long Dim n() As Boolean cp = 0 ReDim n(2 To MaxNum): For i = 2 To MaxNum If Not n(i) Then cp = cp + 1 ReDim Preserve p(1 To cp) p(cp) = i For j = i + i To MaxNum Step i n(j) = True Next End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д