Напечатать все возможные двузначные числа из трехзначного

[satanael]

Дано трехзначное число (ввести самому).
Напечатать все возможные двузначные числа, составленные из цифр этого трехзначного числа.

Будьте добры, помогите)

получается у меня что то типа того, правильно ли?

a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
writeln(a,b,c);
writeln(a,c,b);

[BDA]

writeln(a, b);
writeln(b, a);
writeln(a, c);
writeln(c, a);
writeln(b, c);
writeln(c, b);

Еще можно написать чуть по-другому, чтобы выводились только разные двухзначные числа.

[Serge_Bliznykov]

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

writeln(a, b);
...
writeln(c, b);

Еще можно написать чуть по-другому, чтобы выводились только разные двухзначные числа.

справедливости ради надо отметить, что предложенный код не обязательно будет выводить ДВУХЗНАЧНЫЕ числа!
не проверяются нулевые цифры.

можно, например, так:

if a<>0 then writeln(a, b);
if b<>0 then writeln(b, a);
if a<>0 then writeln(a, c);
if c<>0 then writeln(c, a);
if b<>0 then writeln(b, c);
if c<>0 then writeln(c, b);

или даже так:

if a<>0 then begin
   writeln(a, b);
   writeln(a, c);
end;
if b<>0 then begin
   writeln(b, a);
   writeln(b, c);
end;
if c<>0 then begin
   writeln(c, a);
   writeln(c, b);
end;

Примечание. Разумеется, не учитывается факт возможного повтора чисел!
Если нужно, чтобы выводились только РАЗЛИЧНЫЕ двухзначные числа, то код надо дополнять/менять!


p.s. в данном случае спасает только то, что вариантов перестановок всего 6 (по 2 из 3-х). Если задачу чуть расширить, то сразу придётся привлекать комбинаторные алгоритмы!

[BDA]

Serge_Bliznykov, согласен.
Чтобы убить 2 зайцев (повторы и однозначные числа) в данном случае можно использовать множества:

var
  v: set of byte;
  n: integer;
  a, b, c, i: byte;
begin
  readln(n);
  a := n div 100; 
  b := n div 10 mod 10; 
  c := n mod 10;
  v := [10 * a + b, 10 * b + a, 10 * a + c, 10 * c + a, 10 * b + c, 10 * c + b];
  for i := 10 to 99 do
    if i in v then
      writeln(i);
end.

Хотя цикл смущает - из пушки по воробьям.

[Serge_Bliznykov]

BDA, красиво!!! Жаль плюсануть движок форума не даёт..

Я бы не догадался использовать множества в данном случае.

а цикл - меня лично совсем не смущает!
тут уж, если использовать множества, то получаешь полностью и все преимущества (соблюдение уникальности), но и недостатки (вывод элементов множества). Насколько мне известно, в Паскаль нельзя получить содержимое множества способом отличным от полного перебора всех элементов и проверкой каждого на вхождение в данное множество.. се ля ви..

[Poma][a]

Насколько мне известно, в Паскаль нельзя получить содержимое множества способом отличным от полного перебора всех элементов и проверкой каждого на вхождение в данное множество..

Если очень хочется гемороя, то можно копаться в ABC.. :

Print(delim)- процедура, выводящая содержимое множества в окно вывода; элементы при выводе разделяются строкой delim

в Паскаль нельзя получить содержимое множества способом отличным от полного перебора всех элементов

Опять же стоит делать оговорку, что мы говорим не про массив флагов, а про set of ..

[Poma][a]

А так?

var
	s : set of byte;
	a : array [1..32] of byte;
	i, j : Integer;
begin
	s := [1, 2, 4, 100, 255, 3];

	Move (s, a, 32);

	for i := 1 to 32 do
		for j := 1 to 8 do begin
			if a[i] and 1 = 1 then
				WriteLn ((i-1)*8+j-1);
			a[i] := a[i] shr 1
		end
				
end.

[BDA]

Poma][a, ага, получается быстрее, чем in.

[Poma][a]

Poma][a, ага, получается быстрее, чем in.

А Вы это Вы времечко засекали? Если да, то можно код?

[BDA]

Сообщение от Poma][a

Если да, то можно код?

Эх, так и знал, что нужно было сохранить его

procedure writeln(i: integer); overload;
begin
end;

procedure writeln(i: byte); overload;
begin
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: set of byte;
  a: array [1 .. 32] of byte;
  i, j, c: integer;
  str: string;
  z: byte;
  st, en: int64;
begin
  s := [1, 2, 4, 100, 255, 3];

  st := gettickcount();
  for c := 0 to 1000000 do
  begin
    Move(s, a, 32);
    for i := 1 to 32 do
      for j := 1 to 8 do
      begin
        if a[i] and 1 = 1 then
          writeln((i - 1) * 8 + j - 1);
        a[i] := a[i] shr 1
      end;
  end;
  en := gettickcount();

  str := inttostr(en - st);

  st := gettickcount();
  for c := 0 to 1000000 do
    for z := 0 to 255 do
      if z in s then
        writeln(z);
  en := gettickcount();

  str := str + ' ' + inttostr(en - st);

  Caption := str;
end;

Перенабрал