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

Вниз

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

 
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.



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

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

Наверх




Память: 0.47 MB
Время: 0.023 c
14-75648
Mike_Goblin
2001-11-26 14:29
2002.01.24
День Варенья у Sir Alex


3-75509
Dim
2001-12-21 09:32
2002.01.24
Подключение к удаленной БД.


1-75580
Анатолий
2002-01-02 04:30
2002.01.24
Формулы в тексте


3-75478
Supostat
2001-12-19 16:42
2002.01.24
Клиентские места и BDE


1-75586
RealGrey
2002-01-05 16:36
2002.01.24
Не могу понять ощибку.