RAPTOR程序设计一、顺序结构编程1．输入任意一个华氏温度值，然后将其转换成摄氏温度输出。算法：c=5/9(f-32)Start"Pleaseinputfvalue"GETfc←5/9*(f-32)PUT"C="+c¶End2．输入任意三角形的三边之长存入变量a、b、c中，然后计算并输出该三角形的面积。海伦公式：p=(a+b+c)/2S=sqrt(p*(p-a)*(p–b)*(p–c))Start"Pleaseinputavalue"GETa"Pleaseinputbvalue"GETb"pleaseinputcvalue"GETcp←(a+b+c)/2s←sqrt(p*(p-a)*(p-b)*(p-c))PUT"S="+s¶EndStart"Pleaseinputavalue"GETa"Pleaseinputbvalue"GETb"pleaseinputcvalue"GETc(a+b>c)and(a+c>b)and(b+c>a)p←(a+b+c)/2s←sqrt(p*(p-a)*(p-b)*(p-c))PUT"S="+s¶PUT"Error!"¶NoYesEnd二、选择结构编程3．输入任意一个年份，判断该年是否为润年。若是则打印“Yes!”，否则打印”No!”。Start"Pleaseinputayear"GETy((ymod4==0)and(ymod100!=0))or(ymod400==0)PUT"Yes!"¶PUT"No!"¶NoYesEnd4.输入任意两个数存入变量a、b中，要求：变量a中存储较大数，b中存储较小数，然后输出变量a和b的值。Start"a=?"GETa"b=?"GETbabmx←amx←bNoYesc>mxmx←cNoYesPUT"Maxdatais:"+mx¶End6．输入任意三个数存入变量a、b、c中，然后按从小到大的顺序打印输出。Start"a=?"GETa"b=?"GETb"c=?"GETca>bx←aa←bb←xNoYesa>cx←aa←cc←xNoYesb>cx←bb←cc←xNoYesPUTa+""+b+""+c¶End7．输入任意一个学生的考试成绩，然后按其所属分数段打印对应等级：90-100分为A等，80-89分为B等，70-79为C等，60-69为D等，60分以下为E等。Start"score=?"GETxx<60grade←"E"x<70grade←"D"x<80grade←"C"x<90grade←"B"grade←"A"NoYesNoYesNoYesNoYesPUT"Scoreis:"+x+"Gradeis:"+grade¶End三、循环结构编程8．计算并输出sum=1+2+3+…+10的和。改进程序计算sum=1+2+3+…+n的和。Start"n=?"GETnsum←0i←1i>nsum←sum+ii←i+1PUT"sum="+sum¶EndYesNoLoop9．输入任意自然数n，然后计算并输出n!值。Start"n=?"GETnp←1i←1i>np←p*ii←i+1PUTn+"!="+p¶EndYesNoLoop10.计算并输出sum=1!+2!+3!+…+n!Start"n=?"GETnsum←0p←1i←1i>np←p*isum←sum+pi←i+1PUT"sum=1!+2!+...+"+n+"!="+sum¶EndYesNoLoop11.输入任意整数存入变量n中，若n≤0则输出“Error!”；否则组织循环结构流程计算sum=1/2+2/3+3/4+…+n/(n+1)的值，然后分别输出变量n和sum的值。Start"n=?"GETnn<=0PUT"Error!"¶i←1sum←0i>nsum←sum+i/(i+1)i←i+1PUT"sum="+sum¶YesNoLoopNoYesEnd12．设计循环结构程序输入任意10个整数，分别统计其中的奇数个数、偶数个数、所有数的累加和，然后显示结果。Starti←1sum←0i1←0i2←0i>10"eneter"+i+"data:"GETxxmod2!=0i1←i1+1i2←i2+1NoYessum←sum+xi←i+1PUT"i1="+i1+"i2="+i2+"sum="+sum¶EndYesNoLoop13．设计校园歌手大赛计分程序，假设有10评委按10分制打分，计算每位选手扣除一个最高分、最低分后的平均分，显示计分结果。Starti←1sum←0mx←-1mn←11i>10"Enter"+i+"score:"GETxx>mx1mx←xNoYesxbn←bn←aNoYesi>n(amodi==0)and(bmodi==0)zdgys←iNoYesi←i+1zxgbs←a*b/zdgysPUT"zdgys="+zdgys+"zxgbs="+zxgbs¶EndYesNoLoop15.判断输入的任意自然数n是否为素数？（素数也叫质数是指除1和它自身以外不能被任何数整除的数）Start"n=?"GETni←2flag←1i>sqrt(n)nmodi==0flag←0i←nNoYesi←i+1flag==1PUTn+"isaprim!"¶PUTn+"isnotaprim!"¶NoYesEndYesNoLoop16.翻番问题：设某企业2014年产值为1000万元，计划以后每年按8.5%递增，问该企业的产值在哪一年可以实现翻一番，输出翻番的年份和产值。（迭代法）Start"year=?"GETyear"p0=?"GETp0"c=?"GETcp1←p0p1>=2*p0p1←p1*(1+c)year←year+1PUT"Yeari...
