安徽中安专升本计算机编程第十四天

安徽中安专升本计算机编程第十四天 第十四天 ?其他类 1. 输入两个数和一个运算符(加、减、乘、除)，求其值。例如, 输入3和5以及*,则输出15 INPUT “输入一个数:” TO A INPUT “输入另一个数:” TO B ACCEPT “输入运算符:” TO CH DO CASE CASE CH=“+” ? “两数之和为:”,A+B CASE CH=”-“ ? “两数之差为:”,A-B CASE CH=”*” ? “两数之积为:”,A*B CASE CH=“/” ? “两数之商为:”,A/B OTHERWISE ? “运算符有错!” ENDCASE 2.输入一个正整数，分解出所有因子。如18=1*2*3*3，23=1*23 INPUT "输入一个正整数" TO N ?? N,"=1" 1 中安专升本论坛论坛整理发布，更多资料请访问论坛下载www.ahzsb.com.cn I=2 DO WHILE I<=N IF MOD(N,I)=0 ??"*"+ALLTRIM(STR(I)) N=N/I ELSE I=I+1 ENDIF ENDDO ? 3.直接求最小公倍数参考程序如下: INPUT "输入一个正整数" TO M INPUT "输入另一个正整数" TO N FOR I=M TO M*N IF MOD(I,N)=0 AND MOD(I,M)=0 ?"最小公倍数为",I EXIT ENDIF ENDFOR 4.求FIBONACCI数列1，1，2，3，5，8„„的第8项与第18项。 2 中安专升本论坛论坛整理发布，更多资料请访问论坛下载www.ahzsb.com.cn DIMENSION F(18) F(1)=1 F(2)=1 FOR I=3 TO 18 F(I)=F(I-1)+F(I-2) ENDFOR ? “第8项是:”,F(8) ? “第18项是:”,F(18) 3 中安专升本论坛论坛整理发布，更多资料请访问论坛下载www.ahzsb.com.cn