задачка на множества

[gnom63]

вывести в возрастающем порядке все цифры входящие в десятичную запись
некоторого натурального числа N

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

[Jean-Esther]

Ты знаешь, как выделять из числа цифры?

procedure DoIt;
var figures:array[0..9] of word; {figures[i] — количество вхождений цифры i в число}
begin
fillchar(figures,sizeof(figures),0);
readln(N);
while N>0 do
begin
    inc(figures[N mod 10]);
    N:=N div 10;
end;
for n:=1 to 9 do
  for i:=1 to figures[n] do
    write(n);
end;

P.S. массив — это упорядоченное множество.

[capta1n]

забавный и интересный алгоритм + вам, правда если я вижу слово множества, в голове сразу представляется тип "set of" - может именно это имел в виду автор

[Serge_Bliznykov]

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

я вижу слово множества, в голове сразу представляется тип "set of"

+1
согласен.

Имхо, должно быть что-то вроде такого:

var s : string;
      i, N : longint;
      my_set : set of char;
      c : char;
begin
 WriteLn('VVedite chislo');
 Readln(N);
 str(N, s);
 for i:=1 to length(s) do
    my_set := my_set + [ s[i]];  { проверять на то, что s[i] уже содержится }
                                              { в my_set необязательно }
 for c:='0' to '9' do
    if c in my_set then
       writeln(c);
end.

[gnom63]

спасибо огромное)))))))))

[capta1n]

интересено, а если ввести число 5533 - он выведет 3 и 5, а надо 3 3 5 5

вот подкорректированная программа:

var s : string;
      i, N : longint;
      my_set : set of char;
      a : array ['0'..'9'] of byte;
      c : char;
begin
 WriteLn('VVedite chislo');
 Readln(N);
 str(N, s);
 for i:=1 to length(s) do
 begin
    inc(a[s[i]]);
    my_set := my_set + [s[i]]
 end;
 for c:='0' to '9' do
    if c in my_set then
     for i:=1 to a[c] do writeln(c);
 readln;
end.

[gnom63]

Program dodelay;
uses crt;
Const
Nmax=10; Type
Matrics=array[1..Nmax,1..Nmax] of integer;
Masiv=array[1..Nmax] of integer;
Var
X,Y,Z,A,B:matrics;
M,N:masiv;
i,j,t:integer;
Procedure Vvod (t:integer; Var X:matrics);
Var
i,j:integer;
Begin
For i:=1 to t do
For j:=1 to t do
Begin
Write ('[',i,',',j,']=');
Read (X[i,j]);
End;
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
End;
Procedure Echo (t:integer; X:matrics);
var
i,j:byte;
begin
For i:=1 to t do
Begin
For j:=1 to t do
Write (X[i,j]:5);
Writeln
End
end;
Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics);
var
i,j,k,s:integer;
begin {Umno}
for i:=1 to t do
for j:=1 to t do
begin
S:=0;
for k:=1 to t do
s:=s+X[k,i]*Y[j,k];
Z[i,j]:=s;
end;
end;
begin
clrscr;
writeln('введите размерность матрицы X,Y:');read(t);
writeln('введите,t*t,' элементов каждой матрицы:');
writeln('матрица X:');vvod(t,X);
writeln('матрица Y:');vvod(t,Y);
Echo(t,A);
Echo(t,B);
writeln('произведение матрицп:');
Umn(x,y,t,z) ;
echo(t,z)
end.

********************
в чём ошибка после выаода второй матрицы выводятся ещё нули как это убрать?????????

[gnom63]

не туда!!!!!!!!!!!
извиняюся)))))))))))

[Serge_Bliznykov]

интересено, а если ввести число 5533 - он выведет 3 и 5, а надо 3 3 5 5

Вопрос спорный...
я, например, не согласен:

все цифры входящие в десятичную запись

имхо, например, Ваше число 5533 образовано ДВУМЯ цифрами (3 и 5, просто повторёнными несколько раз!)

Хотя, в Ваших словах заключена определённая логика.
Пусть теперь автор вопроса сам решает, как ему больше подходит :-)

[capta1n]

вывести в возрастающем порядке все цифры входящие в десятичную запись

я не понимаю, с чем вы не согласны и в чем спорный вопрос