较难的程序填空题.docVIP

较难的程序填空题： 1. 下面程序是化简分数，分子M、分母N的最大公约数求法使用辗转相除法，请完成下列程序。 *SUB.PRG PARAMETERS M,N IF M______ THEN N T=M M=N N=T ENDIF R=M%N DO WHILE R0 M=N N=R R=_____ M%N 或 MOD(M,N) ENDDO RETURN N *MAIN.PRG ACCEPT 请输入分子： TO X ACCEPT 请输入分母： TO Y K=SUB(X，Y) X=X/K Y=Y/K ?化简后分子为：,X ?化简后分母为：,Y 2. 下面的程序是找出二维数组10×7中的“鞍点”。所谓“鞍点”是指它在本行中值最大，本列中值最小。本程序输出鞍点的行列号，有可能在一个数组中找不到鞍点，则输出“无”。请完成程序。 Dimension a(10,7) ff=0 for I=1 to __________ 70 a(k)=int(rand()*100) 产生随机数 endfor for I=1 to 10 big=a(I,1) col=1 for j=1 to 7 if biga(I,j) then big=a(I,j) col=_________ j endif endfor flag=1 for n=1 to 10 if biga(n,col) flag=0 exit endif endfor if flag =1 then ?行：,I,列：，col ff=1 endif endfor if ff=0 then ?没有鞍点 endif 3. 共有五个数据库文件std1.dbf—std5.dbf,下面程序的功能是删除每个库文件的末记录。请填空。 N=1 DO WHILE n=5 db=_________ “STD”+STR(n) USE db GOTO BOTTOM DELETE PACK n=_________ N+1 ENDDO USE 4. 下面程序的功能是根据销售数据库文件sale.dbf中的数据去修改库存文件inventry.dbf数据,请对程序填空。 SELECT 1 USE inventry SELECT 2 USE sale DO WHILE .NOT._________ EOF( ) SELECT 1 LOCATE FOR 商品名=b-商品名 REPLACE 数量 WITH 数量-SALE.数量,总金额 WITH 单价*数量 __________ SELECT 2 SKIP ENDDO CLOSE DATABASE 5. 下列程序是打印杨辉三角,杨辉三角如下： 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 … … … … … … … … … 请完成下列程序： n=0 input n= to n dimension a(n,n) for I=1 to n a(I,I)=1 a(I,1)=1 endfor for I=3 to n for j=2 to _________ n a(I,j)=a(I-1,j)+_________ a(I-1,j-1) endfor endfor for I=1 to N ? for j=1 to I ??a(I,j) endfor endfor 6. 验证哥德巴赫猜想,即任何大于6的偶数均可以表示为两个素数之和。 本程序中验证6到100之间的偶数均可以表示为两个素数之和。 FOR N=6 TO 100 STEP 2 FOR X=3