題意

打印圖案

分析

仔細看輸出，理解題意，思路清晰就能做出這題。

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;
? ?readln;
? ?readln;


end.

轉(zhuǎn)載于:https://www.cnblogs.com/YYC-0304/p/9500191.html

總結(jié)

以上是生活随笔為你收集整理的迎春舞会之数字舞蹈的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。