ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Alex Kozhushko                       2:5020/400     12 Nov 2002  08:01:06
 To : Oleg Zhigalov
 Subject : Re: Пpостые числа
 -------------------------------------------------------------------------------- 
 

 Добрый день, Oleg!
 
 "Oleg Zhigalov" <Oleg.Zhigalov@p11.f73.n5054.z2.fidonet.org> wrote in
 message news:1037043559@p11.f73.n5054.z2.ftn...
 
 OG> есть у всезнающего Алл алгоpитм для опpеделения числа на пpедмет пpостое
 
 оно
 
 OG> или нет, желательно на Паскале, сpочно.
 
 Можно просто по определению:
 
 function IsPrime(n: Integer): Boolean;
 var
   i: Integer;
 begin
   if i<=1 then
     IsPrime := false
   else
     for i:=2 to n div 2 do
       if n mod i=0 then
         begin
           IsPrime := false;
           exit
         end;
   IsPrime := true
 end;
 
 Если хочется побыстрее, можно проверять только 2 и нечетные делители, а
 также бежать циклом только до sqrt(n).
 Если хочется еще быстрее, причем неоднократно, можно строить таблицу
 простых.
 
 С уважением,
 Алексей
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Пpостые числа   Oleg Zhigalov   12 Nov 2002 01:39:19   Re: Пpостые числа   Alex Kozhushko   12 Nov 2002 08:01:06   Простые числа   Max Alekseyev   11 Nov 2002 23:53:58   Re: Пpостые числа   Andrew Starsh   12 Nov 2002 19:05:07