построить пересечение последовательностей

@BOUH_TbMbI · Регистрация: 14.02.2011

Студворк — интернет-сервис помощи студентам

Даны натуральные числа n и m, целые числа a1,...am и b1,...,bn. Среди элементов этих последовательностей нет повторяющихся чисел.
а) построить пересечение последовательностей a1,...,am и b1,...,bn;
б) получить все элементы последовательности b1,...,bn, которые не входят в последовательности a1,...,am.

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

@Ultim[a]te · 31.03.2011, 02:52

Pascal

uses Crt;
var n,m:integer;
    a,b:set of integer;
begin
writeln('Введите n and m');
repeat
  read(m,n);
  a:=a+[n];
  b:=b+[m];
  writeln('Для завершения ввода нажмите Esc');
until readkey=#27;  
  writeln('Пересечение множеств=',a*b);
  writeln('Не входят в множество а-->',a-b);
end.

@BOUH_TbMbI · 31.03.2011, 18:00 **[ТС]**

не работает...множество на базе недопустимого типа выдаёт ошибку

@Ultim[a]te · 31.03.2011, 21:22

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

не работает...множество на базе недопустимого типа выдаёт ошибку

Код для BP, TP:

Pascal

uses Crt;
var n,m:integer;
   c,z,a,b:set of 0..255;
begin
writeln('Введите n and m');
repeat
  read(m,n);
  a:=a+[n];
  b:=b+[m];
  writeln('Для завершения ввода нажмите Esc');
until readkey=#27;
  z:=a*b;
  c:=a-b;
  readln;
end.

Этот код будет точно работать, но в TP с множествами нельзя использовать write/writeln и множество должно содержать не более 255 элементов, поэтому увидеть то что получилось в множестве можно только через отладчик, посмотрев переменные z,c...
n и m должны быть не меньше 0 и не больше 255;
Если хочешь без отладчика, то тогда PascalABCNET и предыдущий мой код.

@BOUH_TbMbI 36 / 17 / 9 Регистрация: 14.02.2011 Сообщений: 169
		1
	построить пересечение последовательностей 30.03.2011, 22:52. Показов 1906. Ответов 3 Метки нет (Все метки) Даны натуральные числа n и m, целые числа a1,...am и b1,...,bn. Среди элементов этих последовательностей нет повторяющихся чисел. а) построить пересечение последовательностей a1,...,am и b1,...,bn; б) получить все элементы последовательности b1,...,bn, которые не входят в последовательности a1,...,am. Помогите пожалуйста составить программу. 0

@BOUH_TbMbI 36 / 17 / 9 Регистрация: 14.02.2011 Сообщений: 169
	31.03.2011, 18:00 [ТС]	3
	не работает...множество на базе недопустимого типа выдаёт ошибку 0

Опции темы