洛谷 P1538 迎春舞会之数字舞蹈

题目背景

HNSDFZ的同学们为了庆祝春节，准备排练一场舞会。

题目描述

在越来越讲究合作的时代，人们注意的更多的不是个人物的舞姿，而是集体的排列。

为了配合每年的倒计时，同学们决定排出——“数字舞蹈”。顾名思义就是所有人一起排成若干个数字 -_-|||| 更为创新的是，每个人都是趴在地上，保证横竖。

现在给出数字及其要求摆出的大小，请你编程，模拟同学们的优美姿态。

输入输出格式

输入格式：
第一行为k。k表示要摆出数字的大小。

第二行为全部由数字组成的字符串，即要摆出的几个数字。

输出格式：
按题目要求输出。

输入输出样例

输入样例#1：
2
1234567890
输出样例#1：
把它复制到记事本上看。

说明

每个数字之前有1个空格，所有数字全部对齐。

k<=30,s的长度不超过255

建议大家直接输出，不要保存。

如果对于大小和k有疑问，请自行理解。

分析：
输出很6，一开始什么都不知到。。。
k表示输出数字的大小（表示每个数字有k个-和｜），然后对于每个数字，特判一下输出即可。
（看不懂题的继续）

代码：

var i,j,k,a:longint;
  s:ansistring;
  p:array[0..9,1..5]of longint=((1,1,0,1,1),(0,2,0,2,0),(1,2,1,3,1),(1,2,1,2,1),(0,1,1,2,0),(1,3,1,2,1),(1,3,1,1,1),(1,2,0,2,0),(1,1,1,1,1),(1,1,1,2,1));
procedure print(c:longint;c1:longint);
var l:longint;
begin
    if(c=1)then
    begin
      if(c1=1)then
      begin
        write(' ');
        for l:=1 to k do
          write('-');
        write('  ');
      end else if(c1=0)then
      begin
        write(' ');
        for l:=1 to k do
          write(' ');
        write('  ');
      end;
    end else
    if(c=2)then
    begin
      if(c1=1)then
      begin
        write('|');
        for l:=1 to k do
          write(' ');
        write('| ');
      end else if(c1=2)then
      begin
        write(' ');
        for l:=1 to k do
          write(' ');
        write('| ');
      end else if(c1=3)then
      begin
        write('|');
        for l:=1 to k do
          write(' ');
        write('  ');
      end;
    end;
    exit;
end;
begin
  readln(k);
  readln(s);

  for j:=1 to length(s) do 
  begin
    val(s[j],a);
    print(1,p[a,1]);
   end;
    writeln;

   for i:=1 to k do 
   begin
   for j:=1 to length(s) do 
   begin
    val(s[j],a);
    print(2,p[a,2]);
    end; writeln;
   end;

   for j:=1 to length(s) do 
   begin
    val(s[j],a);
    print(1,p[a,3]);
   end;
     writeln;

   for i:=1 to k do 
   begin
   for j:=1 to length(s) do 
   begin
    val(s[j],a);
    print(2,p[a,4]);
   end; writeln;
   end;

   for j:=1 to length(s) do 
   begin
    val(s[j],a);
    print(1,p[a,5]);
   end;
end.