子程序问题(答案).doc

过程问题1 打印下列图形（只能编写一个打印三角形图形的子程序，然后三次调用子程序打印图形）。 CLSx = 2: a$ = *GOSUB 1000x = 3: a$ = &GOSUB 1000x = 5: a$ = GOSUB 1000END1000 FOR i = 1 TO x PRINT TAB(40 - i); FOR j = 1 TO 2 * i - 1 PRINT a$; NEXT j PRINT NEXT iRETURNCLSa$ = *GOSUB 1000a$ = &GOSUB 1000a$ = GOSUB 1000END1000 FOR i = 1 TO 5 PRINT TAB(40 - i); FOR j = 1 TO 2 * i - 1 PRINT a$; NEXT j PRINT NEXT iRETURN2。任意输入两个正整数M，N编写程序求这两个数的最大公约数（求公约数的部分要用子程序编写）。INPUT m,n=; m, nGOSUB 1000PRINT GYS=; gEND1000 DO r = m MOD n m = n n = r LOOP UNTIL r = 0 g = mRETURN3。任意输入一个正整数X编写程序求判断这个数是否是素数（判断是否是素数的部分要用子程序编写）。CLSINPUT x=; xGOSUB 1000IF f = 1 THEN PRINT yes! ELSE PRINT no!END1000 f = 1 FOR q = 2 TO x - 1 IF x MOD q = 0 THEN f = 0: EXIT FOR NEXT qRETURN4。求三位数中所有素数的数字之和（要求：判断是否素数要用子程序，求数字之和要用子程序）答案：2041CLSs = 0FOR i = 101 TO 999 STEP 2 f = 1: GOSUB 2000 IF f = 1 THEN GOSUB 1000NEXT iPRINT s=; sEND1000p = iDO s = s + p MOD 10 p = p 10LOOP UNTIL p = 0RETURN2000FOR q = 2 TO i - 1 IF i MOD q = 0 THEN f = 0: EXIT FORNEXT qRETURN5。已知四位数3025有一个特殊性质：它的前两位数字30和后两位数字25的和是55，而55的平方刚好等于该数（552=3025）。试编一程序找出具有这种性质的所有四位数（要求：编写求分离数码的子程序。 答案：3个）。CLSFOR i = 1000 TO 9999 GOSUB 1000 q = x + y: q = q * q IF i = q THEN PRINT iNEXT iEND1000 x = i 100: y = i MOD 100RETURN6。一个三位数是素数，将其数字倒过来还是素数，找出所有符合条件的三位数（要求：判断是否素数要用子程序，撤分数码要用子程序。 答案：43个）。FOR i = 101 TO 999 STEP 2 x = i: f = 1: GOSUB 1000 IF f = 1 THEN GOSUB 2000 GOSUB 1000 IF f = 1 THEN PRINT i END IFNEXT iEND2000a = x: j = 0FOR k = 1 TO 3 j = 10 * j + (a MOD 10) a = a 10NEXT kx = jRETURN1000FOR q = 2 TO x - 1 IF x MOD q = 0 THEN f = 0: EXIT FORNEXT qRETURN7。找出三位数中的既是素数又是回文数的所有三位数（要求：判断是否素数要用子程序，是否回文数也要用子程序 答案：15个 ）。CLSFOR i = 101 TO 999 STEP 2 q = 1: GOSUB 1000 IF q = 1 THEN GOSUB 2000 IF q = 1 THEN PRINT iNEXT iEND1000 DIM a(3) p = i: j = 0 DO j = j + 1 a(j) = p MOD 10: p = p 10 LOOP UNTIL p = 0FOR k = 1 TO INT(j / 2) IF a(k) a(j - k + 1) THEN q = 0: EXIT FORNEXT kRETURN2000FOR k = 2 TO i - 1 IF i MOD k = 0 THEN q = 0: EXIT FORNEXT kRETURN8。将下列数存入二维数组 A 中，然后求出每一行的和