春节舞蹈晚会的数字舞蹈
最编程
2024-04-04 17:31:19
...
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.
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.
推荐阅读
-
贾老板展示未来机器人的舞蹈,场面有点难以形容(动图+视频)
-
波士顿动力公司再次惊艳亮相!机器人展示了他的男孩乐队舞蹈,以人类的方式举起双手,并在多次转售后展示了他的新标签
-
openEuler郑州用户组成立!openEuler与hyperfusion携手共建河南地区用户生态 - 开幕致辞 超融合操作系统业务总经理、openEuler委员会成员蒋振华先生为本次活动致辞。 在本次活动的致辞中,他提到,作为openEuler社区早期的成员,超融合见证了openEuler从成立到在各行业商业落地,再到跨越生态拐点的过程,感谢openEuler提供了一个全产业链共同创新的平台,共同推动创新技术的商业落地。 同时,本次活动得到了郑州市郑东新区大数据管理局、郑州中原科技城投资服务局的大力支持。 郑东新区大数据管理局曹光远 在活动致辞中表示,openEuler的应用和*应用设施的深度优化,为郑东新区数字化转型提供了安全、可靠、高性能的技术基础;郑州中原科技城招商服务局王林表示,郑东新区欢迎所有openEuler生态相关企业扎根当地,围绕openEuler社区共同发展,形成合力。 openEuler社区及运维功能介绍 openEuler技术委员会委员胡峰 openEuler技术委员会委员胡峰先生在本次活动中介绍了openEuler社区目前发展的整体情况,并重点从技术层面介绍了openEuler的运维功能。 openEuler 晚会 胡峰先生介绍智能运维工具 A-Ops 和 openEuler gala、 阿波罗 Apollo、智能漏洞管理解决方案等新功能,以及涵盖各种运维场景的精品运维组件。在*交流环节,许多用户就目前使用的 openEuler 在*交流环节,许多用户就自己在使用openEuler过程中遇到的一些问题与胡峰先生进行了进一步的交流。 软硬结合,构建多样化算力操作系统 Hyperfusion 基于 openEuler 的基础上,结合自身软硬件技术积累,推出了富讯服务器操作系统 FusionOS FusionOS. FusionOS 首席架构师张海亮 分享了 FusionOS FusionOS首席架构师张海亮分享了FusionOS的软硬件协同优势、卓越的性能和可靠性,以及FusionOS在金融、运营商、*、互联网等行业的实践案例,引起了众多用户的兴趣,分享结束后,不少参会者就FusionOS的特点向讲师提问并进行了交流。
-
网球、高尔夫、赛车、舞蹈,8 组关于体育艺术的 AI 绘图关键词
-
B 站,舞蹈区的女士又火了!
-
春节舞蹈晚会的数字舞蹈
-
NVIDIA cuRobo:赋予机器人灵动, CUDA技术开启舞蹈的未来
-
告诉你一个非常全的主内舞蹈网站,再也不用发愁怎么跳主内舞蹈了
-
设计与实现基于web的舞蹈选课管理系统