Сформировать два множества

[pascal_luzer]

Сформировать два множества. Первое множество содержит следующие элементы: 1, 17, 2, 27, 3, 37, 4, 47, 5, 57, 6, 67, 7, 77. Второе множество должно быть введено пользователем. Распечатать оба множества. Вывести на экран все элементы принадлежащие хотя бы одному из множеств.

[BDA]

uses
  CRT;

var
  a, b: set of byte;
  n, i, k: byte;

begin
  a := [1, 17, 2, 27, 3, 37, 4, 47, 5, 57, 6, 67, 7, 77];
  b := [];
  write('Input count of elements in B set: ');
  readln(n);
  for i := 1 to n do
  begin
    read(k);
    b := b + [k];
  end;
  writeln;
  writeln('Elements in A set:');
  for i := 0 to 255 do
    if i in a then
      write(i, ' ');
  writeln;
  writeln('Elements in B set:');
  for i := 0 to 255 do
    if i in b then
      write(i, ' ');
  writeln;
  writeln('Elements in A or B set:');
  for i := 0 to 255 do
    if (i in a) or (i in b) then
      write(i, ' ');  
  readln;
end.

[Paster Fob]

type tset=set of byte;

procedure readset(var afile:text;var aset:tset);
var n:byte;
begin
  while not eoln(afile) do begin
    read(afile,n);
    aset:=aset+[n];
  end;
  readln(afile);
end;

procedure writeset(var afile:text;var aset:tset);
var n:byte;
begin
  for n:=1 to 255 do
    if n in aset then
      write(afile,n:4);
  writeln(afile);
end;

var sn,sen,asn,asen:tset;
    f:text;

begin
  assign(f,'');
  reset(f);
  sn:=[1,17,2,27,3,37,4,47,5,57,6,67,7,77];
  sen:=[];
  readset(f,sen);
  close(f);
  assign(f,'');
  rewrite(f);
  writeln('1-ое множество');
  writeset(f,sn);
  writeln('2-ое множество');
  writeset(f,sen);
  writeln('элементы входящие только в 1-ое множество');
  asn:=sn-(sn*sen);
  writeset(f,asn);
  writeln('элементы входящие только во 2-е множество');
  asen:=sen-(sn*sen);
  writeset(f,asen);
  writeln('элементы входящие в оба множества');
  asen:=sn*sen;
  writeset(f,asen);
  close(f);
  readln
end.

[Paster Fob]

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

uses
  CRT;

var
  a, b: set of byte;
  n, i, k: byte;

begin
  a := [1, 17, 2, 27, 3, 37, 4, 47, 5, 57, 6, 67, 7, 77];
  b := [];
  write('Input count of elements in B set: ');
  readln(n);
  for i := 1 to n do
  begin
    read(k);
    b := b + [k];
  end;
  writeln;
  writeln('Elements in A set:');
  for i := 0 to 255 do
    if i in a then
      write(i, ' ');
  writeln;
  writeln('Elements in B set:');
  for i := 0 to 255 do
    if i in b then
      write(i, ' ');
  writeln;
  writeln('Elements in A or B set:');
  for i := 0 to 255 do
    if (i in a) or (i in b) then
      write(i, ' ');  
  readln;
end.

ваш код кстати не много криво работает.

[BDA]

Paster Fob, в чем выражается "кривость" работы?

[Paster Fob]

мне не понятно как вводить элементы,набираю жму enter ,но нифига не происходит,программа ждёт дальнейшего ввода.

[BDA]

От того, что вам не понятно, как вводить, программа кривее не становится
Сначала программа запрашивает n (Input count of elements in B set), а потом n чисел (они должны быть от 0 до 255).

4
1 100 4 80

[Paster Fob]

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

От того, что вам не понятно, как вводить, программа кривее не становится
Сначала программа запрашивает n (Input count of elements in B set), а потом n чисел (они должны быть от 0 до 255).

я просто не разобрался в вашем коде.
задание понял,сделал полностью,свой код исправил, зацените.

[BDA]

Paster Fob, теперь разобрались?
В вашем коде лучше указать как комментарий, что имя файла нужно написать свое:

assign(f,'');//свой файл

все элементы принадлежащие хотя бы одному из множеств

- обозначает, что элементы принадлежат объединению множеств sn и sen.

[Paster Fob]

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

Paster Fobобозначает, что элементы принадлежат объединению множеств sn и sen.

что-то не похоже на это,или надо норм. вопрос задавать.Такое ощущение что в заданиях спец. вопрос ставят так,что бы запутать.
Подправил код.

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

Paster Fob, теперь разобрались?
В вашем коде лучше указать как комментарий, что имя файла нужно написать свое:

assign(f,'');//свой файл

Не понял зачем комментарий.Файловая переменная связана с экраном,читает данные введённые пользователем и выводит на экран результат работы программы.К файлу путь указывать не надо.