> Program PKU1102;
> Const
>   LCDNum:Array['0'..'9',1..7] Of 0..1=((1,1,1,0,1,1,1),(0,0,1,0,0,1,0),
>   (1,0,1,1,1,0,1),(1,0,1,1,0,1,1),(0,1,1,1,0,1,0),(1,1,0,1,0,1,1),
>   (1,1,0,1,1,1,1),(1,0,1,0,0,1,0),(1,1,1,1,1,1,1),(1,1,1,1,0,1,1));
> Var
>   S,I,J:Byte;
>   T:Char;
>   C:String;
>   P:String;
> Procedure WriteN(C:Char;Times:Byte);
>   Var
>     I:Byte;
>   Begin
>     For I:=1 To Times Do P:=P+C;
>   End;
> Procedure DelSpace;
>   Begin
>     While P[Length(P)]=' ' Do Begin
>       P:=Copy(P,1,Length(P)-1);
>     End;
>   End;
> Begin
>   While True Do Begin
>     ReadLn(S,T,C);
>     If S=0 Then Break;
>     P:='';
>     For I:=1 To Length(C) Do Begin
>       P:=P+' ';
>       If LCDNum[C[I],1]=1 Then WriteN('-',S)
>       Else WriteN(' ',S);
>       P:=P+' ';
>     End;
>     DelSpace;
>     WriteLn(P);
>     For J:=1 To S Do Begin
>       P:='';
>       For I:=1 To Length(C) Do Begin
>         If LCDNum[C[I],2]=1 Then P:=P+'|' Else P:=P+' ';
>         WriteN(' ',S);
>         If LCDNum[C[I],3]=1 Then P:=P+'|' Else P:=P+' ';
>       End;
>       DelSpace;
>       WriteLn(P);
>     End;
>     P:='';
>     For I:=1 To Length(C) Do Begin
>       P:=P+' ';
>       If LCDNum[C[I],4]=1 Then WriteN('-',S)
>       Else WriteN(' ',S);
>       P:=P+' ';
>     End;
>     DelSpace;
>     WriteLn(P);
>     For J:=1 To S Do Begin
>       P:='';
>       For I:=1 To Length(C) Do Begin
>         If LCDNum[C[I],5]=1 Then P:=P+'|' Else P:=P+' ';
>         WriteN(' ',S);
>         If LCDNum[C[I],6]=1 Then P:=P+'|' Else P:=P+' ';
>       End;
>       DelSpace;
>       WriteLn(P);
>     End;
>     P:='';
>     For I:=1 To Length(C) Do Begin
>       P:=P+' ';
>       If LCDNum[C[I],7]=1 Then WriteN('-',S)
>       Else WriteN(' ',S);
>       P:=P+' ';
>     End;
>     DelSpace;
>     WriteLn(P);
>     WriteLn;
>   End;
> End.
> 求助......

• 相邻两个字之间有一个空格的 (0) hawk 2005-07-14 10:18:14
  • Ouch......谢谢，Accepted (0) xt 2005-07-14 10:52:40