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

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

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

 
 Ответить  Открыть новую тему 
> Множества. Получить все простые числа
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Женский
Реальное имя: Ольга

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


Помогите пожалуйста дописать программу и проверьте написанное. Условие такое:
Даны целые числа от 8 до 22. Получить все простые числа из этого диапазона и все остальные.
Насчет всех простых программа работает правильно, а вот куда добавить разницу множеств, чтобы она считала"все остальные?"


Прикрепленные файлы
Прикрепленный файл  LAB7.PAS ( 580 байт ) Кол-во скачиваний: 132
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

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

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


program lab7;
uses crt;
const
mn=22;
type
setN=set of 1..mn;
var
startSet,simpleSet:setN;
n1,next,i:word;
begin
clrscr;
startSet:=[2..mn];
simpleSet:=[1];
next:=2;
while startSet <> [ ] do
begin
n1:=next;
while n1<=mn do
begin
exclude(startSet,n1);
n1:=n1+next;
end;
include(simpleSet,next);
repeat
next:=next+1;
until(next in startSet) or (next>mn)
end;
for i:=8 to mn do
if i in simpleSet
then
write(i:8);
writeln;
startSet:=[8..mn];

for i:=8 to mn do
if i in simpleset then
begin
exclude(startset,i);
end;
for i:=8 to mn do
if i in startset then
begin
write(i:8);
end;

writeln;
readln;
end.


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


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Женский
Реальное имя: Ольга

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


Спасибо огромное. Я была на верном пути.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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