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

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

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

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


Пионер
**

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

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


всем привет!
есть 4 авто салона и всего 20 марок автомобилей!
надо сделать чтоб показывались марки (набор авто) которые есть сейчас в каждом из салонов! чтобы можно было добовлять удалять марку, какие из тех 20 марок отсутствуют везде, какие есть во всех салонах и выводить которые есть только в данном салоне И СДЕЛАТЬ ВЫБОРКУ АВТОМОБиЛЕЙ КОТОРЫЕ ЕСТЬ В САЛОНЕ (я не совсем понил что значит и что надо сделать в последнем пункте!)

помогите пожалуйста!))))

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


Гость






Ну, здесь насколько я понимаю, задача именно в отработке операций над множествами? Что есть "сложение" множеств знаешь? "Умножение"? "Вычитание"?

Здесь: FAQ: Множества
я об этом рассказывал. А программы, реализующие все эти операции, есть здесь:
Работа с множествами
Множества (магазины)

(тебе нужно только разобраться, как это работает, и сделать программу по своему условию...)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

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

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


запутался я окончательно!

program mnojestvo;
digits = set of 0..20;
var
A:set of digits;
B:set of digits;
c: set of digits;
d:set of digits;

так задавать множество!?
как мне их саполнить!? и как сделать чтоб они сравнивались!?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Type TMySet = set of 0 .. 19; { 20 марок автомобилей }
Var
saloon: array[1 .. 4] of TMySet; { 4 салона }
InAll: TMySet;
i: integer;
Begin
{ в первом салоне есть автомобили марок 1, 3, 6, 7, 8, 9, 10, 11 и 15 }
saloon[1] := [1, 3, 6 .. 11, 15];
...
{ аналогично заполняешь остальные салоны }

{ найдем автомобили, содержащиеся во ВСЕХ салонах: }
InAll := [0 .. 19]; { все возможные марки }
For i := 1 to 4 do InAll := InAll * saloon[i];
{ теперь в InAll перечислены только те марки, которые есть везде }

End.

Я же дал ссылку на решенные задачи. Второй раз переписывать все подряд я не собираюсь.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

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

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


Type TMySet = set of 0 .. 19; { 20  }
Var
saloon: array[1 .. 4] of TMySet; { 4 }
InAll: TMySet;
i: integer;
Begin

saloon[1] := [1, 3, 6 .. 11, 15];
saloon[2] := [2, 4, 6 .. 13, 19];
saloon[3] := [1, 4, 8 .. 11, 18];
saloon[4] := [1, 7, 9 .. 15, 16];

InAll := [0 .. 19];
For i := 1 to 4 do InAll := InAll * saloon[i];

End.
а как вывести результат!?

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


Гость






Ты по ссылке во втором посте ходил? Там написано, что множества выводятся только через полный перебор возможных значений... В цикле, короче...

For i := 0 to 19 do
if i in InAll Then Write(i:3);
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Пионер
**

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

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


program mnoj;
Type TMySet = set of 0 .. 19; { 20 }

Var
saloon: array[1 .. 4] of TMySet; { 4 }
InAll: TMySet;
i: integer;
Begin

saloon[1] := [1, 3, 6 .. 11, 15];
saloon[2] := [2, 4, 6 .. 13, 19];
saloon[3] := [1, 4, 8 .. 11, 18];
saloon[4] := [1, 7, 9 .. 15, 16];

InAll := [0 .. 19];
For i := 1 to 4 do InAll := InAll * saloon[i];

For i := 0 to 19 do
if i in InAll Then Write(i:3);
End.


так получается!? потом тоже самое только * заменяется + и -!?
что-то неработает!((((

хелп ми пиззззззззз!))) мне позарес надо до субботы с этой задачей что нибуть сообразить! помаги пожалуйста!!!))))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата(Ostin @ 26.04.2006 18:54)
потом тоже самое только * заменяется + и -!?

smile.gif Если бы все было так просто...

Я больше ничего тебе отвечать не буду. Ты упорно игнорируешь мои предыдущие посты. Я привел ВСЕ ссылки, которые тебе нужны. Больше добавить нечего. Повторяю еще раз - я опять все переписывать не буду!!! Причем, заметь, переписывать из тех постов, на которые приведены ссылки! И переписывать практически один в один.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Пионер
**

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

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


я все прочитал!(((
я чет ни как не пойму!(((( у меня ни это часть не работает не чего не выводится ни та программа про магазин не работает!((((
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Гость






Не понял... Что у тебя не выводится? В программе из твоего же 7-го поста не печатается ответ:
9 10 11
?
blink.gif Значит у тебя что-то с Паскалем... У меня вот эта программа откомпилировалась тремя разными компиляторами, и отработала после этого...
program mnoj;
Type TMySet = set of 0 .. 19; { 20 }

Var
saloon: array[1 .. 4] of TMySet; { 4 }
InAll, InNone: TMySet;
i: integer;
Begin

saloon[1] := [1, 3, 6 .. 11, 15];
saloon[2] := [2, 4, 6 .. 13, 19];
saloon[3] := [1, 4, 8 .. 11, 18];
saloon[4] := [1, 7, 9 .. 15, 16];

InAll := [0 .. 19]; InNone := [0 .. 19];

For i := 1 to 4 do begin
InAll := InAll * saloon[i];
InNone := InNone - saloon[i];
end;

Write('in all: ');
For i := 0 to 19 do
if i in InAll Then Write(i:3);
Writeln;

Write('in none: ');
For i := 0 to 19 do
if i in InNone Then Write(i:3);
Writeln;
readln;
End.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Пионер
**

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

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


program mnoj;
uses crt;
Type TMySet = set of 0 .. 19; { 20 }

Var
saloon: array[1 .. 4] of TMySet; { 4 }
InAll, InNone: TMySet;
i: integer;
Begin
clrscr;
saloon[1] := [1, 3, 6 .. 11, 15];
saloon[2] := [1,2, 4, 6 .. 13, 19];
saloon[3] := [1, 4, 8 .. 11, 18];
saloon[4] := [1, 7, 9 .. 15, 16];

InAll := [0 .. 19]; InNone := [0 .. 19];

For i := 1 to 4 do begin
InAll := InAll * saloon[i];
InNone := InNone - saloon[i];
end;

Write('saloon[1]: ');
For i := 0 to 19 do
if i in saloon[1] Then Write(i:3);
Writeln;

Write('saloon[2]: ');
For i := 0 to 19 do
if i in saloon[2] Then Write(i:3);
Writeln;

Write('saloon[3]: ');
For i := 0 to 19 do
if i in saloon[3] Then Write(i:3);
Writeln;

Write('saloon[4]: ');
For i := 0 to 19 do
if i in saloon[4] Then Write(i:3);
Writeln;

writeln(' ');

Write('in all: ');
For i := 0 to 19 do
if i in InAll Then Write(i:3);
Writeln;



Write('in none: ');
For i := 0 to 19 do
if i in InNone Then Write(i:3);
Writeln;
readln;

End.


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


Пионер
**

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

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


это не задача а сплошное мучение unsure.gif
как мне сделать чтоб можно было добавлять марки и удалять!? пожалуйста подскажите! !mol1.gif

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


Пионер
**

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

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


в задаче про магазины нет добавления и удаления продуктов! подскажите и обьедините эти 3 сообшения в одно пизззззззззззззз!)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 




- Текстовая версия 18.12.2017 11:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"