Помогите, пожалуйста, написать программу в Паскаль по теме "Множества"

[SArtem]

Ввести числа N1, N2: 0<N1<N2< 200. Организовать ввод чисел в произвольном порядке с проверкой на попадание в диапазон N1…N2 и с запрещением ввода дубликатов. По окончании ввода (ввод нуля) напечатать введенные значения в порядке убывания.

Заранее спасибо!

[Stilet]

Сам как решать предполагаешь?

[SArtem]

Я что-то эту тему плохо понимаю А понять хочется! Незнаю даже толком с чего начать
Может быть как-то так?

Program ex;
uses crt;
type
A=set of byte;
var b:array [1..200] of A;
N1, N2:real;
begin
write('vvedite N1');
write('vvedite N2');

...а дальше что сделать не понимаю

[Stilet]

begin
 for i:=1 to 200 do begin
  readln(n1,n2);
  if (N1 in [0..200]) and (n1<n2) then Тут чет делаем
 end;
end.

[SArtem]

А как можно здесь осуществить запрет ввода дубликатов?

[Anatole]

Вод дубликатов не запретиш, но если введённые данные хранить во множестве, то повторяющихся не будет.
Stilet ввод данных в Этом случае сделать так:

Program ex;
var
A=set of byte;
 b: byte;
N1, N2:byte;
begin
write('vvedite N1');
readln(n1);
write('vvedite N2');
readln(n2);
a:=[];
if n2<n1 then begin b := n2; n2 :=n1: n1 := b; end;
Repeat
write('vvedite b   0-for exit');
Readln (b);
if (b>=n1) and (b<=n2) then a := a +[b];
until b=0;
Writeln;
for b:= n2 downto n1 do if b in a then write(b:4);
End.

[Stilet]

Вод дубликатов не запретиш

Чего ж нет? Вполне да...:

var a:array[0..200] of integer;
begin
 for i:=1 to 200 do begin
  readln(n1,n2);
  if (N1 in [0..200]) and (n1<n2) then a[n1]:=n1;
 end;
 for i:=1 to 200 do begin
  if a[i]<>0 then write(a[i]:5);
 end;
end.

т.е. просто пишем в массив значение по его же индексу. Массив можно инициализировать заранее числами отрицательными, ато вдруг пользователь захочет 0 ввести и тогда проверять if a[i]>0

[Anatole]

Говоря

Вод дубликатов не запретиш

я имел ввиду, что человеку никто не может запретить набрать два одинаковых числа. Другое дело програма. Она может проанализировать введённые значения и не включать во множество введённых значений уже введённое повторное значение. Ведь ввод числа происходит после нажатия Enter, а считывать нажатые клавиши - это не для начинающих
И по условию задачи

о окончании ввода (ввод нуля) напечатать введенные значения в порядке убывания.

Поэтому 0 ввести можно если n1 =0 но это должно прекратить ввод чисел. поэтому ввод по for нужно дополнить проверкой условия окончания ввода.

[Stilet]

Anatole

Логично. Вот пусть автор и займется этим полезным делом )

[SArtem]

Stilet и Anatole спасибо огромное Вам за помощь!)