![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
![]()
необходимо найти из указанного диапазона все простые числа
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 23.03.2010
Сообщений: 101
|
![]()
=СУММПРОИЗВ(Ч(ОСТАТ(A1;(СТРОКА($A$1 :ИНДЕКС(A:A;A1))))=0))<3
ИСТИНА укажет простые числа. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
![]()
нее.... надо в модуле!!!
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 69
|
![]()
Function prost(chis As Variant) As String
Dim gran, ind, j If chis - Int(chis) <> 0 Then prost = "СОСТАВНОЕ" Exit Function End If gran = Abs(Int(-chis ^ 0.5)) ind = 1 For j = 2 To gran If chis Mod j = 0 Then prost = "СОСТАВНОЕ" Exit Function Else ind = ind + 1 End If Next j If ind = gran Then prost = "ПРОСТОЕ" End Function
Андрей
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 17.07.2009
Сообщений: 519
|
![]() |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
![]()
я уже всю википендию облазила(( все равно не понимаю какая диная формула для нахождения этих чисел(((
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 27.09.2008
Сообщений: 69
|
![]()
СУММПРОИЗВ(Ч(ОСТАТ(A1;(СТРОКА($A$1 :ИНДЕКС(A:A;ОКРУГЛ(A1^0.5;0)))))=0) )=1
быстрее
Андрей
|
![]() |
![]() |
![]() |
#8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]() Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 21.12.2009
Сообщений: 47
|
![]()
Loop Until False а что это???
и за что вы обозначили v? подскажите пожалуйста!! Последний раз редактировалось мария2507; 03.04.2010 в 16:41. |
![]() |
![]() |
![]() |
#10 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
v - это кандидат на звание простого числа, если оказывается действительно простым числом (согласно моего алгоритма) то записывается на лист.
кстати, алгоритм очень ускоренный, я не перебираю все числа до v, а лишь до определенного значения, своего для каждого v Loop Until False а что это??? это окончание цикла. строка с значением 50 может быть вообще выброшена, а эта изменена на Loop Until R<50
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
найти все натуральные числа,не превосходящие заданного n | fredperry1661 | Помощь студентам | 1 | 02.02.2010 17:10 |
определить все простые числа не превосходящие заданного N QBasic | werus | Помощь студентам | 4 | 23.04.2009 13:32 |
Среди чисел из интервала от А до В найти все простые. | veterok | Помощь студентам | 1 | 22.04.2009 19:23 |
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа | Woland-itn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 23.03.2008 21:49 |