Вопрос по информатике:
Опишите множества D1,D2,D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. Выполните над множествами операции объединения, разности и пересечения.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.01.2017 05:48
- Информатика
- remove_red_eye 6947
- thumb_up 70
Ответы и объяснения 1
Program Dafnochka;
uses crt;
type
TypeD=set of 0..10;
var
dr,d1,d2,d3:TypeD;
c:integer;
begin
d1:=[2,4,6,8];
d2:=[0,1,2,3,5];
d3:=[1,3,5,7,9];
{вывод множеств}
writeln('Множество D1:');
for c:=0 to 10 do
if c in d1 then
write (' ',c,' ');
writeln();
writeln();
writeln('Множество D2:');
for c:=0 to 10 do
if c in d2 then
write (' ',c,' ');
writeln();
writeln();
writeln('Множество D3:');
for c:=0 to 10 do
if c in d3 then
write (' ',c,' ');
writeln();
writeln();
{примеры}
dr:=d1+d2;
writeln('Пример 1 - объединение множеств D1 U D2');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
dr:=d2-d3;
writeln();
writeln('Пример 2 - разность множеств D2\D3');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
dr:=d2*d3;
writeln();
writeln('Пример 3 - пересечение множеств D2 П D3');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
end.
- 17.01.2017 13:56
- thumb_up 65
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.