Множество паскаль
Автор Roman задал вопрос в разделе Другие языки и технологии
Множества Pascal и получил лучший ответ
Ответ от Дмитрий Канидьев[гуру]
Тогда уж не "помогите решить", а "решите за меня". Формулируйте вопрос правильно. Если "помогите" - то хотя бы приведите то, что вы УЖЕ сделали и то, где есть затруднения.
Дмитрий Канидьев
(69178)
Компилируется без ошибок? Пошаговое исполнение (Step-by-step) и трассировка с наблюдением за значениями переменных помогает в 99.99% случаев.
Ответ от Gennady[гуру]
А с чего ей считать, если множества не введены?
write('введите элементы множества х1:'); {ну вывел подсказку}
readln(b); {прочтиал байт}
x1:=x1+[b]; {добавил его к множеству и на этом все закончилось}
Надо так
write('введите элементы множества х1:');
while not EOLN do begin
Read(b); {Read, а не ReadLn! и вводить элементы разделенные пробелами}
x1 := x1 + [b];
end;ReadLn; {а вот здесь ReadLn, чтобы очистить строку ввода от CRLF}
Аналогично вводится и второе множество.
И еще. Если в задании нужно выделить множество, кратное трем, то с какого перепуга вы требуете, чтобы элемент был кратен и пяти?
А с чего ей считать, если множества не введены?
write('введите элементы множества х1:'); {ну вывел подсказку}
readln(b); {прочтиал байт}
x1:=x1+[b]; {добавил его к множеству и на этом все закончилось}
Надо так
write('введите элементы множества х1:');
while not EOLN do begin
Read(b); {Read, а не ReadLn! и вводить элементы разделенные пробелами}
x1 := x1 + [b];
end;ReadLn; {а вот здесь ReadLn, чтобы очистить строку ввода от CRLF}
Аналогично вводится и второе множество.
И еще. Если в задании нужно выделить множество, кратное трем, то с какого перепуга вы требуете, чтобы элемент был кратен и пяти?
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Множества Pascal