Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
prissss
1

Проиллюстрировать основные операции над множествами на примере символьных множеств

06.03.2014, 13:25. Показов 1519. Ответов 1
Метки нет (Все метки)

Решите, пожалуйста, задачу по программированию про операции над множествами.
Проиллюстрировать основные операции над множествами на примере символьных множеств. Программа должна состоять из 5 подгрупп:
1. Создание множества.
2. Вывод множества на экран.
3,4,5 - соответствующие операции.

Заранее спасибо тем, кто откликнулся)))!!!

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2014, 13:25
Ответы с готовыми решениями:

Основные операции теории множеств над двумя числовыми множествами
Здравствуйте! Напишите пожалуйста, программу, которая реализует основные операции теории множеств...

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите решить задачку: Используя массивы, реализовать основные операции над...

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите решить задачку: Используя массивы, реализовать основные операции над...

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите решить задачку: Используя массивы, реализовать основные операции над...

1
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
06.03.2014, 14:41 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
38
39
40
41
uses crt;
type mnz=set of char;
procedure init(n:byte;var m:mnz);
var i:byte;
    c:char;
begin
m:=[];
for i:=1 to n do
 begin
  repeat
   c:=char(48+random(75));
  until(c in ['0'..'9','A'..'Z','a'..'z'])and not (c in m);
  m:=m+[c];
 end;
end;
procedure print(m:mnz;s:string);
var c:char;
begin
writeln('Множество ',s);
for c:='0' to 'z' do
if c in m then write(c);
writeln
end;
var a,b,c,d,e:mnz;
begin
clrscr;
init(20,a);
init(30,b);
print(a,'A');
print(b,'B');
//объединение
c:=a+b;
print(c,'A+B');
//рересечение
d:=a*b;
print(d,'A*B');
//разность
e:=a-b;
print(e,'A-B');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2014, 14:41

Используя массивы, реализовать основные операции над множествами
Здравствуйте, помогите, пожалуйста, решить задачку:

Операции над множествами
Выполнить операции над заданными множествами (A Δ B) ∩ C, где A Δ B = (A U B) \ (A ∩...

Операции над множествами
Помогите плиз. №1 A \ C \subseteq №2 B \subseteq A \Rightarrow (A \ B ) \bigcup B=A ...

Операции над множествами
Здравствуйте уважаемые. Нужно найти объединение, пересечение и разницу множеств А и В. a). A =...


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

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

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