Форум: "Прочее";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
ВнизПростые числа Найти похожие ветки
← →
Ксандр (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.
← →
Витян © (2007-03-13 13:48) [18]
> Доброго времени суток, уважаемые мастреа, подскажите пожалуйста
> как написать программу для нахождения простого числа(которое
> делиться на сомо себя и 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.
← →
Сергей М. © (2007-03-13 13:52) [19]
> кто-нибудь пытался найти закономерность в распределении
> простых чисел?
"Кто-нибудь" пытался.
Оно практически совпадает с Y(X) = X / Ln(X)
← →
xayam © (2007-03-13 13:58) [20]
> Оно практически совпадает с Y(X) = X / Ln(X)
как это "практически"?
Подставим например x = 5: Y(5) = 5 / 1.6 это примерно 3.1 - явно не пятое простое число, даже если округлить до 3.
← →
Думкин © (2007-03-13 14:09) [21]
> xayam © (13.03.07 13:58) [20]
Практически, означает следующее:
Пусть p(x) - чмсло простых чисел не превышающее х. Тогда
p(x)*ln(x)/x стремится к 1 при х стремящемся к бесконечности. Это дает ассимптотическое поведение такой функции. Доказано Адамаром.
← →
Сергей М. © (2007-03-13 14:10) [22]
> xayam © (13.03.07 13:58) [20]
http://slil.ru/24071563
← →
xayam © (2007-03-13 14:20) [23]
> Сергей М. © (13.03.07 14:10) [22]
> > xayam © (13.03.07 13:58) [20]
> http://slil.ru/24071563
x, y на графике что обозначает?
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.098 c