子程序问题（答案）.doc

过程问题 打印下列图形（只能编写一个打印三角形图形的子程序，然后三次调用子程序打印图形）。 ① ② CLSx = 2: a$ = *GOSUB 1000 CLS x = 2: a$ = * GOSUB 1000 x = 3: a$ = GOSUB 1000 x = 5: a$ = @ GOSUB 1000 END 1000 FOR i = 1 TO x PRINT TAB(40 - i); FOR j = 1 TO 2 * i - 1 PRINT a$; NEXT j PRINT NEXT i RETURN a$ = * GOSUB 1000 a$ = GOSUB 1000 a$ = @ GOSUB 1000 END 1000 FOR i = 1 TO 5 PRINT TAB(40 - i); FOR j = 1 TO 2 * i - 1 PRINT a$; NEXT j PRINT NEXT i RETURN 2。任意输入两个正整数M，N编写程序求这两个数的最大公约数（求公约数的部分要用子程序编写）。 INPUT m,n=; m, n GOSUB 1000 PRINT GYS=; g END 1000 DO r = m MOD n m = n n = r LOOP UNTIL r = 0 g = m RETURN 3。任意输入一个正整数X编写程序求判断这个数是否是素数（判断是否是素数的部分要用子程序编写）。 CLS INPUT x=; x GOSUB 1000 IF f = 1 THEN PRINT yes! ELSE PRINT no! END 1000 f = 1 FOR q = 2 TO x - 1 IF x MOD q = 0 THEN f = 0: EXIT FOR NEXT q RETURN 4。求三位数中所有素数的数字之和（要求：判断是否素数要用子程序，求数字之和要用子程序）答案：2041 CLS s = 0 FOR i = 101 TO 999 STEP 2 f = 1: GOSUB 2000 IF f = 1 THEN GOSUB 1000 NEXT i PRINT s=; s END 1000 p = i DO s = s + p MOD 10 p = p \ 10 LOOP UNTIL p = 0 RETURN 2000 FOR q = 2 TO i - 1 IF i MOD q = 0 THEN f = 0: EXIT FOR NEXT q RETURN 5。已知四位数3025有一个特殊性质：它的前两位数字30和后两位数字25的和是55，而55的平方刚好等于该数（552=3025）。试编一程序找出具有这种性质的所有四位数（要求：编写求分离数码的子程序。 答案：3个）。 CLS FOR i = 1000 TO 9999 GOSUB 1000 q = x + y: q = q * q IF i = q THEN PRINT i NEXT i END 1000 x = i \ 100: y = i MOD 100 RETURN 6。一个三位数是素数，将其数字倒过来还是素数，找出所有符合条件的三位数（要求：判断是否素数要用子程序，撤分数码要用子程序。 答案：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 IF NEXT i END 2000 a = x: j = 0 FOR k = 1 TO 3 j = 10 * j + (a MOD 10) a = a \ 10 NEXT k x = j RETURN 1000 FOR q = 2 TO x - 1 IF x MOD q = 0 THEN f = 0: EXIT FOR NEXT q RETURN 7。找出三位数中的既是素数又是回文数的所有三位数（要求：判断是否素数要用子程序，是否回文数也要用子程序 答案：15个 ）。 CLS FOR i = 101 TO 999 STEP 2 q = 1: