回复：很怪得题嗷液晶数字显示

无所谓啦！好在我做出来了，大家都是同道中人，以后互相关照阿！叫个朋友啦！

叫-〉交，不好意思，手误�

这样吧，虽然你做出来了，我还是发个程序吧，大家多学习哦！

Program Digital;
Type
 Arr = Array[0..9]Of Array[1..7]Of Boolean;

Var
 a, b: Arr;
 c: Array[0..9]Of Integer;
 f: Array[0..9]Of Boolean;
 i, j, x, count: Integer;

Function check(i, j: Integer): Boolean;
Var
 mode, k: Integer;
Begin
 mode := 2;
 check := False;
 For k:=1 To 7 Do Begin
 If i = 0 Then Begin
 check := True;
 Exit;
 End;
 If b[i-1][k] <> a[j][k] Then
 If b[i-1][k] Then Begin
 If mode = 2 Then mode := 0
 Else If mode = 1 Then Exit;
 End Else Begin
 If mode = 2 Then mode := 1
 Else If mode = 0 Then Exit;
 End;
 End;
 check := True;
End;

Procedure Print;
Var
 i: Integer;
Begin
 For i:=0 To 9 Do Write(c[i]:2);
 WriteLn;
 Inc(count);
End;

Procedure Try(i: Integer);
Var
 j: Integer;
Begin
 For j:=0 To 9 Do
 If f[j] And check(i, j) Then Begin
 f[j] := False;
 b[i] := a[j];
 c[i] := j;
 If i = 9 Then Print
 Else Try(i+1);
 f[j] := True;
 End;
End;

Begin
 Assign(Input, 'data.dat');
 ReSet(Input);
 For i:=0 To 9 Do Begin
 For j:=1 To 7 Do Begin
 Read(x);
 If x = 1 Then a[i, j] := True Else a[i, j] := False;
 End;
 ReadLn;
 End;
 Close(Input);
 Assign(Input, '');
 ReSet(Input);
 count := 0;
 FillChar(f, SizeOf(f), True);
 Try(0);
 WriteLn(count);
 ReadLn;
End.

>>If b[i-1][k] <> a[j][k] Then 
 If b[i-1][k] Then Begin 
好像不符合pascal语言的句式阿！我的程序比较短。还不错：
不过我的u盘中病毒了，我现在在学校，回家发给你

虽然比较少见，但上面是合语法的�

符合语法
可以定义包含数组的数组
这种情况大多用在TP的指针数组里，FP很少用（没有内存限制�

把程序发上来 我急用

精品起来

好帖啊，做相关东东的朋友可以一�

0 0 1 1 0 0 1 1 1 1 
0 0 0 0 0 0 0 1 0 0 
1 0 0 0 0 0 1 1 1 0 
1 0 0 0 0 0 0 1 1 0 
0 0 0 0 0 1 0 1 1 0 
0 0 0 0 1 0 0 1 0 0 
1 0 1 0 0 0 0 1 1 1 
1 1 1 1 1 1 1 1 1 1 
1 0 1 1 1 0 1 1 0 0 
1 0 0 0 0 0 1 1 0 0

不行�

个人认为不需要打那么多吧~~这只是集合类型的基础题而已~~

有多少解？我才算了12个。