Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Вниз

Помогите написать алгоритм вычисления простых чисел из множества !!! 


Masa   (2002-01-06 23:09) [0]

Помогите написать алгоритм вычисления простых чисел из множества !!! Срочно надо.

Заранее благодарен.



DK   (2002-01-07 03:31) [1]

Что значит из множества?



Masa   (2002-01-07 14:51) [2]

Из множества чисел 1..255 найти только простые числа.



evgeg   (2002-01-08 02:30) [3]


function is_simple (x: integer): boolean;
var i, k: integer;
begin
result := x <> 1;
if not result then exit;
k := trunc (sqrt (x));
i := 2;
while (i <= k) do
begin
if x mod k = 0 then break;
inc (i);
end;
result := i > k;
end;

var x: integer;
begin
// 1 - не простое, 255 - на 5, четные числа кроме 2 - не простые
writeln (2);
x := 3;
while (x <= 253) do
begin
if is_simple (x) then
writeln (x);
inc (x, 2);
end;
end.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.24;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
3-75494           kserg@ukr.net         2001-12-20 11:09  2002.01.24  
Как организовать работу в сети с DBase-таблицами ?


1-75626           Eraser                2002-01-03 15:40  2002.01.24  
Снова я и снова торможу


14-75662          Undertaker            2001-11-28 16:55  2002.01.24  
Кто знает JAVA - помогитеееееее !


3-75465           Sergey Karagodin      2001-12-19 14:25  2002.01.24  
Возвращаю результат запроса (ADO+SQL7)


6-75631           dimonf                2001-10-28 18:16  2002.01.24  
SMS на намера сотовых телефонов Питерского Nord Westa?