IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задачка на Решето Эратосфена, Всё ли правильно в блок-схеме?
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +



 ! 
.doc удален, читаем правила. Дибо текст либо графика


Дано натуральное число n (n>=2). Найти все меньшие n простые числа, используя решето Эратосфена.
Решетом Эратосфена называют следующий способ. Выпишем подряд все целые числа от 2 до n. Первое простое число 2. Подчеркнем его, а все большие числа, кратные 2, зачеркнем. Первое (меньшее) из оставшихся чисел 3. Подчеркнем его как простое, а все большие числа, кратные 3, зачеркнем. Первое из оставшихся чисел теперь 5, так как 4 уже зачеркнуто. Подчеркнем 5 как простое, а все большие числа , кратные 5, зачеркнем и т. д.
2,3,4,5,6,7,8,9,10,11 [1,№557]


Код Delphi :

var n,i,k:integer;
b : array of boolean;
begin
writeln('input n: ');
read(n);
SetLength(b, n);
for i:=2 to n do b[i]:=true;
i:=2;
repeat
k:=i;
repeat
i:=i+k;
b[i]:=false;
until i>n;
i:=k+1;
until i>n;
for i:=2 to n do
if b[i]=true then write(i,' ');
readln;
readln;
end.


Всё ли правильно в блок схеме? (прикрепил)


.

Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.09.2020 2:22
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name