Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 08.04.2011
Сообщений: 34
1

Получить другое множество, элементами которого являются четные числа

09.04.2011, 11:27. Просмотров 1326. Ответов 1
Метки нет (Все метки)

Пожалуйста помогите решить задачки!
1)Дано множество.Получить другое множество, элементами которого являются четные числа.
2)Даны два множества. Написать программу, показывающую выполнение основных операций над множеством(обьединение,разность,пересечение).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2011, 11:27
Ответы с готовыми решениями:

Множество. Построить множество, элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество Дана последовательность символов. Построить и напечатать множество,...

Построить множество, элементами которого являются символы от А до К и от 10 до 20
Program mn; uses crt; var A, S: set of char; i: char; begin clrscr; S:=; ...

Распечатать множество элементами которого являются буквы
Помогите написать программу на множества.Надо ввести строку символов.Распечатать множество...

Построить множество, элементами которого являются символы от A до F и от X до Z из последовательности
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами...

1
Модератор
62275 / 46552 / 32089
Регистрация: 18.05.2008
Сообщений: 112,540
10.04.2011, 09:46 2
Лучший ответ Сообщение было отмечено KYRMAZ как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var m1,m2:set of byte;
    i:byte;
begin
clrscr;
m1:=[1..20];
m2:=[];
writeln('Исходное множество:');
for i:=1 to 20 do
if i in m1 then
 begin
  write(i:3);
  if i mod 2=0 then m2:=m2+[i];
 end;
writeln;
if m2=[] then write('Четных чисел нет')
else
 begin
  writeln('Множество четных чисел:');
  for i:=2 to 20 do
  if i in m2 then write(i:3);
 end;
readln
end.
Добавлено через 7 минут
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
var m1,m2,ob,rz,pr:set of byte;
    i:byte;
begin
clrscr;
m1:=[1..20];
m2:=[12..25];
writeln('Первое множество:');
for i:=0 to 225 do
if i in m1 then
write(i:3);
writeln;
writeln('Второе множество:');
for i:=0 to 255 do
if i in m2 then
write(i:3);
writeln;
ob:=m1+m2;
writeln('Объединение множеств:');
for i:=0 to 255 do
if i in ob then
write(i:3);
writeln;
rz:=m1-m2;
writeln('Разность множеств:');
for i:=0 to 255 do
if i in rz then
write(i:3);
writeln;
pr:=m1*m2;
writeln('Пересечение множеств:');
for i:=0 to 255 do
if i in pr then
write(i:3);
writeln;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2011, 09:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Построить множество с элементами, и символами которого являются цифры от 1 до 5
С клавиатуры вводим произвольный набор символов. Требуется построить множество с элементами, и...

Напечатать множество, элементами которого являются встречающиеся в последовательности буквы от ‘T’ до ‘X’
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами...

Построить и распечатать множество с элементами, символами которого являются цифры
Не понимаю, что обозначают звездочки возле цифр. Обыскала все, что могла - ответа не нашла. Может...

Сформировать множество элементами которого являются встречающиеся в последовательности цифры от 0 до 9
Сформировать множество в паскале элементами которого являются встречающиеся в последовательности...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.