第章程序设计基础课件.pptVIP

set talk off clear close all use 学生信息 do while .T. xh=space(9) @15,10 say 请输入查询学号： get xh read loca for 学号=trim(xh) if found() disp continue else ?查无此人！ endif wait 是否继续查询（Y/N）： to yn if uppe(yn)=N exit endif enddo use set talk on * 5.4 应用程序举例 5.27：从键盘输入的数，判断该数是否为素数。 算法思路：素数指除了能被1和自身外，不能被其他整数整除的自然数。判断整数X是不是素数的基本方法是：将X分别除以2，3，…，X的平方根，若都不能整除，则X为素数。判断X被I整除还可用表达式MOD(X,I)=0或INT(X/I)=X/I 或X%I=0 *****LI.PRG***** SET TALK OFF CLEA INPUT X= TO X FOR I=2 TO int(sqrt(X)) IF INT(X/I)=X/I EXIT ENDIF ENDFOR IF I= int(sqrt(X)) ? 是素数！ ELSE ? 不是素数！ ENDIF SET TALK ON * 5.28：求两个正整数的最小公倍数和最大公约数 算法思路，首先必须了解数学上关于最小公倍数和最大公约数的概念。最大公约数是指能同时被两个正整数M、N整除的数中最大的一个，而最小公倍数是指能同时整除M和N的数中最小的一个。最大公约数肯定在1到M、N两数中较小的一个数之间；而最小公倍数肯定在M、N两数中较大的一个数到两数之积M*N之间，而且两者之间有一公式，即最小公倍数= M*N/最大公约数，因此只要求出一个就可以求出另一个。 SET TALK OFF CLEAR INPUT A= TO A INPUT B= TO B X=MAX(A,B) Y=MIN(A,B) FOR I=X TO A*B IF INT(I/A)=I/A IF INT(I/B)=I/B M=I EXIT ENDIF ENDIF ENDFOR FOR I=Y TO 1 STEP -1 IF INT(A/I)=A/I IF INT(B/I)=B/I N=I EXIT ENDIF ENDIF ENDFOR ?最小公倍数是:,M ?最大公约数是:,N SET TALK ON * 5.29：求100~999之间水仙花数。 （水仙花数：指一个三位数，其各位数字立方之和等于该数本身。如：153=13+53+33） 算法思路：解此题的关键是要知道如何分离出一个三位数中的各位数字。本题采取将指定的数除10求余，所得余数就是数值最右边得一个数码。接着将除10后的数截尾取整，得到的就是去掉最右边一个数码后的数值，以此类推，每次都可以截得一个最右边的数码，将该三位数的各位数码分别截取出来并进行立方求和，如等于原数，则原数为水仙花数；否则原数不是水仙花数。 SET TALK OFF CLEAR FOR N=100 TO 999 DECLARE A(3) I=1 M=N DO WHILE I=3 A(I)=MOD(M,10) M=INT(M/10) I=I+1 ENDDO IF N=A(1)^3+A(2)^3+A(3)^3 ??N ENDIF ENDFOR SET TALK ON * 5.30：从键盘输入一串字符（口令），自动判断输入的口令是否与系统的口令一致。若一致则显示“欢迎进入本系统!”，；否则显示“口令不正确,请重输!”；给予三次重输机会，输入次数超过三次则显示“你无权使用本系统!”的提示。 解题思路：这是一道口令验证题，即字符串比较问题。解题的关键有两点：一是通过任意一种形式接收用户输入的口令；二是比较用户口令与系统口令是否一致，进而决定下一步的操作。 SET TALK OFF CLEAR I=1 DO WHILE I=3 ?请输入口令: SET CONSOLE OFF ACCEPT TO MPW SET CONSOLE ON IF MPW=123456 ?欢迎进入本系统! EXIT ELSE IF I=3 ?你无权使用本系统! ELSE ?口令不正确,请重输! ENDIF ENDIF I=I+1 ENDDO SET TALK ON * set console on|off　　功能:用于程序中规定是否允许将输出信息送住屏幕或窗口,on允许,off不允许,默认设置