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

Хорошо, сейчас проверю.

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

пишет, что ошибка в выражении. курсор мигает на начале слова exclude

Все правильно. И должно мигать. Exclude исключает один элемент из множества. Косяк мой.

вот так работает

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

Добавлено 27.11.13, 11:30
То есть нужно найти объединение множеств, затем из него вычесть пересечение.
проверяйте на своих данных

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

То есть нужно найти объединение множеств, затем из него вычесть пересечение.
проверяйте на своих данных

пробую
пока что то не выходит

Бросьте сюда код

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

Бросьте сюда код

program gr;
        uses crt;
type s=(basik, paskal, prolog, cu, logo);
     x=set of s;
     yaz=array[1..5] of x;
var i:s;
    m:yaz;
    g,t,t1,t2,t3,t4:x;
    k,j:integer;
begin
     clrscr;
     writeln('1 basic');
     writeln('2 paskal');
     writeln('3 prolog');
     writeln('4 cu');
     writeln('5 logo');
     for j:=1 to 3 do
         begin
         t:=[];
         write('‚введите номера для',j,'-го вуза ');
         repeat
               read(k);
         case k of
         1:i:=basik;
         2:i:=paskal;
         3:i:=prolog;
         4:i:=cu;
         5:i:=logo;
         end;
         t:=t+[i];
         until
              eoln;
         m[j]:=t;
         end;

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

Да. Поковыряюсь. Проверяйте

Добавлено 27.11.13, 14:05

program gr;
  uses crt;
type
  s=(basik, paskal, prolog, cu, logo);
  x=set of s;
  yaz=array[1..5] of x;
 
var
  i:s;
  m:yaz;
  g,t,t1,t2,t3,t4:x;
  k,j:integer;
  b:byte;
begin
  clrscr;
  writeln('1 basic');
  writeln('2 paskal');
  writeln('3 prolog');
  writeln('4 cu');
  writeln('5 logo');
  writeln('любая клавиша следущий вуз');
 
  for j:=1 to 3 do
    begin
      t:=[];
      write('введите номера для ',j,'-го вуза ');
      repeat
        read(k);
        case k of
          1:t:=t+[basik];
          2:t:=t+[paskal];
          3:include(t,prolog);
          4:t:=t+[cu];
          5:t:=t+[logo]
 
        else
          break;
        end;
      until false;
      b:=sizeof(t);
      m[j]:=t;
      t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);
    end;
end.

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

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

Проверяйте

не работает((( ошибку выдает

program gr;
  uses crt;
type
  s=(basik, paskal, prolog, cu, logo);
  x=set of s;
  yaz=array[1..5] of x;
 
var
  i:s;
  m:yaz;
  g,t,t1,t2,t3,t4:x;
  k,j:integer;
  b:byte;
begin
  clrscr;
  writeln('1 basic');
  writeln('2 paskal');
  writeln('3 prolog');
  writeln('4 cu');
  writeln('5 logo');
  writeln('любая клавиша следущий вуз');
 
  for j:=1 to 3 do
    begin
      t:=[];
      write('введите номера для ',j,'-го вуза ');
      repeat
        read(k);
        case k of
          1:t:=t+[basik];                   <------- здесь выдает ошибку, несоответствие типа.
          2:t:=t+[paskal];
          3:include(t,prolog);
          4:t:=t+[cu];
          5:t:=t+[logo]
 
        else
          break;
        end;
      until false;
      b:=sizeof(t);
      m[j]:=t;
      t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);
    end;
end.

Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

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

Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

смотрите в пред сообщении, я в программе пометил где ошибка

Добавлено 28.11.13, 08:42

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

Какую ошибку? Чего пишет? У меня в fpc отработал нормально.

1:t:=t+[basik]; <------- здесь выдает ошибку, несоответствие типа.

Попробуйте
Include(t, basik);

Добавлено 28.11.13, 09:13
Что за паскаль у вас? Какой-то странный. По виду вроде турбо, но с русским меню. Скачайте современный компилятор.

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

Попробуйте
Include(t, basik);

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

Добавлено 28.11.13, 09:20

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

Что за паскаль у вас? Какой-то странный. По виду вроде турбо, но с русским меню. Скачайте современный компилятор.

Dos Box: турбо паскаль. у меня
на винде 8 вроде только он работает просто

Элементы множества нельзя выводить на экран. Исхитриться можно так:
http://comp-science.narod.ru/Progr/mn.htm
Посмотрите процедуру print

Современые компилятор паскаля - freepascal.org

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

Элементы множества нельзя выводить на экран.

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

Добавлено 28.11.13, 09:38

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

Посмотрите процедуру print

хорошо. щас посмотрю

Добавлено 28.11.13, 10:26

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

Элементы множества нельзя выводить на экран. Исхитриться можно так:
http://comp-science.narod.ru/Progr/mn.htm
Посмотрите процедуру print

что то все равно не получается(

Счас поковыряюсь

Добавлено 28.11.13, 11:43

program gr;
  uses crt;
type
  s=(basik, paskal, prolog, cu, logo);
  names=array [s] of string[20];
  x=set of s;
  yaz=array[1..5] of x;
const
  NamesStr : Names =('basik', 'paskal', 'prolog', 'cu', 'logo');
var
  i:s;
  m:yaz;
  g,t,t1,t2,t3,t4:x;
  k,j:integer;
begin
  clrscr;
  writeln('1 basic');
  writeln('2 paskal');
  writeln('3 prolog');
  writeln('4 cu');
  writeln('5 logo');
  writeln('любая клавиша следущий вуз');
 
  for j:=1 to 3 do
    begin
      t:=[];
      write('введите номера для ',j,'-го вуза ');
      repeat
        read(k);
        case k of
          1:include(t,basik);
          2:include(t,paskal);
          3:include(t,prolog);
          4:include(t,cu);
          5:include(t,logo)
 
        else
          break;
        end;
      until false;
      m[j]:=t;
      t4:=(m[1]+m[2]+m[3])-(m[1]*m[2]*m[3]);
    end;
    for i:=basik to logo do
      if i in t4 then
        writeln(NamesStr[(i)]);
end.