2021-11-24 C 语言经典100例 delphi实现1

https://www.runoob.com/cprogramming/c-100-examples.html

题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？

程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去 掉不满足条件的排列。

实例

include

int main()
{
int i,j,k;
printf("\n");
for(i=1;i<5;i++) { // 以下为三重循环
for(j=1;j<5;j++) {
for (k=1;k<5;k++) { // 确保i、j、k三位互不相同
if (i!=k&&i!=j&&j!=k) {
printf("%d,%d,%d\n",i,j,k);
}
}
}
}
}
以上实例输出结果为：

1,2,3
1,2,4
1,3,2
1,3,4
1,4,2
1,4,3
2,1,3
2,1,4
2,3,1
2,3,4
2,4,1
2,4,3
3,1,2
3,1,4
3,2,1
3,2,4
3,4,1
3,4,2
4,1,2
4,1,3
4,2,1
4,2,3
4,3,1
4,3,2

---

procedure TForm1.Button1Click(Sender: TObject);

var
a,b,c:integer;
begin
        memo1.Clear;
     for  a := 1 to 4 do
       for b := 1 to 4 do
         for c := 1 to 4 do
           begin
               if   (a<>b)     and   (b<>c) and  (a<>c) then   
  //   if   a<>b     and   b<>c and  a<>c then     写成这样无法运行，所以上面要加上括号


               {            
                 if   (a<>b)    then
                  if (b<>c)  then
                  if   (a<>c) then

                                            }

                 {
                  if   a<>b   then
                  if b<>c then
                  if   a<>c then
                       }
                memo1.Lines.append(inttostr(a)+inttostr(b)+inttostr(c));
           end;
end;

end.