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.
求助......

• 顶一下，各位大牛来帮助一下，PE，谢谢了！ (2) xt 2005-07-13 19:02:16
• 大牛们就行行好吧~~ (1932) xt 2005-07-14 08:01:53
  • 相邻两个字之间有一个空格的 (0) hawk 2005-07-14 10:18:14
    • Ouch......谢谢，Accepted (0) xt 2005-07-14 10:52:40