| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Masa ©   (2002-01-06 23:09:00) 

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

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

---

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


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.


---

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

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

---

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

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

---

Наверх