Форум программистов, компьютерный форум, киберфорум
Наши страницы
нтч
Войти
Регистрация
Восстановить пароль
+++
Недостающую глубину мысли обычно компенсируют её длиной.
+++
Оценить эту запись

333 333 33133 333 333

Запись от нтч размещена 08.08.2018 в 10:10

Дана строка цифр "333 333 33133 333 333" (без пробелов, я их вставил для наглядности). Требуется из этой строки "выцарапать" все простые числа, содержащие цифру 1. При этом использовать рекурсивную процедуру получения всех чисел.

QBasic со столь длинными числами не справится и я написал программу для выделения простых чисел длинной до 9 знаков. (программа и результаты прилагаются)

Примечание 1
я хотел использовать сдвиг чисел типа 3331 => 3313. Но в общем виде у меня это не получилось.
Примечание 2
хотел также получить все числа (через рекурсию), как перестановки цифр (в основном переставляется цифра 1, да вот длина чисел разная)
Примечание 3
хотел использовать две рекурсивные процедуры, где одна из них вызывает другую и ... запутался.

А ВОТ ЭТО ТО, ЧТО МНЕ УДАЛОСЬ РЕШИТЬ.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
DECLARE SUB PCH (k!)
 
CLS
DIM SHARED S AS STRING
 
FOR i = 2 TO 9
   S = STRING$(i, "3")
   CALL PCH(i)
NEXT
END
 
SUB PCH (k)
   DIM N AS LONG
 
   IF k = 0 THEN EXIT SUB
 
   MID$(S, k, 1) = "1"
   N = VAL(S)
   d2 = SQR(N)
 
   FOR d = 3 TO d2 STEP 2
      IF N MOD d = 0 THEN 800
   NEXT
 
   PRINT N
800
   MID$(S, k, 1) = "3"
   CALL PCH(k - 1)
END SUB
REM Список простых чисел
31
13
331
313
3331
3313
33331
31333
333331
331333
313333
3333331
3333313
3333133
3331333
33333331
33333133
33313333
31333333
333333313
333331333
любопытно все эти числа (кроме 13) начинаются на цифру 3
просто вопрос ... А есть ли еще простые числа вида 13333... ?
Размещено в Без категории
Просмотров 164 Комментарии 0
Всего комментариев 0
Комментарии
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru