|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.05.2016, 14:46 | #1 (permalink) |
Новичок
Регистрация: 06.05.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, с программой в Паскаль
Даны три множества : Х1,состоящее из целых чисел от1 до 20; Х2,состоящее из целых чисел от 10 до 36; и Х3,которое включает все нечетные целые числа от 11 до 77.Сформировать множество Y=(X1UX2) ⋂(X1UX3)\(X2UX3),из которого выделить подмножество Y1 чисел,делящихся на 4 без остатка.Вывести множества Y,Y1 в текстовый файл.Исходные множества задать в программе . |
06.05.2016, 14:46 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие темы на форуме уже были, рекомендую к прочтению Помогите пожалуйста с программой на строки. Паскаль Помогите, пожалуйста, с программой. Паскаль Помогите, пожалуйста, с программой |
06.05.2016, 15:40 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var X1,X2,X3,Y,Y1:Set of Byte; i:Byte; f:Text; Begin X1:=[]; X2:=[]; X3:=[]; for i:=1 to 20 do X1:=X1+[i]; for i:=10 to 36 do X2:=X2+[i]; for i:=5 to 38 do X3:=X3+[2*i+1]; Y:=(X1+X2)*(X1+X3)-(X2+X3); Y1:=[]; for i:=1 to 77 do if (i in Y) and ((i mod 4)=0) then Y1:=Y1+[i]; Assign(f,'Sets.txt'); Rewrite(f); Write(f, 'Set Y: '); for i:=1 to 77 do if (i in Y) then write(f,i:4); Writeln(f); Write(f, 'Set Y1: '); for i:=1 to 77 do if (i in Y1) then write(f,i:4); Close(f); End. |
|
06.05.2016, 17:41 | #3 (permalink) |
Новичок
Регистрация: 06.05.2016
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо за помощь
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|