Question

pascal编程：将1~9这9个数字分成三组(每个数字只能用一次),分别组成三个三位数。求大师讲解一下吧！！！

且这三个三位数的值构成1:2:3的比例,试求出所有满足条件的三个三位数. 192 384 576 219 438 657 327 654 981

Answer 1

var i,j1,j2,j3,k:integer; s:set of 1..9;
begin
for i:=123 to 329 do //满足条件的三位数中最小数的范围
begin
s:=[]; j1:=i; j2:=2*i; j3:=3*i; //s为空集，原数，二倍、三倍
for k:=1 to 3 do //分三次取
begin
s:=s+[j1 mod 10, j2 mod 10, j3 mod 10]; //取每个数的最低位，放到集合中
j1:=j1 div 10; j2:=j2 div 10; j3:=j3 div 10; //去除每个数的最低位
end;
if s=[1..9] then writeln(i,i*2:5,i*3:5); //如果在三个三位数中，取遍了1~9，就是一种方案
end;
end.

追问

可以不用这种方法，用数组吗？
并且你的程序我连看都看不懂，可以有更简便的吗？用数组就行了。

追答

var i,j1,j2,j3,j,k:integer; a:array[0..9]of integer;
begin
for i:=123 to 329 do //满足条件的三位数中最小数的范围
begin
fillchar(a,sizeof(a),0);
j1:=i; j2:=2*i; j3:=3*i; //原数，二倍、三倍
for k:=1 to 3 do //分三次取
begin
a[j1 mod 10]:=1;
a[j2 mod 10]:=1;
a[j3 mod 10]:=1; //取每个数的最低位，记录此数已出现过
j1:=j1 div 10; j2:=j2 div 10; j3:=j3 div 10; //去除每个数的最低位
end;
k:=0;
for j:=1 to 9 do inc(k,a[j]);
if k=9 then writeln(i,i*2:5,i*3:5); //如果在三个三位数中，取遍了1~9，就是一种方案
end;
end.