word版可編輯-典型程序設(shè)計題精心整理-文庫吧資料
2025-03-30 05:11本頁面
【正文】 1；enddo；?x；return；————————————————————————；23．已知S1=1,S2=1+2,S3=1+2+；clear；n=0；forx=20n。編程求使S不超過10的最大的N clears=0n=0do while .t.n=n+1s=s+1/nif s10exitendifenddo? n1return18．求S=8!+9!+10!clears=0for x=8 to 10t=1for y=1 to xt=t*ynexts=s+tnext? sreturn19．編寫程序，求10!20．計算S=3!+5!+7!+...+N!，求直到S=680000為止的奇數(shù)N。clears=0for n=1 to 99s=s+1/nnext? sreturn16．編程求S=1*3+2*4+3*5+...+198*200。clears=1n=1do while .t.s=s*nif n=25exitendifn=n+4enddo? sreturn14．求出1到5000之間的能被5整除的前若干個偶數(shù)之和，當(dāng)和大于500時程序退出。clears1=0s2=0for i=1 to 500if i%2=0s1=s1+i^3elses2=s2+i^3endifnext? “偶數(shù)立方和與奇數(shù)立方和之差為：”, s1s2return————————————————————————————————————11．求3+9+27+81+243+...這樣的數(shù)之和. 若累加數(shù)大于500時,則結(jié)束累加. clears=0n=1do while .t.s=s+3^nif s500exitendifn=n+1enddo? sreturn12．求1+3+5+7+9+11+..., 則結(jié)束累加。clears=0for i=1000 to 9999gw=i%10sw=int(i/10)%10bw=int(i/100)%10qw=int(i/1000)if i%20 and (gw+sw+bw+qw)%25=0s=s+iendifnext? “和：”, nreturn9．求出所有能被17整除且不含重復(fù)數(shù)字的三位數(shù)的和。clearn=0for i=10 to 100if i%17=int(i/5)n=n+1endifnext? “個數(shù)：”, nreturn7．統(tǒng)計區(qū)間[1000，9999]內(nèi)所有能被3整除，且千位數(shù)字與個位數(shù)字之和為8的整數(shù)的個數(shù)。 clears=0for i=105 to 625if i%7=0 and i%11=0s=s+iendifnext?sreturn5．編程序求出1000到2000之間同時滿足除3余2和除5余3條件的數(shù)的個數(shù)。cl
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1