Question

Pascal编程问题，急求！！！我朋友后天上课他明天上午就要！！

1)试求出4,5,6,7,8中三个数组为一组，每组三个数不能重复，每行一组，最后输出总的组数。

Answer 1

如果像（1,2,3）和（2,3,1）不是一组的话，那么就是这个：
Program Bd;
Var a,b,c,d:Integer;
Begin
d := 0;
For a := 4 to 8 Do
For b := 4 to 8 Do
For c := 4 to 8 Do Begin
If (a <> b)and(a <> c)and(b <> c) Then WriteLn(a,' ',b,' ',c);
d := d+1; End; WriteLn(d);
ReadLn;
End.
如果像（1,2,3）和（2,3,1）是一组的话，那么就是这个
Program Bd;
Var a,b,c,d:Integer;
Begin
d := 0;
For a := 4 to 8 Do
For b := a+1 to 8 Do
For c := b+1 to 8 Do Begin
WriteLn(a,' ',b,' ',c);
d := d+1; End; WriteLn(d);
ReadLn;
End.
这个是循环问题，还算比较简单！
我这里可以运行，你试一试！看看对不？
望采纳！

Answer 2

VAR I,J,K,SUM:LONGINT;(假设选取的三个数分别为I,J,K，且满足I<J<K)；
BEGIN
sum：=0；
for I:=4 TO 6 DO
FOR J:=I+1 TO 7 DO
FOR k:=J+1 TO 8 DO
INC(SUM);
WRITELN(SUM);
END.
直接打的程序..标点你放到pascal上改改吧..

Answer 3

这不就是排列组合问题么？
如果456和465不算同一组的话，共有A(5,3)=60组（5个数中选3个，并排序）
如果算同一组，那么共有C(5,3)=10组（5个数中选3个，不排序）