Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Как узнать число простое или нет?   Найти похожие ветки 

 
Витёк   (2005-12-24 12:32) [0]

Простое число - это число, которое делится только на себя (без остатка).

Например, 1,2,3,5,7,11,13,17,19,23,29,31,37,… и так до бесконечности. . . .


 
SergP.   (2005-12-24 12:49) [1]

Когда-то была подобная ветка...

Самый простой способ, это


...
result:=true;
for i:=2 to trunc(sqrt(N)) do if (N mod i) =0 then
 begin
 result:=false;
 break;
 end;
...


Можно в цикле перебирать только нечетные числа, Будет быстрее,  но двойку тоже придется включить.

Если есть массив простых чисел до sqrt(N), то достаточно перебрать в цикле только их а не весь диапазон 2..sqrt(N)

и т.д.


 
Uncle Archi ©   (2005-12-24 12:50) [2]

Витёк   (24.12.05 12:32) [0]

Проверить, делится ли она на числа, начиная с 2 заканчивая Trunc(sqrt(N)) (т.е. корнем из числа).


 
Uncle Archi ©   (2005-12-24 12:53) [3]

Когда писал, не видел SergP.   (24.12.05 12:49) [1].


 
Mystic ©   (2005-12-24 17:38) [4]

Число один не относят к простым.


 
Aldor_   (2005-12-24 19:06) [5]

Если нужен список простых чисел до некоторого натурального N, лучше воспользоваться решетом Эратосфена (google forever).


 
wal ©   (2005-12-26 09:47) [6]


> Витёк   (24.12.05 12:32)
Простых способов нет, точнее простой, но медленный в [1] и [2]. А быстрых нет. На этом, пока, криптография и держится.

> Aldor_   (24.12.05 19:06)
Задача несколько обратная.


 
pasha_golub ©   (2005-12-26 09:51) [7]

http://algolist.manual.ru/maths/teornum/



Страницы: 1 вся ветка

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.054 c
2-1136450705
Slaga
2006-01-05 11:45
2006.01.22
Как подключиться к Firebird u не "родными" компонентами, но и BDE


14-1135441129
Витёк
2005-12-24 19:18
2006.01.22
Факториал больших чисел!


1-1134561283
Antonn
2005-12-14 14:54
2006.01.22
Оконная тень


2-1136515344
antoxa2005
2006-01-06 05:42
2006.01.22
Подскажите, как сделать меню похожее на меню Delphi


14-1135671516
ronyn
2005-12-27 11:18
2006.01.22
paramstr