ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : OAM                                  2:5020/400     03 Aug 2001  12:47:35
 To : All
 Subject : Re: Простые числа
 -------------------------------------------------------------------------------- 
 

 Egorov Pavel <EgorovPavel@mail.ur.ru> пишет> Function Prime(X : Longint) :
 Boolean;
 
 > Begin
 >   k:=2;
 >   while (k*k<=X)and (X mod k = 0) do inc k;
 >   Prime:=k*k>X
 > end.
 
 Если проверять только нечетные делители (  k:=3; inc(k, 2)   )  , получится
 быстрее
 Еще лучше проверять только простыми числами (если строится весь список
 простых чисел)
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Comint Ltd (post does not reflect views of Comint Ltd) (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Простые числа   Tolik Pozdeev   31 Aug 2001 23:41:55   Простые числа   Sergey Kabikov   03 Aug 2001 08:08:01   Простые числа   Egorov Pavel   03 Aug 2001 08:42:38   Re: Простые числа   OAM   03 Aug 2001 12:47:35   Простые числа   vitalie vrabie   04 Aug 2001 00:24:44   Re: Простые числа   Egorov Pavel   06 Aug 2001 09:27:06   RE:Простые числа   Vadim Ajuev   04 Aug 2001 00:35:56   RE:Простые числа   Vadim Ajuev   04 Aug 2001 01:25:08   Re: Простые числа   Sergey Belka   22 Aug 2001 20:00:22