Поиск простых чисел

[Батороев]

В Википедии тоже есть какая-то программа по решету Эратосфена: http://ru.wikipedia.org/wiki/%D0%A0%D0%B5%D1%88%D0%B5%D1%82%D0%BE_%D0%AD%D1%80%D0%B0%D1%82%D0%BE%D1%81%D1%84%D0%B5%D0%BD%D0%B0

[arseniiv]

gris в сообщении #239208 писал(а):

Это всё двухбайтные целые.

Ну, смотря в какой версии компилятора... Может и совпадать с longint, которые везде 4-байтный

[gris]

Но мы занимаемся ерундой. Автор придумал алгоритм. Какой-то программер его реализовал и весьма криво, раз он валится. И что мы хотим узнать? Время расчёта решета? Сравним с временем расчёта кривой программы?
Программа неинтересна. Интересен алгоритм и именно он представляет несомненную ценность. А уж в чём его реализовать - неважно.

[SerjeyMinsk]

arseniiv в сообщении #239207 писал(а):

Попробуйте заменить integer на longint тут и везде, где он встречается.

Ух ты заменил. Там только в этом фрагменте и встечается. Начал считать до 435 в квадрате. Числа на выходе уже 6-и значные

[gris]

Ну longint, ну 20 цифирек. Это мало.

[venco]

Теперь попробуйте поменяйть 1000 на 10000.

[SerjeyMinsk]

venco в сообщении #239221 писал(а):

Теперь попробуйте поменяйть 1000 на 10000.

Есть. Дошел до 1021 в квадрате. 7 знаков
3021 в квадрате- восемь знаков

[gris]

SerjeyMinsk, Вы прямо заинтриговали всех. Неужели уже больше миллиона обсчитали? А если ещё больше увеличить? До 10000? Не усну, не дождавшись результата!

-- Вс авг 30, 2009 20:44:08 --

Нет, правда, реально так быстро считает?

[SerjeyMinsk]

gris в сообщении #239224 писал(а):

SerjeyMinsk, Вы прямо заинтриговали всех. Неужели уже больше миллиона обсчитали? А если ещё больше увеличить? До 10000? Не усну, не дождавшись результата!

-- Вс авг 30, 2009 20:44:08 --

Нет, правда, реально так быстро считает?

Я могу видео сделать.
Я просто не могу проверить как такие-же числа выдает решето эратосфена. за сколько времени.
Но считает, что 3 в квадрате, что 3021 в квадрате за столько же времени. Ввожу числа больше пустой экран

[gris]

Да не томите же! Может быть ввели слишком большое число? А сколько простых чисел выдаёт ваша программа за один подход?

[SerjeyMinsk]

Вот числа от 11111 в квадрате. Верхние числа программа почему то обрезает. не показывает
В турбопаскале не считает, а во freepascale еще сражается.


-- Вс авг 30, 2009 20:25:55 --


Вот последние из числа 33333 в квадрате.





6 значные уже опять ошибку выдает, даже если увеличиваю 0

[gris]

Ничего себе! Беру свои слова обратно. Тут безусловно время надо засекать. Мне кажется, что Ваша программа как делать нечего обставит любое решето.
Ну а если попробовать ввести миллион? Ну это, конечно, уже слишком. Придётся до утра ждать. Нет, мне на самом деле ужасно интересно. Но это правда не фокус?

[Xaositect]

Проверьте, что ли, результаты: http://www.prime-numbers.org/

[gris]

Вот видите! Опытные программисты подсказали чуток и уже дело сдвинулось. А может у Вас там ещё есть ошибки. И если их исправить, то будет считать и двадцатизначные?

[SerjeyMinsk]

gris в сообщении #239235 писал(а):

Ничего себе! Беру свои слова обратно. Тут безусловно время надо засекать. Мне кажется, что Ваша программа как делать нечего обставит любое решето.
Ну а если попробовать ввести миллион? Ну это, конечно, уже слишком. Придётся до утра ждать. Нет, мне на самом деле ужасно интересно. Но это правда не фокус?

При вводе числа больше чем в пять знаков выдает ошибку
Ребята, ну я думаю, что глупо так фокусничать.
Итак благодаря вам дошел до миллиарда. Спасибо, кто помогал.

-- Вс авг 30, 2009 20:37:16 --

Xaositect в сообщении #239236 писал(а):

Проверьте, что ли, результаты: http://www.prime-numbers.org/

Я там и проверяю