1/14第六章程序设计编程题1.求园的面积(要求判断半径是否合理)CleaInpu‘r=’torIfr>0S=3。14*r*r?sElse?’半径错误!’Endif2.求分段函数Y的值CleaInpu‘x=’toxIfx>0Y=2*x+5ElseIfx=0Y=xElseY=abs(x)EndifEndif?y3.输入一个百分制成绩判断其等级(优/良/中/及格/不及格)CleaInpu‘cj=’tocjDocaseCasecj>=90?’优’Casecj>=80?’良’Casecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’Endcase4.输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)CleaInpu‘请输入处理几个人的成绩:’tonFori=1tonInpu‘cj=’tocjDocaseCasecj>=90?’优’Casecj>=80?’良’Casecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’EndcaseendforY=2x+5x>0xx=0|x|x<02/145.求S=1+2+3。。。。。。+100CleaS=0Fori=1to100S=s+iEndfor?s6.求S=1×2×3。。。。。。×100Cleap=1Fori=1to100p=p*iEndfor?p7.求S=1+3+5。。。。。。+99CleaS=0Fori=1to99step2S=s+iEndfor?s8.求S=1-2+3-4。。。。。。-100CleaS=0Fori=1to100S=s+(-1)^(i+1)*iEndfor?s9.求S=1+1/2+2/3+3/5。。。。。。前10项之和CleaS=0A=1B=1Fori=1to10S=s+a/bT=aA=bB=t+bEndfor?s10.求S=1!+2!+3!。。。。。。+10!CleaS=0P=1Fori=1to10P=p*iS=s+pEndfor?s11.对学生表中所有入学成绩≥650分的学生免去贷款CleaUse学生Scanfor入学成绩>=650。and。贷款否=。t。Repl贷款否with。f。3/14EndscanUse12.输出图形CleaFori=1to4Forj=1toi??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1to2*i-1??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1toi??’*’Endfor?Endfor13.判断一个整数是否素数CleaInpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseExitEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’Endif************************************************************************4/1414.判断十个整数是否素数CleaForj=1to10Inpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseExitEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’EndifEndfor15.找出两个数的大数和小数CleaInpu‘x=’toxInpu‘y’toyIfx>y?x,’大’,y,’小’Else?y,’大’,x,’小’Endif16.找出三个数的最大数和最小数CleaInpu‘x=’toxInpu‘y’toyInpu‘z’tozIfx
a(i)Min=a(i)EndifEndifEndfor?max,min5/1418.找出2×3矩阵中的最大数和最小数cleadimea(2,3)fori=1to2forj=1to3input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j)endforendformax=a(1,1)min=a(1,1)fori=1to2forj=1to3ifmaxa(I,j)min=a(I,j)endifendifendforendfor?’max=’,max,’min=’,min19.对三个整数从大到小排序ClearInput‘a=’toaInput‘b=’tobInput‘c=’tocIfanumt=A(i)a(i)=a(num)a(num)=tEndifEndforFori=1to10??a(i),''Endfor起泡法:ClearDimea(10)Fori=1to10Inputtoa(i)EndforFori=1to9Forj=1to10-iIfa(j)