第16次学案 完善程序

1、第16次学案 完善程序1、插入法排序。将数组进行从小到大采用插入法排序,其中的数是随机产生的,范围为18,60的整数。【算法提示】每插入一个数据分为查找插入的位置、移动数据、插入数据三步来执行。clsinput “n=“;ndim a(n)for i=1 to na(i)=next ifor i=(2)x=a(i):k=(3)do while(4)(5)k=k-1loop(6)=xnext ifor i=1 to n:print a(i);:next iend2、n个小孩围坐一圈,每人取偶数块(1050之间)糖,然后按下列规则调整:所有小孩同时把自己糖的一半分给坐在他左边的小孩。如果这里他们手

2、中的糖为奇数块,则向老师补一块,再如此分下去,直到他们手中糖块数目相等为止。编程模拟并打印每次分糖的结果clsinput “n=“;ndim a(n),b(n)for i=1 to n:a(1)=(int(rnd*21)+5)*2:print a(i);:next i:printa(0)=(1)dofor i=1 to nb(i)=(2)if b(i) mod 2=1 then (3)next ifor i=1 to n:a(i)=(4):next ia(0)=b(n)t=t+1:print t;for i=1 to n:print a(i);:next i:printf=0for i=1 t

3、o n-1if (5) then f=1nextiloop until (6)end3、由键盘输入大于10位的自然数,打印出将其各位数字重新排列成的比原数小的最大的数。clsinput a$:la=len(a$)for i=1 to la:a(i)=val(mid$(a$,i,1):next ik=ladoj=k-1do while and j=1j=j-1loopif thenswap a(j),a(k)for m= for n=m+1 to laif then swap a(m),a(n)next n,mif a(1)=0 then l=2 else l=1for i=l to la:pr

4、int using“#”:a(i);:next i:endend if: loop until k=14、将n个红球和n个黄球围成一圈,打印出所有的排列方式。旋转后相同的视为一种排列。clsinput n:dim a(n*2),b$(2000),c$(2000)for i=1 to na(i)=0: next iy=0do while t$=”for i=1 to 2*nt$= next ih=h+1:b$(h)= l=0for k=1 to h-1l=instr( )if l0 then b$(h)=”:exit fornext kif and a(0)=0 theny=y+1:c$(y)=

5、 end ifj=n*2do while and j0j=j-1loop do while and k0k=k-1loopswap a(j-1),a(k)for p=j to n*2-1for q=p+1 to n*2if then swap a(p),a(q)next q,ploopfor i=1 to yprint c$(i):s=s+1next iprint send5、跳:在一个数字序列中,任何相邻两位不同,就有一个跳,例如0011011中有3个跳。编程输出在由n个0和n个1构成的所有2n位数列中,跳为3的共有多少个？提示:可对n个0和n个1进行全排列,再查找相邻的数。clsinput

6、 “n=“;ndim a(n*2)for i=1 to n:a(i)=0:a(7) )=1:next ido while a(0)=0k=n*2do while (8) k=k-1loopj=n*2do while (9) j=j-1loopswap (10)for p=k to n*2-1for q=p+1 to n*2 (11)next qnext ps=0for i=1 to n*2:s=s+a(i):next iif s=n thenp=0for i=1 to n*2-1if(12) then p=p+1if p3 then exit fornext iif p=3 thenfor i

7、=1 to n*2:print using “#”;a(i);:next iprintend ifend ifloopend6、进制数给出一个正整数n(1=n=1023),将其化为10位二进制数,然后计算出二进制数中的”1”的个数,若1的个数为奇数,则在最高位前加上一个1,否则加上一个0,最后将在此基础上形成一个11位二进制数,用3个十六进制数输出。例如:输入23,化为二进制数为:0000010111,因为1的个数为4个,在最高位前加0。,得到00000010111.输出:0h,1h,7h。再例如:输入453,化为二进制数为:0111000101,因为1的个数是奇数,所以在最高位前加1,得到1

8、0111000101.输出:5h,ch,5h.clsdoinput nloop until dim a(12),b$(15)for i=0 to 15read b$(i)next idata 0000,0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111t=0dot=t+1 n=n2loop until t=10for i=1 to 10p= next iif p mod 2=1 then else a(11)=0a(12)=0a$=”for i= 12 to 1 step-1a$= next ifor i=1 to 12