求助，表怎么打

hxy147 @ 2020-10-06 16:52:57

c[5][10][3]={{{'X','X','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'},{'X','.','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'}},
                {{'X','.','X'},{'.','.','X'},{'.','.','X'},{'.','.','X'},{'X','.','X'},{'X','.','.'},{'X','.','.'},{'.','.','X'},{'X','.','X'},{'X','.','X'}},
                {{'X','.','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'},{'X','X','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'}},
                {{'X','.','X'},{'.','.','X'},{'X','.','.'},{'.','.','X'},{'.','.','X'},{'.','.','X'},{'X','.','X'},{'.','.','X'},{'X','.','X'},{'.','.','X'}},
                {{'X','X','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'},{'.','.','X'},{'X','X','X'},{'X','X','X'}}};

by FerventTemp0 @ 2020-10-06 17:15:17

const x:array[1..5]of string=(
'XXX...X.XXX.XXX.X.X.XXX.XXX.XXX.XXX.XXX',
'X.X...X...X...X.X.X.X...X.....X.X.X.X.X',
'X.X...X.XXX.XXX.XXX.XXX.XXX...X.XXX.XXX',
'X.X...X.X.....X...X...X.X.X...X.X.X...X',
'XXX...X.XXX.XXX...X.XXX.XXX...X.XXX.XXX');
var t:string;
    i,j,k:longint;
begin
  readln;
  readln(t);
  for i:=1 to 5 do
  begin
    for j:=1 to length(t)-1 do
    begin
      for k:=(ord(t[j])-48)*4+1 to (ord(t[j])-48)*4+3 do
        write(x[i,k]);
      write('.');
    end;
      for k:=(ord(t[length(t)])-48)*4+1 to (ord(t[length(t)])-48)*4+3 do
        write(x[i,k]);
    writeln;
  end;
end.

by justinjia @ 2020-11-02 19:19:48

@impuk 你这啥令人头晕的语言啊？

by ttbr5145 @ 2020-11-06 21:22:47

pascal貌似不是这样用的

by FerventTemp0 @ 2020-11-07 15:31:25

@ttbr5145 pascal貌似就是这样用的