1、不及格Endcase4. 输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）Inpu 请输入处理几个人的成绩： to nFor i=1 to nendfor5. 求S1+2+3. . . . . .+100CleaS=0For i=1 to 100 S=s+iEndfors 6. 求S123. . . . . .100p=1 p=p*ip7. 求S1+3+5. . . . .+99For i=1 to 99 step 28. 求S12+34. . . . . .100 S=s+（-1）（i+1）*i9. 求S1+1/2+2/3+3/5. . . . . .前10项之和A=1
2、B=1For i=1 to 10 S=s+a/b T=a A=b B=t+b10. 求S1！+2！+3！. . . . . .+10！P=1P=p*i S=s+p 11. 对学生表中所有入学成绩650分的学生免去贷款Use 学生Scan for入学成绩=650 .and. 贷款否=.t. Repl贷款否 with .f.EndscanUse12. * * * * * * * * * * * * * * * * * * * * *输出图形For i=1 to 4 For j=1 to i* Endfor For j=1 to 4-i &有一个空格 For j=1 to 2*i-113. 判断一个
3、整数是否素数For i=2 to x-1 If mod（x,i）LoopExitIf ix-1x,是素数x,不是素数14. 判断十个整数是否素数For j=1 to 1015. 找出两个数的大数和小数Inpu y to yx,大,y,小y,大,x,小16. 找出三个数的最大数和最小数Inpu z to zIf x t=xx=yy=t If xzx=zz=t endifendifif y t=yy=zx,是最大数,z,是最小数17. 找出十个数的最大数和最小数Dime a（10） Inpu to a（i）Max=a（1）Min=a（1）For i=2 to 10 If max Min=a（i）m
4、ax,min18. 找出23矩阵中的最大数和最小数cleadime a（2,3）for i=1 to 2 for j=1 to 3input a（+str（I,2）+,+str（j,2）+）= to a（I,j） endformax=a（1,1）min=a（1,1）if max a（I,j） min= a（I,j）max=,max,min=,min19. 对三个整数从大到小排序ClearInput a= to aInput b= to bInput c= to cIf ab B=t If ac t=a A=cc=tIf b T=b c=ta,b,c20. 对十个整数从大到小排序（用选择法和起泡
5、法两种方法）选择法: Input to a（i）For i=1 to 9 Max=a（i） Num=i For j=i+1 to 10If maxa（j） max=a（j） Num=j If inum t=A（i） a（i）=a（num） a（num）=ta（i）, 起泡法： For j=1 to 10-i If a（j）c and a+cb and b+ca p=（a+b+c）/2 s=sqrt（p*（p-a）*（p-b）*（p-c）三边不能组成三角形27. 求二元方程的根（分三种情况：两个不等实根，两个相等实根，无实根）inpu to a &a to b &bi=b*b-4*a*c if
6、i0 方程无实根! if i=0 r=（-b）/（2*a）方程有两个相等实数根:,r else x1=（-b+sqrt（i）/（2*a） x2=（-b-sqrt（i）/（2*a） 方程有两个不相等实数根:,x1,x2 28. 输入任意一个五位整数，前后对应位置上的数据进行交换重新排列（即逆序排列）（例：2598448952）dime a（5）inpu to ba（1）=int（b/10000）a（2）=mod（int（b/1000）,10）a（3）=mod（int（b/100）,10）a（4）=mod（int（b/10）,10）a（5）=mod（b,10）for i=1 to int（5/2）
7、 t=a（i） a（i）=a（6-i） a（6-i）=tc=a（1）*10000+a（2）*1000+a（3）*100+a（4）*10+a（5）b,c29. 找出一个3x3矩阵的“鞍点”，即该位置上的元素在该行上最大，在该列上最小（也有可能没有鞍点）dime a（3,3） flag=.t. for j=1 to 3 input a（+str（I,2）+,+str（j,2）+）= to a（i,j） for i=1 to 3 max=a（i,1） col=1 for j=2 to 3 if maxa（i,j） max=a（i,j） col=j min=a（1,col） row=1 for k=2
8、 to 3a（k,col） min=a（k,col） row=k if max=mina（row,col）,是鞍点，在,row,行,col,列 flag=.f.if flag=.t.无鞍点30. 求S（n）=a+aa+aaa+.+aaa.aaa（其中有n个a）之值，a是一个数字，n和a由键盘键入（例如：2+22+222+22222+22222，此时n=5）n= to ns=0t=afor i=1 to n s=s+t t=a+t*1031.把一张一元钞票,换成一分、二分和五分硬币,每种至少11枚,问有多少种方案?13for a=11 to 100for b=11 to 50for c=11 t
9、o 20if a+2*b+5*c=100s=s+1next32.一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃啦，问猴子总共摘了多少桃。1534dime f（10）f（1）=1f（2）=4f（3）=10for n=4 to 10f（n）=2*f（n-1）+2s=f（n）33.已知S1=1, S2=1+2, S3=1+2+4, S4=1+2+4+8,S5=1+2+4+8+16，编制一个程序求S=S1+S2+S3+S4+S5+S20的值。2097130dime f（20）f（1）=1 f（2）=2f（3）=4q=0for n=1 to 20f（n）=2（n-1）s=s+f（n）q=q+sq
