pascal [дискретная математика]

[ai\ekcah^p]

Напишите пожалуйста одну операцию для примера. А то не представляю как с этими множествами работать.

Написать программу, в которой для конечных упорядоченных множеств реализовать все основные операции (Объединением,Пересечением,Разность ю,Симметрической разностью) с помощью алгоритма типа слияния . Допустима организация множеств в виде списка или в виде массива.
1. На вход подаются два упорядоченных множества A и B (вводятся с клавиатуры, элементы множеств – буквы латинского алфавита).
2. После ввода множеств выбирается требуемая операция (посредством текстового меню, вводом определенного символа в ответ на запрос – выбор по желанию автора).
3. Программа посредством алгоритма типа слияния определяет результат выбранной операции и выдает его на экран с необходимыми пояснениями. Одновременно с результатом на экране должны присутствовать и исходные множества.
4.Возврат на п.2 (выбор операции).
5. Завершение работы программы – из п.2 (например, по ESC).

[Stilet]

Насколько я помню множества (имеется ввиду тип set) подчиняются обычным арифметическим операциям
+ слияние
- разность

var s,r:set of byte;
begin
 s:=[1,2];
 r:=[2,3]+s;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Вот в хелпе это как раз и описано.

[ai\ekcah^p]

Начал выполнять первый пункт и сразу проблема. Не могу вывести значения множеств А и В на экран. Подскажите как?

Program dm1;
  uses crt;
 Type
  Simvol = set of char;
 Var
  A,B:simvol;
  i:integer;
  x:char;
 begin
 clrscr;

  A:=[];
  B:=[];
  i:=1;
   repeat
    write(' Vvedite ',i,'-y element mnogestva A ');
    readln(x);
    if (x in A)
     then
      begin
       write(x,' uje sodergitsya v mnogestve A ');
       i:=i-1;
      end
     else
      begin
       write(x,' pomeschon v mnogestvo A ');
       A:=A+[x];
      end;
     i:=i+1;
      until i>5;
      i:=1;
       repeat
    write(' Vvedite ',i,'-y element mnogestva B ');
    readln(x);
    if (x in B)
     then
      begin
       write(x,' uje sodergitsya v mnogestve B ');
       i:=i-1;
      end
     else
      begin
       write(x,' pomeschon v mnogestvo B ');
       A:=A+[x];
      end;
     i:=i+1;
    until i>5;

  end.

[Anatole]

Для вывода этого множества на экран можно поступить вот так:

For x :=#01 to #255 do if x in A then Write(x);

[Serge_Bliznykov]

Сообщение от Anatole

Для вывода этого множества на экран можно поступить вот так:

я даже больше скажу — это, пожалуй, единственный способ.

For x :=#01 ...

только неясно, почему от 1-цы...
если есть желание охватить ВСЕ элементы, то надо от нуля плясать:

  For x :=#0 to #255 do if x in A then Write(ord(x),' ');

а если учесть условия (элементы множеств – буквы латинского алфавита) задачи, то можно и ограничиться так:

For x :='A' to 'z' do if x in A then Write(x);

[ai\ekcah^p]

Множества ввожу ,а дальше никак.
Подскажите как правильно процедуры описать,чтобы их можно было в меню вызывать.

Program dm1;
  uses crt;
 Type
  Simvol = set of 'a'..'z';
 Var
  A,B:simvol;
  i:integer;
  x,key:char;
 begin
  A:=[];
  B:=[];
  i:=1;
   repeat
   clrscr;
    writeln(' Vvedite ',i,'-y element mnogestva A ');
    readln(x);
    if (x in A)
     then
      begin
       writeln(x,' uje sodergitsya v mnogestve A ');
       i:=i-1;
      end
     else
      begin
       writeln(x,' pomeschon v mnogestvo A ');
       A:=A+[x];
      end;
     i:=i+1;
      until i>5;
      i:=1;
       repeat
       clrscr;
    writeln(' Vvedite ',i,'-y element mnogestva B ');
    readln(x);
    if (x in B)
     then
      begin
       writeln(x,' uje sodergitsya v mnogestve B ');
       i:=i-1;
      end
     else
      begin
       writeln(x,' pomeschon v mnogestvo B ');
       B:=B+[x];
      end;
     i:=i+1;

    until i>5;
     clrscr;
      writeln('     mnojestvo A: ');
      writeln;
    for x:='A' to 'z' do if x in A then write(x,' ');
      writeln;
      writeln('     mnojestvo B: ');
      writeln;
    for x:='A' to 'z' do if x in B then write(x,' ');
     procedure obyedinenie(c:chat):simvol;
      begin
       C:=A+B;
       writeln(C);
       end;
     procedure perese4enie(c:chat):simvol;
      begin
       C:=A*B;
       writeln(C);
      end;
     procedure raznosty(c:chat):simvol;
      C:=A-B;
      writeln(C);
      repeat
      clrscr;
      writeln('===========================');
      writeln('1: obyedinenie');
      writeln('2: perese4enie');
      writeln('3: simmetr. raznosty');
      writeln('4: raznosty');
      writeln('o: vyhod');
      key:=readkey;
      clrscr;
      case key of
           '1': obyedinenie();
           '2': perese4enie();
           '3': simmetr();
           '4': raznosty();

    until key='0';
  end.

[Anatole]

то надо от нуля плясать:

#0 на экране не отображается и воспринимается как пробел, а это повтор. множество описано как Set of Char;

[ai\ekcah^p]

При вызове функции '1': obyedinenie('C',third_set); vyvod('C',C);end; пишет несоответствие типа. Подскажите как исправить.

Program dm1;
  uses crt;
 Type
  Simvol = set of 'a'..'z';
 Var
  A,B:simvol;
  i:integer;
  x,key:char;
  procedure vvod(name_set:string; var num_elem:integer; var one_set:simvol);
  var x:char;
  begin
          writeln('vvedite ',num_elem,' element mnojestva ',name_set);
          readln(x);
          if (x in one_set)
          then begin
                writeln(x,' uje soderjitsya v mnojestve',name_set);
          end
          else begin
                writeln(x,' pomeschon v mnojestvo',name_set);
                one_set:=one_set+[x];
                num_elem:=num_elem+1;
          end;
   end;
   procedure vyvod(name_set:string;var one_set:simvol);
   var x:char;
   begin
                writeln(' mnojestvo ',name_set);
                for x:='a' to 'z' do if x in A then write(x,' ');
                writeln;
   end;

   procedure obyedinenie(first_set,second_set:simvol; var third_set:simvol);
   begin
                third_set:=first_set+second_set;
   end;
   procedure perese4enie(first_set,second_set:simvol; var third_set:simvol);
   begin
                third_set:=first_set*second_set;
   end;
   procedure raznosty(first_set,second_set:simvol; var third_set:simvol);
   begin
                third_set:=first_set-second_set;
   end;
   begin
                A:=[];
                B:=[];
                i:=1;
                repeat
                        vvod('A',i,A);
                until i>5;
                i:=1;
                repeat
                        vvod('B',i,B);
                until i>5;
                clrscr;
                vyvod('A',A);
                vyvod('B',B);
                repeat
                         clrscr;
                           writeln('===========================');
                           writeln('1: obyedinenie');
                           writeln('2: perese4enie');
                           writeln('3: simmetr. raznosty');
                           writeln('4: raznosty');
                           writeln('o: vyhod');
                           writeln('->');
                           repeat until keyPressed;
                           key:=readkey;
                           case key of
                           '1': obyedinenie('C',third_set); vyvod('C',C);end;
                           '2': perese4enie('C',third_set); vyvod('C',C);end;
                           '3': simmetr('C',third_set);     vyvod('C',C);end;
                           '4': raznosty('C',third_set);    vyvod('C',C);end;
                           end;
                    until ord(key)=ESC;
  end.

[Stilet]

Если память не подводит :

'1': obyedinenie(['C'],third_set); vyvod(['C'],C);end;

[ai\ekcah^p]

процедура объявлена след. образом
procedure obyedinenie(first_set,second_set:si mvol; var tird_set:simvol);
Как правильно записать вызов процедуры obyedinenie ?