1、资源网站 http:/- 1 -http:/ ；* 1+1/2+1/3+1/4+.+1/nclearinput 请输入 n的值:N= to ns=0for i=1 to ns=s+1/iendfor?S* 1 1 2 3 5 8 13.clearinput 请输入 n的值:N= to ndimension ana1=1a2=1s=2for i=3 to nai=ai-1+ai-2s=s+aiendfor?S*二分法解方程 3x*x*x-4x*x+3x-6=0要求误差小于十的负六次方clearinput x1= to x1input x2= to x2fx1=x1*(3*x1-4)*x1+3)-
2、6fx2=x2*(3*x2-4)*x2+3)-6do while fx1*fx2 0input x1= to x1input x2= to x2fx1=x1*(3*x1-4)*x1+3)-6fx2=x2*(3*x2-4)*x2+3)-6enddox0=(x1+x2)/2fx0=x0*(3*x0-4)*x0+3)-6do while abs(fx0)=0.000001x0=(x1+x2)/2fx1=x1*(3*x1-4)*x1+3)-6资源网站 http:/- 2 -fx0=x0*(3*x0-4)*x0+3)-6if(fx0*fx1)i temp=aiai=apap=tempendifendfo
3、rfor i=1 to n? aiendforclearinput 请输入 n的值:N= to ndimension anfor i=1 to ninput 请输入第+str(i)+个数：to aiendforfor i=1 to n-1for j=1 to n-iif aiajtemp=aiai=ajaj=tempendifendforendforfor i=1 to n?aiendfor资源网站 http:/- 4 -3查找算法（顺序查找、折半查找） ；clearinput N= to ndimension anfor i=1 to ninput a+str(i,2,1)+= to aie
4、ndforinput 请输入要查找的数 findnum= to findnumfor i=1 to nif ai=findnumexitendifendforif in? not foundelse? findendifclearinput 请输入 n的值:N= to ndimension anfor i=1 to ninput 请输入第+str(i)+个数：to aiendforfor i=1 to nfor j=i+1 to nif aiajtemp=aiai=ajaj=tempendifendforendforstart=1iend=ninput 输入要查找的数 num= to numd
5、o while .t. and startnumiend=mid-1endifenddoif startajtemp=aiai=ajaj=tempendifendforendforinput “insert num=“ to numfor i=1 to nif ainumexitendifendforfor j=n to i step -1aj+1=ajendforai=num资源网站 http:/- 6 -for i=1 to n+1?aiEndforclearinput “N=“ to ndimension a100for i=1 to ninput a+str(i,2,1)+= to a
6、iendforfor i=1 to nfor j=i+1 to nif aiajtemp=aiai=ajaj=tempendifendforendforinput “Delete num=“ to numfor i=1 to nif ai=numexitendifendforif in? “not found“for i=1 to n?aiEndforelsefor j=i to naj=aj+1endfor for i=1 to n-1?aiEndforendif5初等数论问题求解的有关算法（最大数、最小数、最大公约数、最小公倍数、资源网站 http:/- 7 -素数等） ；clearinp
7、ut 请输入个数：to ndimension anfor i=1 to ninput 请输入第+str(i)+个数：to aiendformaxnum=a1minnum=a1for i=2 to n if aimaxnummaxnum=aiendifif ai0r=n%m n=mm=renddo?最大公约数是：,n?最小公倍数是：,p/nclearfor i=2 to 100for j=2 to iif INT(i/j)=i/j资源网站 http:/- 8 -exitendifendforif j=i? iendifendfor6矩阵的处理（生成、交换及基本运算） ；*求 3行 3列矩阵的对角
8、线和cleardimension a3,3for i=1 to 3for j=1 to 3input a+stri,1+strj,1+= to ai,jendforendforfor i=1 to 3for j=1 to 3?ai,jendfor?endfors=0for i=1 to 3s=s+ai,iendfor?S*求 n行 n列矩阵的鞍点(在矩阵行中最大，列中最小的数)*clearinput n= to ndimension an,nfor i=1 to nfor j=1 to ninput a+stri,1+strj,1+= to ai,jendforendforfor i=1 to
9、 nfor j=1 to n资源网站 http:/- 9 -?ai,jendfor?endforfor i=1 to ntemp=ai,1k=1for j=1 to nif ai,jtemptemp=ai,jk=jendifendforfor r=1 to nif ar,kn? tempendifendfor7递归算法（阶乘、最大公约数等） ；clearinput “N=“ to n?str(n)+“!=“+str(jc(n)function jcparameters kif k=1return 1elsereturn k * jc(k-1)Endifclearinput “N=“ to ninput “M=“ to m资源网站 http:/- 10 -? f(n,m)function fparameters x,yif x0do while at(s1,s)0s=stuff(s,at(s1,s),len(s1),)enddoreturn selsereturn sendif
