.第六章 程序設(shè)計(jì)精選范本程序設(shè)計(jì)1*-從鍵盤(pán)輸入三角形的邊長(zhǎng)，輸入邊長(zhǎng)滿(mǎn)足兩邊之和大于第三邊，且為正值。計(jì)算并輸出三角形的面積S；若不滿(mǎn)足以上條件，顯示輸出不能構(gòu)成三角形。其中面積公式請(qǐng)參看(圖1)。將面積值存入變量AREA中。請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-INPUT TO AINPUT TO BINPUT TO C? 三角形面積為,FUN(A,B,C)RETURNFUNCTION FUN(a,b,c)AREA=-1*Program* End *RETURN AREA程序設(shè)計(jì)2*-從鍵盤(pán)任意輸入的三個(gè)數(shù)按從大到小排序。排序后存入變量A，B，C中請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-A=-1B=-1C=-1input x= to xinput y= to yinput z= to zFUN(X,Y,Z)RETURNFUNCTION FUN(X,Y,Z)*Program* End *RETURNDO YZJ10 WITH OUT程序設(shè)計(jì)3*-從鍵盤(pán)輸入一個(gè)數(shù)，如果該數(shù)字大于0，通過(guò)子程序輸出該數(shù)字作為半徑的圓面積；如果該數(shù)字小于等于0，則輸出不能作為圓的半徑。(PI=3.14)將結(jié)果存入變量OUT中，請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-INPUT TO A?FUN(A)FUNCTION FUN(R)OUT=-1*Program* End *RETURN OUT程序設(shè)計(jì)4*-從鍵盤(pán)輸入3個(gè)數(shù)，然后找出其中最大值和最小值。最大值存入中，最小值存入中。本題使用IF.EndIf 語(yǔ)句完成。*-INPUT 請(qǐng)輸入一個(gè)數(shù)： TO AINPUT 請(qǐng)輸入一個(gè)數(shù)： TO BINPUT 請(qǐng)輸入一個(gè)數(shù)： TO CMa=-1Mi=-1FUN(A,B,C)?MA,MIFUNC FUN(A,B,C)*Program* End *RETURN程序設(shè)計(jì)5*-計(jì)算下列分段函數(shù)：如下圖當(dāng)輸入任意X值時(shí)，顯示輸出Y值，要求用Do Case語(yǔ)句實(shí)現(xiàn)。*-INPUT TO X?FUN(X)RETURNFUNCTION FUN(X)Y=-1*Program* End *RETURN Y程序設(shè)計(jì)6*-判斷一個(gè)三位數(shù)是否為水仙花數(shù)，并輸出判斷結(jié)果，是為1，否為0。所謂水仙花數(shù)是指一個(gè)3位數(shù)，其各位數(shù)字立方和等于該數(shù)本身。將結(jié)果存入變量OUT中。*-OUT=-1n=153*Program* End *程序設(shè)計(jì)7*-編程求對(duì)某一正數(shù)的值保留2位小數(shù)，并對(duì)第三位進(jìn)行四舍五入。將結(jié)果存入變量OUT中。*-h=234.5367OUT=-1*Program* End *程序設(shè)計(jì)8*-編程求對(duì)某一正數(shù)的值保留3位小數(shù)，并對(duì)第4位進(jìn)行四舍五入。將結(jié)果存入變量OUT中。*-h=234.5367OUT=-1*Program* End *11程序設(shè)計(jì)9*-輸出10到50之間所有能被7整除的數(shù)。(用do while enddo語(yǔ)句實(shí)現(xiàn))并將這些數(shù)的和存入所給變量OUT中。請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-OUT=-1*Program* End *DO YZJ4 WITH OUT程序設(shè)計(jì)10*-求1-200間的所有偶數(shù)的和，結(jié)果輸入變量OUT中，要求用For循環(huán)語(yǔ)句實(shí)現(xiàn)。*-OUT=-1*Program* End *程序設(shè)計(jì)11*-編程求P=1+1/(2x2)+1/(3x3)+ 1/(10x10)。將結(jié)果存入變量OUT中，要求用Do While語(yǔ)句實(shí)現(xiàn)。*-OUT=-1*Program*P=0M=1DO WHILE M=10P=P+1/(M*M)M=M+1ENDDO? P=,POUT=P* End *程序設(shè)計(jì)12*-編程計(jì)算如下表達(dá)式的值：y=1-1/31/5-1/71/9，要求使用for.endfor語(yǔ)句來(lái)完成。將結(jié)果存入變量OUT中。OUT=-1*-*Program*s=1for i=1 to 4s=s+(-1)i/(2*i+1)endforout=s? out* End *程序設(shè)計(jì)13*-編程計(jì)算如下表達(dá)式的值：y=1-1/2+1/4-1/6+1/8-1/10，要求使用for.endfor語(yǔ)句來(lái)完成。將結(jié)果存入變量OUT中。*-OUT=-1*Program*s=1for i=1 to 5s=s+(-1)i/(2*i)endforout=s? out* End *程序設(shè)計(jì)14*-編程求P=1-1/(22)+1/(33)-1/(44)+1/(55)。將結(jié)果存入變量OUT中，要求用Do While語(yǔ)句實(shí)現(xiàn)。*-OUT=-1*Program*P=0M=1I=0DO WHILE M=5P=P+(-1)(M+1)/(M*M)M=M+1ENDDO? P=,POUT=P* End *程序設(shè)計(jì)15*-從鍵盤(pán)輸入一個(gè)整數(shù)，輸出所有能整除該數(shù)，并且本身也能被3整除的數(shù)的和。（例如：輸入6，則輸出3，6）結(jié)果存于變量x中，要求用For循環(huán)語(yǔ)句實(shí)現(xiàn)。*-INPUT TO N?FUN(N)FUNCTI FUN(A)X=0*Program*FOR N=1 TO A IF A%N=0.AND.N%3=0 ? N x=x+N ENDIFENDFOR* End *RETURN X程序設(shè)計(jì)16*-編程求出1*1+2*2+.+n*n=1000中滿(mǎn)足條件的最大的n，將結(jié)果存入變量OUT中。要求用Do While語(yǔ)句實(shí)現(xiàn)。 *-OUT=-1*Program*s=0n=1do while s0 d=n%10 s=s*d n=int(n/10)enddoout=s? out* End *程序設(shè)計(jì)25*-編程計(jì)算正整數(shù)num的各位上的數(shù)字之和。將結(jié)果存入變量OUT中，要求用Do While語(yǔ)句實(shí)現(xiàn)。*-?輸入正整數(shù)num=434num=434OUT=-1*Program*s=0do while num0 s=s+num%10 num=int(num/10)enddout=s? out* End *程序設(shè)計(jì)26*-編程計(jì)算正整數(shù)num的各位上的數(shù)字之積。例如，若輸入：252，則輸出應(yīng)該是：20。將結(jié)果存入變量OUT中，要求用Do While語(yǔ)句實(shí)現(xiàn)。*-num=434OUT=-1*Program*s=1do while num0 s=s*(num%10) num=int(num/10)enddout=s? out* End *程序設(shè)計(jì)27*-編程判斷一個(gè)整數(shù)w的各位數(shù)字平方之和能否被5整除, 可以被5整除則返回1，否則返回0。將結(jié)果存入變量OUT中，要求用Do While語(yǔ)句實(shí)現(xiàn)。*-OUT=-1w=39*Program*s=0 do while w0 s=s+(w%10)*(w%10) w=int(w/10) enddo if s%5=0 out=1 else out=0endif ? out* End *DO YZJ WITH OUT程序設(shè)計(jì)28*-輸入一個(gè)三位數(shù)，將個(gè)、十、百位順序拆開(kāi)分別存入變量S中，用加號(hào)分隔。如輸入345分開(kāi)后為3+4+5，要求用Do While語(yǔ)句實(shí)現(xiàn)。 *-?FUN(345)RETURNFUNC FUN(N)S=*Program*do while n0 a=n%10 S=+STR(INT(A),1)+S n= n-a n=n/10enddoS=SUBS(S,2,LEN(S)* End *RETURN S11程序設(shè)計(jì)29*-輸出下面圖形：（要求使用For語(yǔ)句，利用雙重循環(huán)語(yǔ)句） * * * * * * * * * *請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。要求：將輸出第三行的所有字符存入變量S中。*-S=*Program*for i=1 to 4for j=1 to i?*endfor ?endfor* End *DO YZJ6 WITH S程序設(shè)計(jì)30*-利用循環(huán)程序輸出圖形： 1 222 33333 4444444并將輸出第三行存入變量S中，請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-S=*Program*N=1FOR N=1 TO 4? SPACE(4-N)FOR M=1 TO 2*N-1? STR(N,1)ENDFORENDFOR SET TALK ONS=33333* End *DO YZJ13 WITH S程序設(shè)計(jì)31*-利用循環(huán)程序輸出圖形： 4 333 22222 1111111并將最后一行存入變量S中，請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-S=*Program*FOR N=1 TO 4? SPACE(4-N)FOR M=1 TO 2*N-1? STR(4-N+1,1)ENDFORENDFORS=1111111* End *DO YZJ15 WITH S11程序設(shè)計(jì)32*-計(jì)算并在屏幕上顯示乘法表。顯示格式如下： 11= 1 12= 2 22= 4 13= 3 23= 6 33=9 . 19= 9 29= 18 .99=81將各部分結(jié)果相加（1+2+4+.+81）存入變量Z中，程序要求用Do While語(yǔ)句實(shí)現(xiàn)。*-Z=0*Program*X=1?DO WHILE X=9 Y=1 DO WHILE Ysn=n+1endifendfout=n? out* End *程序設(shè)計(jì)39*-編程求一批數(shù)中最大值和最小值的差。將結(jié)果存入變量OUT中。*-dime array(10)array(1)=10array(2)=3array(3)=6array(4)=96array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program*store array(1) to max,minfor i=1 to 10if array(i)max max=array(i)endifif array(i)max max=array(i)endifif array(i)max max=array(i)endifif array(i)min min=array(i)endifendfout=max*min? out* End *程序設(shè)計(jì)42*-編程找出一批正整數(shù)中最大的偶數(shù)。結(jié)果存入變量OUT中。*-dime array(10)array(1)=1array(2)=3array(3)=6array(4)=96array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program*max=array(1)for i=1 to 10 if array(i)%2=0 if maxarray(i) min=array(i) endif endifendfout=min ? out* End *程序設(shè)計(jì)44*-編程找出一批正整數(shù)中的最小的奇數(shù)。將結(jié)果存入變量OUT中。請(qǐng)按照題目要求，用For循環(huán)語(yǔ)句在下面編寫(xiě)程序代碼。 *-dime array(10)array(1)=1array(2)=3array(3)=6array(4)=96array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program*min=array(1)for i=1 to 10 if array(i)%20 if minarray(i) min=array(i) endif endifendfout=min ? out* End *程序設(shè)計(jì)45*-編程找出一批正整數(shù)中的最大的奇數(shù)。將結(jié)果存入變量OUT中。*-dime array(10)array(1)=1array(2)=3array(3)=6array(4)=96array(5)=4array(6)=23array(7)=35array(8)=67array(9)=12array(10)=88OUT=-1*Program*max=array(1)for i=1 to 10 if array(i)%20 if maxarray(i) max=array(i) endif endifendfout=max ? out* End *程序設(shè)計(jì)46*-編程當(dāng)n=10時(shí)，計(jì)算如下表達(dá)式a10的值。a1=1,a2=1/(1+a1),a3=1/(1+a2),.an=1/(1+a(n-1)。將結(jié)果存入變量OUT中，要求用For循環(huán)語(yǔ)句實(shí)現(xiàn)。*-OUT=-1*Program*a=1for i=1 to 9a=1.0/(1+a)endforout=a? out* End *程序設(shè)計(jì)47*-編程已知下列各項(xiàng)：a1=1,a2=1/(1+a1),a3=1/(1+a2),.an=1/(1+a(n-1)。當(dāng)n=10時(shí)，計(jì)算s=a1-a2+a3-a4.-a10表達(dá)式的值，將結(jié)果存入變量OUT中。 *-OUT=-1*Program*a=1s=1for i=1 to 9a=1.0/(1+a)s=s+a*(-1)iendforout=s? out* End *程序設(shè)計(jì)48*-在屏幕上縱向輸出計(jì)算機(jī)等級(jí)考試。（要求用Do While 語(yǔ)句實(shí)現(xiàn)）并將第五行的字符輸出到給定變量Y中。請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-Y=*Program*i=10S=0do while i=50 if i%7=0 ?i S=S+I endif i=i+1enddoOut=S* End *DO YZJ5 WITH Y11程序設(shè)計(jì)49*-從鍵盤(pán)輸入一個(gè)漢字字符串，送入變量S中，將它逆向存入變量Y中，如：輸入計(jì)算機(jī)考試，輸出為試考機(jī)算計(jì)，要求用For循環(huán)實(shí)現(xiàn)。請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。*-A=計(jì)算機(jī)考試?FUN(A)FUNCTIO FUN(S)Y=*Program*FOR N=1 TO LEN(S)-1 STEP 2Y=Y+SUBS(S,LEN(S)-N,2)ENDFOR* End *RETURN Y程序設(shè)計(jì)50*-過(guò)濾已存在字符串變量STR中的內(nèi)容，只保留串中的字母字符，并統(tǒng)計(jì)新生成串中包含的字母?jìng)€(gè)數(shù)。將生成的結(jié)果字符串存入變量OUT中。*-OUT=str=ab23 %(u)*Program*N=LEN(STR)L=0S=FOR I=1 TO NIF SUBSTR(STR,I,1)=A OR SUBSTR(STR,I,1)=a l=l+1s=s+SUBSTR(STR,I,1)endifendfor? s=,sout=s* End *程序設(shè)計(jì)51*-編程將一個(gè)由四個(gè)數(shù)字組成的字符串轉(zhuǎn)換為每?jī)蓚€(gè)數(shù)字間有一個(gè)空格的形式輸出。例如輸入4567，應(yīng)輸出4567(表示空格)，將結(jié)果存入變量OUT中，要求用For循環(huán)語(yǔ)句實(shí)現(xiàn)。*-str=4567OUT=*Program*spc=space(1)s=for i=1 to len(str)-1s=s+subs(str,i,1)+spcendfs=s+subs(str,i,1)out=s? out,len(out)* End *程序設(shè)計(jì)52*-編程將一個(gè)由四個(gè)數(shù)字組成的字符串轉(zhuǎn)換為每?jī)蓚€(gè)數(shù)字間有一個(gè)字符“*”的形式輸出。例如輸入4567，應(yīng)輸出4*5*6*7。將結(jié)果存入變量OUT中。*-str=4567OUT=*Program*spc=*s=for i=1 to len(str)-1s=s+subs(str,i,1)+spcendfs=s+subs(str,i,1)out=s? out,len(out)* End *程序設(shè)計(jì)53*-設(shè)表RSDA.DBF結(jié)構(gòu)為：學(xué)號(hào)（C，5），姓名（C，6）， 職稱(chēng)（C，6）統(tǒng)計(jì)出RSDA.DBF表中職稱(chēng)為工程師的人數(shù)。（利用DO WHILEENDDO循環(huán)語(yǔ)句實(shí)現(xiàn)）。將人數(shù)存入變量Y中，請(qǐng)按照題目要求，在下面編寫(xiě)程序代碼。 *-Y=-1*Program*use rsdastore 0 to slocate for 職稱(chēng)=工程師do while not eof()s=s+1continueenddo?共有工程師+str(s,3)+名useY=S* End *DO YZJ9 WITH Y程序設(shè)計(jì)54*-編程統(tǒng)計(jì)一個(gè)長(zhǎng)度為2的字符串在另一個(gè)字符串中出現(xiàn)的次數(shù)。