| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Pascal ]Множественные типы данных |
| Автор: ma6sha 19.4.2012, 20:10 |
| Дано множество чисел A:[1..25] и B: [5..30]. Найдите подмножество А1 – чисел из А, кратных 6, и В1 – чисел из В, кратных 3. Найдите А1 ∪ В1, А1 ∩ В1, А1\В1 и проверьте, является ли А1 ⊂ В и А1 ⊂ В1. Заранее спасибо=-) |
| Автор: Mirkes 20.4.2012, 21:10 |
| Без языка трудно что-либо сказать. Если Delphi, то все операции по пересечениям и объединениям являются простыми операциями над set. Уточните язык. |
| Автор: ma6sha 21.4.2012, 14:22 |
| Желательно в Pascal ABC В принципе ответ уже есть=-) program AB; uses crt; var A, B, A1, B1: set of BYTE; i: BYTE; begin clrscr; A:= [1..25]; B:= [5..30]; A1:= []; B1:= []; for i:= 1 to 30 do begin if (i in A) and ((i mod 6) = 0) then A1:= A1+[i]; if (i in B) and ((i mod 3) = 0) then B1:= B1+[i]; end; readkey; end. |
| Автор: Mirkes 23.4.2012, 21:42 |
| Для формирования A1 и В1 ничего другого предложить видимо нельзя, поскольку их определение на множественное. Так что все верно. |