простые числа.окружность.

[Verochka]

помогите пожалуйтса решить задачи,желательно с обьяснением...
1)Найти все такие простые числа,не превосходящие заданного N,двоичная запись которых представляет собой симметричную последовательность нулей и едениц(начинающуюся еденицей)
2)Определить радиус и центр окружности,на которой лежит наибольшее число точек заданного на плоскости множества

[Verochka]

хотя бы с окружностью............очень прошу............:-(

[Sasha_Smirnov]

Для окружности координаты её точек связаны с радиусом так:

(x–x0)² + (y–y0)² = r² [1]
(x — абсциссы точек; y — их ординаты; r — радиус окружности, а x0 и y0 — координаты её центра)

Поэтому среди

Сообщение от Verochka

точек заданного на плоскости множества

{а заданы они, я понимаю, так: (7; 8), (-5,09; 3,5), (0;777) — то есть своими координатами на плоскости} надо искать совпадения с уравнением искомой окружности*.

Как программно задать перебор сравнений по формуле [1], вас, возможно, проинформируют более усердные форумчане... Задачка-то ваша не для первоклассников!
_______________________________
* Три точки всегда лежат либо на окружности, либо на прямой, а четвёртая (на той же плоскости) — "не обязана"**. Её принадлежность одной из окружностей (с неким радиусом, равным r) определяется равенством
(x4–x0)^2 + (y4–y0)^2 = r^2, при том что для первых трёх:
(x1–x0)^2 + (y1–y0)^2 =(x2–x0)^2 + (y2–y0)^2 =(x3–x0)^2 + (y3–y0)^2 = r^2
___________________
** казус в том, что в 999 999 случаях из миллиона (если преподаватель сам не подбирает координаты точек исходного массива) такой точки программа не найдёт:-((

[Sasha_Smirnov]

Сообщение от Verochka

хотя бы с окружностью............очень прошу............:-(

Для начала предлагаю: не с окружностью, а с кругом.
То есть формулу [1] "расширить": (x–x0)² + (y–y0)² ≤ r².


Иначе программу очень трудно будет испытывать (см. выше **)!

А уж затем, когда всё заработает, подобрать входной массив.

[Verochka]

Задачка-то ваша не для первоклассников!
в этом и проблемма!нам бы еще КН по человечески преподавали,то я может и смогла бы решить!у меня складывается ощущение,что наша преподавательница сама не знает как их решать!:-)

[Sasha_Smirnov]

Я так и думал!
Как-то раз я делал на Паскале расчёт распиловки фанерных щитов, так препод (по слухам) предлагал мой «продукт» работникам пилорамы... Тогда, правда, на пилорамах офисной техники (кроме телефона) не стояло. В 1996-м.
Ну я тоже не знаю, как решать. Меня заинтересовали симметричные простые числа. А с этой окружностью — полное болото!
Извините, а КН — компьютерная наука?! (Если так — хоть поржу.)

[Sasha_Smirnov]

Сообщение от Verochka

все такие простые числа...

я нашёл. Как отлажу — выложу.

От вас потребуется лишь умение нажимать альт-F8 (открыв Word или Excel) и знание русского языка. (Английский — приветствуется. И только.)

[Min]

ну про окружности можно попробовать так:
найти самый длинный отрезок. в центре него будет центр окружности, а радиус равен половине этого отрезка

[Sasha_Smirnov]

Вот: нашёл и пересчитал. Если интересует печать, загляните, Verochka, в раздел Форум программистов > Microsoft Office и VBA

Option Explicit
Sub MirrorBinaryPrimes()
'Программа отмечает в натуральном ряду (примерно до 10^6) все простые числа,'
'двоичное (binary) представление которых симметрично относительно их центра,'
'и сообщает, сколько их имеется — до выбранного вами N.'
'(Выполняется в среде VBA-приложений: Access, Excel, Visio, Word etc.)'

Const top As Variant = "10 000"
If Not IsNumeric(Val(top)) Then MsgBox "Константа должна быть числом.": Exit Sub

Dim N As Long, i As Long, j As Long, qP As Long, PriznakTogo As Boolean
N = Fix(Val(InputBox("До какого N?", "До N <= 1 000 000", Val(top)))) 'Ввод N.'
If N >= 3 And N < 10 ^ 6 + 1 Then _
ReDim flags(1 To N) As Boolean Else: MsgBox "Измените N.": Exit Sub
                            
'Берём для начала все нечётные положительные числа, за исключением единицы (она не простое число).'
For i = 3 To N Step 2: flags(i) = True: Next i

For i = 3 To Fix(Sqr(N)) Step 2
        If flags(i) Then
            j = i + i
                Do While j <= N
                flags(j) = False '«Вырубаем» из нечётного ряда чисел каждое j-е число.'
                j = j + i
                Loop
        End If
Next i
'По сути, просеяли натуральный ряд (нечётный) через РЕШЕТО ЭРАТОСФЕНА.'

'Вывод.'
For i = 3 To N
PriznakTogo = flags(i) And IsMirrorBin(i)
qP = qP + IIf(PriznakTogo, 1, 0)
If PriznakTogo Then MsgBox i  'показ искомых чисел'
Next i

MsgBox "Среди чисел до " & N & " программа нашла простых: " & qP & "," & vbCr & _
"таких, что при записи их в двоичном представлении" & vbCr & "получаем симметричную строку."
End Sub

Function IsMirrorBin(ByRef i) As Boolean
Dim d As Integer, OctMask As String, BinMask As String
OctMask = Oct(i) 'Сначала представляем в восьмеричном счислении...'

For d = Len(OctMask) To 1 Step -1 'Сканируем восьмеричную «маску» справа налево.'
BinMask = Choose(Mid$(OctMask, d, 1) + 1, _
"000", "001", "010", "011", "100", "101", "110", "111") & BinMask
'И заменяем соответственно цифры 0, 1, 2, 3, 4, 5, 6, 7 их ДВОИЧНЫМИ аналогами.'
Next d

BinMask = Mid$(BinMask, InStr(BinMask, "1"))   'убор начальных нулей из BinMask'
If BinMask = StrReverse$(BinMask) Then IsMirrorBin = True ': MsgBox BinMask & " " & i'
'Функция IsMirrorBin (по умолчанию равная «Нет») при «зеркальности» BinMask говорит «Да».'
End Function

Первые 11 "перлов" вычислил на бумажке: 3 (двоично: 11), 5 (101), 7 (111), 17 (10001), 31 (11111), 73 (1001001), 107 (1101011), 127 (1111111), 257 (100000001), 313 (100111001), 443 (110111011).

[Sasha_Smirnov]

Сообщение от Min

ну про окружности можно попробовать так:
найти самый длинный отрезок...

...и 99,999...%, что лишь эти 2 точки и окажутся на этой окружности.
Всё-таки лучше для круга программу написать, для начала.