end;
begin
readln(x1);
fori:
=1to8doread(a[i]);
pro(x1,1,8);
end.
输入1:
输入2:
1013
146910111232146910111232
输出1:
输出2:
四、完善程序(根据问题要求和已有程序,在空格处填入适当的语句或符号,使程序完整。
1.【海岛建设】(2+2+2+2+2+2=10)
牛背群岛是由一大批大小接近的小岛屿组成的,涨潮时群岛中的每个小岛都会有一部分被淹入海水下面(有些特别矮小的小岛甚至整个淹入水下),退潮时这些小岛上被淹的部分又能露出了海面。
为了打造特色旅游景观,政府计划在每次涨潮时被淹入水下的那些部位安装彩色灯光装置,这样在涨潮时这些部位就会在水下发出光彩夺目的景观。
现在味味已经从测绘公司得到了所有这些小岛的海拔高度,而且将这些数据进行了量化预处理。
作为程序员,味味需要统计所有这些小岛中,量化高度在2和5之间(包括2和5)的小岛数量总共有多少个。
下面是味味编写了一部分的程序,程序先读入牛背群岛所组成的方阵的规模n(牛背群岛的各个小岛刚好组成了一个n*n的方阵),然后以一个方阵的格式依次读入n*n个小岛各自的量化高度(详细可见输入和输出样例),程序最后应能输出量化高度不小于2并且不大于5的所有小岛的总数。
请你帮助味味完成下面的程序。
programtest5;
varn,i,j,s:
integer;
a:
array[1..10,1..100]ofinteger;
begin
①;
fori:
=1tondo
begin
forj:
=1tondo②;
readln;
end;
s:
=0;
fori:
=1tondo
forj:
=1to③do
if(a[i,j]>=2)and(④)then⑤;
writeln(s);
end.
输入样例:
5
12352
74236
21365
11534
119145
输出样例:
15
2.【扫雷游戏】(3+3+3+3+3+3=18)
Windows中的扫雷游戏是大家都熟悉的小游戏,今天,味味也设计了一个简易的扫雷游戏。
味味设计的扫雷游戏功能如下:
1.程序一开始会读入扫雷的区域大小n,表示扫雷区域有n*n个小方格组成,接下来会读入n行信息,每行有n个整数(每个整数可能是0,也可能是1),每两个整数之间用一个空格分隔。
其中0表示所在位置的小方格内没有地雷,1表示所在位置的小方格内有地雷(游戏开始时,扫雷吉尔吉斯中必定包含至少一个地雷)。
接下来每行输入两个用空格分开的正整数i和j,每一行的一对i和j表示用户用鼠标单击扫雷区域中第i行第j列位置上的小方格(就像我们windows中扫雷游戏一样),i和j表示的位置必定在扫雷区域内。
程序每输入一对i和j,就马上进行相应的处理(就像我们在windows中鼠标单击某个小方块就会出现结果一样)。
2.程序根据读入的一对i和j的值来对扫雷区域作相应处理,具体的处理规则如下:
(1)如果i和j表示的小方格内没有地雷、而且也没有被处理过(就是第i行第j列的数值是0),那么将以该小方格为中心的一个正方形区域内所有没有地雷的小方格都赋值为-1(表示该区域的地砖被掀开),当然该正方形指的是在扫雷区域内的有效区域。
如果在当前正方形区域内有一个位置号是i1和j1(注意,i1<>i并且j1<>j)的小方格内恰好有地雷,则此地雷就被顺利扫除,将该位置标记为-2。
如果该正方形区域内某些小方格已经被处理过,则对这些小方格不再做任何处理。
举个例子来说明一下,假如输入信息如下左边所示,那么输出结果就如下右边所示:
5
0000000000
001000-1-2-10
000100-1-1-20
000000-1-1-10
0100001000
33
00
(2)如果i和j表示的小方格已经被处理过(就是第i行第j列的数值是-1或者是-2),那么不作任何处理,继续去读取下一行的i和j的值。
(3)如果i和j表示的小方格刚好有地雷,并且该小主格没有被处理过(就是第i行和第j列的数值是1),那么表示用户触坜,输出信息“GAMEOVER”,程序结束。
3.如果在读入和处理i、j的过程中一直没有触雷,那么就一直按照位置信息处理下去,直到满足下列条件之一,就输出相应信息并结束程序:
(1)读入的i和j的值都是0(表示用户不再在某个小方格内单击右键了),则输出整个扫雷区域的状态(就是输出处理后来n行n列的方阵,每行中两个整数之间用一个空格分隔,末尾没有多余空格),然后程序结束。
(2)如果某次处理完后,游戏区域内所有的地雷都被扫除了,那么不必再读入一下行的信息,直接输出信息“YOUAREWINNER!
!
”,程序结束。
味味不小心把已经编好的程序误删了一些代码,请根据上面的功能要求,帮助味味把下面的程序补充完整。
说明:
(1)halt命令的功能是终止(结束)整个程序的运行。
(2)total变量保存一开始扫雷区中地雷的总数,ok变量保存当前已经被扫除的地雷总数。
programtest6;
vari,j,total,ok,x,y,n:
integer;
a:
array[1..50,1..50]ofinteger;
procedurepro_1;
varx,y,k:
integer;
begin
forx:
=①toi+1do
forj:
=y-1toy+1do
if(x>=1)and(y>=1)and(x<=n)and(y<=n)then
begin
if②thena[x,y]=-1;
ifa[x,y]=1thenbegina[x,y]:
=-2;③;end;
end;
end;
begin{mainprogram主程序}
readln(n);
total:
=0;ok:
=0;
forx:
=1tondo
begin
fory:
=1tondo
begin
read(a[x,y]);
ifa[x,y]=1thentotal:
=total+1;
end;
readln;
end;
④;
while(i<>0)and(j<>0)do
begin
if⑤thenpro_1;
iftotal=okthenbeginwriteln(‘YOUAREWINNER!
!
’);halt;end;
ifa[I,j]=1thenbeginwriteln(‘GAMEOVER!
!
’);halt;end;
readln(i,j);
end;
forx=:
1tondo
begin
fory:
=1tondowrite(a[x,y],’‘);
writlen;
end;
end.
输入样例:
5
00110
10000
00101
00000
01101
22
24
44
55
31
00
输出样例2:
-1-1-2-2-1
-2-1-1-1-1
-1-1-2-1-2
00-1-1-1
01-2-1-2
输入样例:
6
000000
001000
100010
000000
010001
000000
11
34
55
46
52
输出样例1:
GAMEOVER!
答案:
一、
二、2、你大部分的零用钱用于何处?
选择题:
DBADCBDAABCACCB
二、资料网址:
二、问题求解:
1.
(1)4种
(2)
“碧芝”最吸引人的是那些小巧的珠子、亮片等,都是平日里不常见的。
店长梁小姐介绍,店内的饰珠有威尼斯印第安的玻璃珠、秘鲁的陶珠、奥利的施华洛世奇水晶、法国的仿金片、日本的梦幻珠等,五彩缤纷,流光异彩。
按照饰珠的质地可分为玻璃、骨质、角质、陶制、水晶、仿金、木制等种类,其造型更是千姿百态:
珠型、圆柱型、动物造型、多边形、图腾形象等,美不胜收。
全部都是进口的,从几毛钱一个到几十元一个的珠子,做一个成品饰物大约需要几十元,当然,还要决定于你的心意。
“碧芝”提倡自己制作:
端个特制的盘子到柜台前,按自己的构思选取喜爱的饰珠和配件,再把它们串成成品。
这里的饰珠和配件的价格随质地而各有同,所用的线绳价格从几元到一二十元不等,如果让店员帮忙串制,还要收取10%~20%的手工费。
2、消费者分析
据调查,大学生对此类消费的态度是:
手工艺制品消费比“负债”消费更得人心。
2.700
三、阅读程序写出结果
1.a>b
2.7111519
3.4636461128282118
4.
(1)5
(2)notfound
三、主要竞争者分析
因此不难看出,自制饰品在校园里也大有市场所在。
对于那些走在流行前端的女生来说,〝捕捉〞新事物便〝捕捉〞到了时尚与个性。
四、完善程序
1.①read(n);②read(a[i,j]);③n;④a[i,j]<=5;⑤s:
=s+1;
(4)创新能力薄弱2.①i-1;②a[x,y]=0或者a[x,y]<>1;③ok:
=ok+1;④readln(i,j);
9、如果你亲戚朋友送你一件DIY手工艺制品你是否会喜欢?
⑤a[i,j]=0;⑥GAMEOVER.
(六)DIY手工艺品的“创作交流性”