работа с множествами

помогите, пожалуйста, составить программу

В каждом из 3-х вузов может изучаться множество языков программирования: basic, pascal, prolog, clipper, cu, logo. Ввести с клавиатуры множество языков, изучаемых в каждом из вузов. Построить множество В, содержащее названия языков, изучаемых только в одном из 3-х вузов.

Цитата

Ввести с клавиатуры множество языков, изучаемых в каждом из вузов.

Можно так попробовать:

type
  language=(basic, pascal, prolog, clipper, c, logo);
var
  a,b,d:set of language;
  s:string;
begin
  a:=[];
  readln(s);
  if s='pascal' then
    include(a,pascal);
end.

Сообщение отредактировано: Булат Шакиров - 27.11.13, 08:56

Цитата Булат Шакиров @ 27.11.13, 08:53

Цитата

Ввести с клавиатуры множество языков, изучаемых в каждом из вузов.

Можно так попробовать:

type
  language=(basic, pascal, prolog, clipper, c, logo);
var
  a,b,d:set of language;
  s:string;
begin
  a:=[];
  readln(s);
  if s='pascal' then
    include(a,pascal);
end.

[attach=#0][/attach]что то мне не понятно то, что вы написали.
я вот начал писать программу, но не знаю как закончить, там нужно условие написать, чтобы строилось множество языков изучаемых только в одном из 3-х вузов.
может подскажите как?
вот прога:

А что именно непонятно?

Цитата Булат Шакиров @ 27.11.13, 09:25

include(a,pascal)

ну это же не вся программа, как я понимаю?
и что делает вот эта команда: include(a,pascal) ?

Цитата

Построить множество В, содержащее названия языков, изучаемых только в одном из 3-х вузов.

А как вы его строите?

Добавлено 27.11.13, 09:31
Нет, конечно, только пример.
Include включает элемент во множество

Цитата Булат Шакиров @ 27.11.13, 09:30

А как вы его строите?

я вот так начал программу Прикреплённый файл____________________3.jpg (62,79 Кбайт, скачиваний: 358)
а вот как построить это множество как раз таки и не знаю...

Например так

type
  language=(basic, pascal, prolog, clipper, c, logo);
var
  a,b,d:set of language;
begin
  a:=[];
  d:=[];
  include(a,pascal);
  d:=a+[logo];
  if a>=d then
    b:=a-d
  else
    b:=d-a;
end.

В 1-м вузе изучают basic, pascal, во втором изучают тоже самое + logo
В b будет только logo
Прикреплённый файл____________________.png (78,03 Кбайт, скачиваний: 506)

Сообщение отредактировано: Булат Шакиров - 27.11.13, 10:03

Цитата Булат Шакиров @ 27.11.13, 10:02

спасибо, попробую сделать

Попробуйте еще такой вариант:

b:=exclude(a+d,a*d);

Пусть a - множество из basic, logo; d - basic, logo,c;
Тогда обьединение множеств (+) даст basic,logo,c; а пересечение (*) basic, logo;
Исключение из обьединения множеств его пересечения даст элемент c

Добавлено 27.11.13, 10:53
Не проверял, могу ошибаться.

Цитата Булат Шакиров @ 27.11.13, 10:53

Пусть a - множество из basic, logo; d - basic, logo,c;
Тогда обьединение множеств (+) даст basic,logo,c; а пересечение (*) basic, logo;
Исключение из обьединения множеств его пересечения даст элемент c

это все применимо в том варианте, который я начал писать? или надо с начала программу по новому писать?

А проверьте на своем варианте;

b:=exclude(t[1]+t[2]+t[3],t[1]*t[2]*t[3]);

Добавлено 27.11.13, 11:03
Не t конечно, a m

Добавлено 27.11.13, 11:05
И не b, а g например.

Цитата Булат Шакиров @ 27.11.13, 11:02

А проверьте на своем варианте;

b:=exclude(t[1]+t[2]+t[3],t[1]*t[2]*t[3]);

неправильно выводит результат

В смысле? Паскаль не умеет выводить элементы множества.

Цитата Булат Шакиров @ 27.11.13, 11:11

В смысле? Паскаль не умеет выводить элементы множества.

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