1、1. 求最大、最小數(shù)問(wèn)題Dime x(30)Maxx=0 &極小數(shù)Minx=300 &極大數(shù)For k=1 to 30X(k)=1+rand()*300If x(k)maxxMaxx=x(k)EndifIf x(k)minxMinx=x(k)Endif?x(k) &順序輸出30個(gè)隨機(jī)數(shù)endfor?maxx,minx2. 最大公約數(shù)和最小公倍數(shù)問(wèn)題Input to xInput to yM=xN=yR=x%yDo while R0X=yY=RR=x%yEnddo?y, M*N/y3. 素?cái)?shù)（質(zhì)數(shù)）問(wèn)題Input to xFor k=2 to x-1If x%k=0exitendifendfor

2、if k=x?x,”is prime”Else?x.”not prime”endif4. 階乘問(wèn)題Input to xF=1For k=x to 2 step -1F=f*kEndfor?F5. 百錢百雞問(wèn)題for i=0 to 33for j=0 to 50 k=100-i-j if 3*i+2*j+int(0.5*k)=100? i,j,k endifendforendfor6. 倍數(shù)問(wèn)題一個(gè)正整數(shù)與3的和是5的倍數(shù)，與3的差是6的倍數(shù)，編程序求出符合此條件的最小正整數(shù)。num=1do While (num+3)%50 or (num-3)%60 num=num+1enddo? num7.

3、 判斷回文數(shù)Accept to sL=len(s)For k=1 to int(L/2) if subs(s,k,1)subs(s,L-k+1,1) exit endifEndforIf k=int(L/2) ?s,”不是回文數(shù)” else ?s, ”是回文數(shù)”endif8. 完全數(shù)（因數(shù)和）問(wèn)題所謂“完全數(shù)”是指一個(gè)數(shù)恰好等于它的所有因子之和，例如，6=1+2+3，6是“完全數(shù)”。編程序求1000以內(nèi)的“完全數(shù)”ClearFor n=1 to 1000 m=0 for i=1 to n-1 if n%i=0 m=m+i endif endfor if m=n ?n endifendfor9.

4、 二-十進(jìn)制數(shù)轉(zhuǎn)換input to n &輸入一個(gè)二進(jìn)制數(shù)s=0k=0do while n0 s=s+n%10*2k k=k+1 n=int(n/10)enddo?s10. 十-二進(jìn)制數(shù)轉(zhuǎn)換dime s(30)L=1input to de &輸入一個(gè)十進(jìn)制數(shù)do while de0 s(L)=de%2 de=int(de/2) L=L+1enddofor i=L-1 to 1 step -1 ?str(s(i),1)endfor11. 常用級(jí)數(shù)生成與求和（1）已知數(shù)列an滿足a1=1,an=a1+2a2+3a3+.+(n-1)an-1 (n2)。請(qǐng)編寫程序，求出a1000的值。A=1n=2do

5、 While n=1000 A=A+(n-1)*A n=n+1 enddo?A（2）計(jì)算：Sn=a + aa + aaa + + aaaaaa (最后一個(gè)為n個(gè)a)比如，當(dāng)n=4，a=3的時(shí)候，則為計(jì)算：s=3 +33 +333+3333Input to nInput to aS=aT=aFor I=2 to nT=T*10+a s=s+Tendfor? s其它級(jí)數(shù)求和問(wèn)題，請(qǐng)參考輔導(dǎo)資料12. 二分法求高階方程的根x1=-10x2=10Eps=10-5do while .t. x0=(x1+x2)/2 fx0=fun(x0) fx1=fun(x1) if(fx0*fx10) x2=x0 el

6、se x1=x0 endifif abs(fx0)Eps exit endifenddo?root=,x0proce fun para k return 2*k3-4*k2+3*k-6 （說(shuō)明：請(qǐng)注意書寫高階方程函數(shù)，初始2分點(diǎn)值x1,x2） 13. 梯形積分法Input to aInput to bEuler = 2.S=0i=0n=100h=(b-a)/nDo While (i100) T=h*(f1(a+i*h)+f1(a+(i+1)*h)/2.0 s=s+T i=i+1 enddo?sProce f1 para x return Euler(-x*x)（說(shuō)明：實(shí)際求解時(shí)，請(qǐng)注意正確書寫

7、求積函數(shù)和等分?jǐn)?shù)）14. 冒泡排序for i=1 to Nfor j=1 to N-iif(a(j)a(j+1) ) temp=a(j)a(j)=a(j+1)a(j+1)=tempendifendforendfor（說(shuō)明：該程序已知數(shù)組a的長(zhǎng)度為N，并已經(jīng)被賦值為亂數(shù)列）15. 選擇排序for i=1 to N-1 k=i for j=i+1 to Nif(a(j)a(k)k=j endif endforif(k!=i)temp=a(i)a(i)=a(k)a(k)=temp endifendfor（說(shuō)明：該程序已知數(shù)組a的長(zhǎng)度為N，并已經(jīng)被賦值為亂數(shù)列）16. 順序查找input 請(qǐng)輸入被查找

8、的整數(shù)值: to keyfor i=1 to Nif(a(i)=key)flag=1exitendif endforif(flag=1)?查找成功，共進(jìn)行了,i,次比較else?數(shù)據(jù)集合中不存在被查找數(shù)據(jù)Endif（說(shuō)明：該程序已知數(shù)組a的長(zhǎng)度為N，并已經(jīng)被賦值為亂數(shù)列）17. 折半查找flag=0low=1high=NInput “請(qǐng)輸入查找關(guān)鍵字：” to keyDo while low a(middle)low=middle+1 else high=middle-1 endifendifenddoif flag=1?查找成功else?數(shù)據(jù)集合中不存在被查找數(shù)據(jù)”endif（說(shuō)明：該程序已

9、知數(shù)組a的長(zhǎng)度為N，并已經(jīng)被賦值為有序數(shù)列）18. 有序數(shù)列插入Input to xFor i=1 to N if (A(i)=x) exit endif endforIf (i=n) for k=n to i step -1 A(k+1)=A(k) endforendifA(i)=x（說(shuō)明：該程序已知數(shù)組a的長(zhǎng)度為N，并已經(jīng)被賦值為有序數(shù)列）19. 有序數(shù)列刪除Input to xFor i=1 to N if (A(i)=x) exit endif endforIf (ib return else do strR with ss,a+1,b-1 t=ss(a) ss(a)=ss(b) ss

10、(b)=t endif（說(shuō)明：sa是一個(gè)存放字符串的數(shù)組。參數(shù)ss,a,b說(shuō)明接受一個(gè)數(shù)組，從1至20個(gè)字符求其逆串，結(jié)果仍然放在數(shù)組sa中）23. 字符串處理(1)插入(將子串s1插入主串s中,插入位置L)Proc INS_STR Para s1,s,LIf L=1 and L=len(s)+1 s0=subs(s,1,L-1)+s1 return s0+subs(s,L) endif(2)刪除（將子串s1從主串s中刪除）Proc DEL_STR Para s1,sIf AT(s1,s)0if AT(s1,s)=1 s=subs(s,len(s1)+1) else s0=subs(s,1,AT(s1,s)-1), s=s0+subs(s,AT(s1,s)+len(s1) endifendifreturn s(3)比較（輸入：s1,s2。如果兩串相等返回0