Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]., Сформировать новое множество Y= (X1X2) (X2X3) |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]., Сформировать новое множество Y= (X1X2) (X2X3) |
-lastarmyman- |
Сообщение
#1
|
Гость |
Даны три множества X1, X2, X3, содержащие целые числа из диапазона [1..100]. Сформировать новое множество Y= (X1X2) (X2X3), из которого выделить подмножество чисел, кратных 6.
Помогите плиз... |
Гость |
Сообщение
#2
|
Гость |
|
volvo |
Сообщение
#3
|
Гость |
Var X1, X2, X3, R, R6: Set of byte;Вторую часть (выделение подмножества элементов, кратных 6) можно сделать по другому: i := 0; R6 := []; |
Александр Капитонов |
Сообщение
#4
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
А как заполнить множества значениями???
|
Atos |
Сообщение
#5
|
Прогрессор Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: 9 |
функцией include
|
Александр Капитонов |
Сообщение
#6
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
функцией include Код Program zad9; uses crt; Var X1, X2, X3, R, R6: Set of byte; i,s:integer; const n=100; begin clrscr; for s:=1 to n do begin include(X1,random(100)); include(X2,random(100)); include(X3,random(100)); end; R := (X1 + X2) * (X2 + X3); R6 := []; for i := 1 to 100 do if (i in R) and (i mod 6 = 0) then write(i:5); R6 := R6 + [ i ]; readkey; end. Скажите пожалуйста это правильно? |
Atos |
Сообщение
#7
|
Прогрессор Группа: Пользователи Сообщений: 602 Пол: Мужской Реальное имя: Михаил Репутация: 9 |
в последнем цикле ты begin end забыл. А так, вроде, правильно.
{цикл while, который предлагал volvo, более оптимален по времени, но в данном случае это не критично} |
Александр Капитонов |
Сообщение
#8
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Реальное имя: Александр Репутация: 0 |
|
Текстовая версия | 12.12.2024 2:11 |