十六道程序設(shè)計(jì)復(fù)習(xí)題.doc

1、編寫一個(gè)程序，計(jì)算1+2+100的和。1. s=0for n=1 to 100s=s+nendfor? ss=0n=1do while n=100s=s+nn=n+1enddo? s? n2、編寫一個(gè)程序，將Da1.dbf表中凡是工資小于800元的增加100元。2. use da1.dbfscan for 工資800replace 工資 with 工資+100endscan3、編寫一個(gè)程序，求1到10之間的奇數(shù)之和及偶數(shù)之積。要求：奇數(shù)之和存放在變量S中，偶數(shù)之積存放在變量N中。3. s=0n=1for x=1 to 10 step 1if int(x/2)=x/2n=n*xelses=s+xendif endfor?s,n4、編寫一個(gè)程序，在Da1.dbf表中，查找職稱是“講師”的記錄，計(jì)算滿足條件的記錄個(gè)數(shù)和工資的總和。4. set talk offx =0y=0use da1.dbfscan for 職稱=講師x=x+1 y=y+工資endscan? x? y5、編一個(gè)程序,求1100之間偶數(shù)之和（S=2+4+6+100）。5. store 0 to i,tdo while i=90a=a+1case n=80b=b+1case n=70c=c+1case n=60d=d+1otherwisee=e+1endcase endfor?a,b,c,d,e8、編寫一個(gè)程序，從鍵盤輸入10個(gè)數(shù),找出其中的最大最小值。8. set talk offclearinput 請(qǐng)從鍵盤輸入一個(gè)數(shù): to astore a to max,minfor i=2to 10input 請(qǐng)從鍵盤輸入一個(gè)數(shù): to aif max amax=aendifif min amin =aendifendfor? 最大值為:,max? 最小值:,minset talk onreturn9、編寫一個(gè)程序，求0100之間的奇數(shù)之和。9. store 0 to i,tdo while i100i=i+1if int(i/2)=i/2loopendif t=t+ienddo ?t10、某院校按學(xué)生選修的學(xué)分收費(fèi)。學(xué)分在12學(xué)分以下的收費(fèi)4000元，若超過12學(xué)分，則超過部分每學(xué)分加收200元。編一個(gè)程序計(jì)算收費(fèi)。輸入學(xué)號(hào)I及學(xué)分U，輸出學(xué)號(hào)及應(yīng)繳學(xué)費(fèi)T。10. input 請(qǐng)輸入一個(gè)學(xué)號(hào): to Iinput 請(qǐng)輸入一個(gè)學(xué)分: to Uif I =12T=4000else T=(I-12)*200+4000endif? T11、編寫一個(gè)程序，統(tǒng)計(jì)職工表Zgda.dbf中，職稱是“講師”和“副教授”，年齡為45歲以下的教師人數(shù)。11. store 0 to x,yuse da1.dbfscan for year(date()-year(出生日期)45if 職稱=講師 x=x+1 if 職稱=副教授 y=y+1 endifendifendscan?x,y12、編一個(gè)程序求S=1+(1+2)+(1+2+3)+（1+2+3+4+10）之和。12. n=0for i= 1 to 10for j= 1to in=n+jendforendfor? n13、設(shè)計(jì)一個(gè)程序，輸出一個(gè)由*組成的三角形。13. for i=1 to 3? space(10-i)+replicate(*,2*i-1)endfor14、編寫一個(gè)程序，以顯示方式輸出1到20的數(shù)字。14. set talk offfor a=1 to 20? aendforset talk on15、編寫程序求100到999之間的水仙花數(shù)。（水仙花數(shù)：對(duì)于一個(gè)三位數(shù)abc，a3+b3+c3=abc）15. for m=100 to 999a=int(m/100)b=int(mod(m,100)/10)c=m%10if m=a3+b3