есть TYPE natur=1..maxint;

Надо создать процедуру с (n) .
пример:

n=2,3,5,6
решение = 0,1,4,7,8,9 /

тоесть из множества (0,1,2,3,4,5,6,7,8,9 ), афишировать те цыфры которые не входят в (n)

Сообщение отредактировано: n4oJllI - 26.01.2006 3:42

И при чем здесь
?
Где оно должно использоваться?

такая задача, как я понял получиться( set of natur;)

О Set of natur ты можешь только мечтать... С каких это пор в Set можно закинуть больше 256 значений?

А maxInt поболее 256 будет...

мда ... так как n:integer; новерное можно предположить что имелось в виду n:natur;

Чувствуется maxint тут не причем, значит возможно решение вот такое :

type
   TSet = set of byte;
const
      max = 9;
      baseSet : TSet = [0..max];
var
   checkSet : TSet = [2,3,5,6];

procedure c(n : TSet);
var
   i : byte;
begin
   n := baseSet - n;
   for i := 0 to max do
    if i in n then writeln(i);
end;

begin
   c(checkSet);
   readln;
end.

Так:

type
  interval = 0 .. 9;
  natur = set of interval;

procedure p(n: natur);
var i: byte;
begin
  for i := low(interval) to high(interval) do
    if not (i in n) then write(i:3);
  writeln;
end;

begin
  p([2, 3, 5, 6]);
end.

?

Красиво зделано ... n:integer
просто я эту задачу перевёл с другово языка, она звучит гдето так:
Даёться TYPE natur=1..maxint; Создать процедуру через (n), которая афиширует все цыфры которые не входят в деситеричную ***** этого номира.




это пример работы прогамы тоесть с клавиатуры водиться (n)
и програмы выдаёт на монитор те цыфры которые которые нет в (n)

Type natur=1..maxint ;
     mul=0..9 ;
     r= set of mul ;
var
   n:natur;
   k:r;


procedure prr(h:natur;  s:integer);
  var k:r ;
  begin

  while h<>0 do
  begin
  s:=h mod 10 ;
  if s in k then k:=k-s;
  n:=h div 10 ;
  s:=0;
  end;
     write (k);
  end;
  begin
  writeln('nomer'); read(n);

   prr(n,k);

  end.

этот алгоритм правельный ???

Сообщение отредактировано: volvo - 2.11.2006 22:14

Чуть-чуть подправил свое предыдущее решение:

type
  interval = 0 .. 9;
  natur = set of interval;

procedure p(n: integer);
var
  i: byte;
  s: natur;
begin
  s := [];
  while n > 0 do begin
    s := s + [ n mod 10 ];
    n := n div 10;
  end;

  for i := low(interval) to high(interval) do
    if not (i in s) then write(i:3);
  writeln;
end;

var n: integer;
begin
  write('n = '); readln(n);
  p(n);
end.

P.S. Твоя программа не компилируется... Это во-первых. Во-вторых, ты должен сначала проверить все цифры числа, и только потом выводить что-то на печать...

volvo
твой алгоритм просто выдаёт на экран чыфры из множества 1..9 , а не те которых нет в номере..

и "s" который в "if " это, последния цыфра + предпоследния и так до первой, а тут надо поосто цыфры из номера исключить из множества 0..9

Да что ты говоришь? А какое число ты ввел?

Я все-таки проверяю программы... Хочешь, присоединю скриншот вывода?

Пока - результат:
Что в результате не устраивает?

я и не говорил что меня что то не устраивает... новерное "n" должен быть всётаки "1..maxint" а то паскаль с intrger на боьших номирах не работает для этого алгоритма как следует ...
Спасибо тебе ..


всё работает хорошо алгоритм правельный,

Сообщение отредактировано: n4oJllI - 26.01.2006 5:44

Да ты читать умеешь? Я же написал:
Зачем тебе еще maxInt куда-то лепить, когда integer и так от -MaxInt до +maxInt ?

учился когдато чтению, я извиняюсь всё правельно, просто сразу не сообразил, не с той стороны смотрел на прогу новерное -0)