Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите решить задачу ("решета" Эротосфена), Задача, которую нужно решить (( 
V
    Опции темы
LolaBridgit
  Дата 2.5.2009, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.5.2009

Репутация: нет
Всего: нет
Всем привет, вот выбилась из сил решая эту задачку. Ну точнее говоря не зная как её решить.
ПОМОГИТЕ кто соображает в паскале плиз.

Условие: "Найти 23 простое шести разрядное число " Алгоритм решета Эротосфена.
И написать програмульку на Паскале.
PM MAIL   Вверх
LolaBridgit
Дата 2.5.2009, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.5.2009

Репутация: нет
Всего: нет
В двух словах:  задача - создать список ВСЕХ шестизначных чисел, а потом вычеркивать из него то, что делится на 2, 3, 5, 7 и так далее до тех пор, пока либо в списке не останутся только простые числа, НЕ делящиеся ни на что, кроме себя и 1-цы, либо до тех пор, пока первые 23 числа в списке не будут простыми.

Может кто ни-будь сможет написать код?
PM MAIL   Вверх
LolaBridgit
Дата 3.5.2009, 02:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.5.2009

Репутация: нет
Всего: нет
СПАСИБО что помогли...
Решена вот код может пригодится

Код

Program resheto;
uses crt;
const
n = 999999; { Это можно и уменьшить, взят граничный случай}
var
a: array[1 .. n] of longint; {создаём массив от 1 до 999999 }
i, j, s, count: longint;

begin
for i := 1 to n do a[i] := i; {заполняем массив }
a[1] := 0;

for s := 2 to pred(n) do begin
if a[s] <> 0 then begin
j := s * 2;
while j < n do begin
a[j] := 0;
j := j + s;
end;
end;
end;

count := 0;
i := 100000;
while count < 26 do begin
if a[i] > 0 then inc(count);
inc(i);
end;
writeln(a[i - 1]);
end. 
PM MAIL   Вверх
volvo877
Дата 3.5.2009, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(LolaBridgit @  2.5.2009,  21:46 Найти цитируемый пост)
В двух словах:  задача - создать список ВСЕХ шестизначных чисел, а потом вычеркивать из него то, что делится на 2, 3, 5, 7 и так далее до тех пор, пока либо в списке не останутся только простые числа, НЕ делящиеся ни на что, кроме себя и 1-цы, либо до тех пор, пока первые 23 числа в списке не будут простыми.
Где-то я это видел уже буквально вчера. Ты ж хотя бы ссылку давай, откуда копируешь...
PM MAIL   Вверх
LolaBridgit
Дата 3.5.2009, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 2.5.2009

Репутация: нет
Всего: нет
это я братику любимому помогала, но он и сам разобрался, точнее ему помогли на форуме ИСХОДНИКИ.КU 
PM MAIL   Вверх
bems
Дата 3.5.2009, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88
КU


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0441 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.