Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
Artem6
0 / 0 / 0
Регистрация: 29.06.2016
Сообщений: 2
1

Решето Эратосфена

29.06.2016, 21:14. Просмотров 2515. Ответов 3
Метки нет (Все метки)

Ребят, помогите решить задачу. В программировании профан( Задача нужна в паскале
«Решето Эратосфена». Алгоритм с таким названием позволяет выделить простые числа из интервала от 2 до N. Он состоит в следующем: создаем исходное множество чисел от 2 до N. Множество простых чисел на начальном этапе пусто. Берем первое число – это 2. Оно является простым числом, включаем это число в множество простых чисел. Удаляем из исходного множества чисел все числа, кратные 2 (т.е. 2, 4, 6 и т.д.). Вновь берем первое число из исходного множества чисел. Это 3 – простое число. Включаем его в множество простых чисел, а из исходного множества исключаем все числа, кратные 3. Снова берем первое число из исходного множества (это число 5 - простое). Включаем его в множество простых, а из исходного исключаем все числа, кратные числу 5. Эти действия повторяем до тех пор, пока исходное множество чисел не станет пустым.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2016, 21:14
Ответы с готовыми решениями:

Решето Эратосфена
Я бы хотела спросить у вас, как можно ускорить алгоритм "решето Эратосфена" до...

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.
Составить программу вывода на экран простых чисел из первых N натуральных чисел...

решето эрастофена
Народ, помогите пожалуйста написать программу для выбора простых чисел (решето...

Нахождение суммы элементов в решете Эратосфена
В данный код программы, строящей решето Эратосфена до необходимого числа,...

Поиск простых чисел методом решета Эратосфена.
Помогите пожалуйста решить: 1)Составить процедуру, которая находит все...

3
кот Бегемот
Платежеспособный зверь
8465 / 3911 / 1523
Регистрация: 28.10.2009
Сообщений: 10,141
29.06.2016, 21:20 2
Меню "Поиск" - Расширенный поиск - Ключевые слова:"Решето Эратосфена" -Поиск по разделам: Паскаль (Включая подразделы)
и будет тебе счастье, там штук 30 решённых задач на эту тему.
0
Artem6
0 / 0 / 0
Регистрация: 29.06.2016
Сообщений: 2
29.06.2016, 21:28  [ТС] 3
у меня другая задача немного
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,429
29.06.2016, 22:34 4
Если множества, то в обычных Паскалях n<=255.

Добавлено через 33 минуты
Поскольку в множества нельзя обратиться к первому элементу, приходится делать лишние телодвижения.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var m,p:set of byte;
    i,min:byte;
begin
m:=[2..255];
p:=[];
repeat
min:=255;
for i:=2 to 255 do
if (i in m)and(i<min)then min:=i;
for i:=2 to 255 do
if (i in m)and(i mod min=0) then m:=m-[i];
p:=p+[min];
until m=[];
writeln('Простые числа от 2 до 255');
for i:=2 to 255 do
if i in p then write(i:4);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2016, 22:34

Решето Эратосфена, нужны комментарии
program resheto; const n: Integer = 1000000; var mas: array of Boolean; i,...

Алгоритм " решето Эратосфена"
Выберите из последовательности натуральных чисел от 2 до n(2&lt;n&lt;255) все простые...

Решето Эратосфена
Возможно ли найти простые числа методом решета Эратосфена с помощью вектора за...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru