Простые числа

← →
Ксандр (2007-03-13 10:48) [0]

Доброго времени суток, уважаемые мастреа, подскажите пожалуйста как написать программу для нахождения простого числа(которое делиться на сомо себя и 1).

← →
Ega23 © (2007-03-13 10:50) [1]

http://www.yandex.ru/yandsearch?rpt=rad&text=%D0%E5%F8%E5%F2%EE+%DD%F0%E0%F2%EE%F1%F4%E5%ED%E0

← →
Думкин © (2007-03-13 10:50) [2]

program simple; begin write("2"); readln; end.

← →
homm © (2007-03-13 10:51) [3]

Организуй цикл для чисел от 3 до сколько тебе нужно, и проверяй каждое число во вложеном цикле на предмет отсутствия остатка при делении на числа от 2-х до себя-1. Если таких не окажется, значит простое.

← →
palva © (2007-03-13 10:53) [4]

Для нахождения какого-нибудь простого числа? Например, легко написать программу которая находит простое число 2 или простое число 3. Типа:

Result := 3;

Это?

← →
Рамиль © (2007-03-13 10:54) [5]

> homm © (13.03.07 10:51) [3]

И много ты знаешь чисел, которые делятся на себя - 1?

← →
homm © (2007-03-13 10:55) [6]

> [5] Рамиль ©

Верно :) можно проверять на делимость не до "себя-1" а до "себя div 2"

← →
Tema (2007-03-13 10:56) [7]

>Рамиль © (13.03.07 10:54) [5]

2

← →
homm © (2007-03-13 10:57) [8]

> [7] Tema
Имеются ввиду простые, он прав.

← →
palva © (2007-03-13 10:57) [9]

> не до "себя-1" а до "себя div 2"
Достаточно до "корень квадратный из себя"

← →
Рамиль © (2007-03-13 11:01) [10]

> palva © (13.03.07 10:57) [9]

угу

А вообще вот алгоритм

http://algolist.manual.ru/maths/teornum/gene_prime.php

← →
Думкин © (2007-03-13 11:07) [11]

> Рамиль © (13.03.07 11:01) [10]

Если одно прайм - то так можно. Если же все в диапазоне - то лучше решето Эратосфена. Без особых ухищрений первый миллиард на обычном компе - в течении часа влегкую.

← →
Рамиль © (2007-03-13 11:13) [12]

> Думкин © (13.03.07 11:07) [11]

Судя по сабжу не диапазон - он одно простое просит:).

← →
Думкин © (2007-03-13 11:16) [13]

> Рамиль © (13.03.07 11:13) [12]

Тогда я ему в [2] ответил. :о)

← →
xayam © (2007-03-13 11:37) [14]

а кто-нибудь пытался найти закономерность в распределении простых чисел? Чтобы по формуле можно было рассчитать любое число, я как-то заморачивался, сделал закрученную от центра спираль из простых чисел http://xayam.by.ru/Images/prime.gif, черные точки - простые числа, какая-то закономерность вроде бы и просматривается - это прерывистые диагональные линии, но формулу по-моему нереально найти.

← →
Думкин © (2007-03-13 11:44) [15]

> xayam © (13.03.07 11:37) [14]

Не надо заниматься плагтиатом.

Этот рисунок - известная штука. :)
http://www.helloworld.ru/texts/comp/algor/chisl/simple/

← →
xayam © (2007-03-13 11:47) [16]

блин ну честно не знал.

> Не надо заниматься плагтиатом.

А плагиат это когда сам прогу пишешь? У меня ведь свой код для формирования этого изображения

← →
Vovan #3 (2007-03-13 12:55) [17]

>я как-то заморачивался, сделал закрученную от центра спираль из простых чисел

Vo gonit to :) Hotja legenda vokrug etogo risunka ochen" romantichnaja - na lekcii, majas ot bezdel"ja sidel odin student i vdrug reshil prosto tak narisovat" spiralku iz chisel, a potom zakrasit" prostije. I sovershil takoje otkritije. Ha, ne verju.

> Доброго времени суток, уважаемые мастреа, подскажите пожалуйста
> как написать программу для нахождения простого числа(которое
> делиться на сомо себя и 1).

Вопрос задан коряво!
Result:=2; - подходящий ответ!
А вообще простые числа находятся с помощью такой простенькой функции:
===========================
Function Check(x: Integer): Boolean;
Var
i: Integer;
Begin
Check:=false;
For i:=2 To Trunc(Sqrt(x)) Do
If x Mod i=0 Then Exit;
Check:=true;
End;
===========================

Var
x: Integer;

Begin
Readln(x);
Writeln(Check(x)); {true - простое, false - иначе}
Readln;
End.

> кто-нибудь пытался найти закономерность в распределении
> простых чисел?

"Кто-нибудь" пытался.
Оно практически совпадает с Y(X) = X / Ln(X)

> Оно практически совпадает с Y(X) = X / Ln(X)

как это "практически"?
Подставим например x = 5: Y(5) = 5 / 1.6 это примерно 3.1 - явно не пятое простое число, даже если округлить до 3.

> xayam © (13.03.07 13:58) [20]

Практически, означает следующее:
Пусть p(x) - чмсло простых чисел не превышающее х. Тогда
p(x)*ln(x)/x стремится к 1 при х стремящемся к бесконечности. Это дает ассимптотическое поведение такой функции. Доказано Адамаром.

> Сергей М. © (13.03.07 14:10) [22]
> > xayam © (13.03.07 13:58) [20]
> http://slil.ru/24071563

x, y на графике что обозначает?

Простые числа Найти похожие ветки