计算机编程习题.docVIP

1题：编程求P=1x(1x2)x(1x2x3)x … x(1x2x … xN)，N由键盘输入。 将结果输出并存入变量OUT中。 INPUT 请任意输入一个数字: TO N p=1 For i=1 to n S=1 For j=1 to i S=s*j Endfor p=p*s Endfor Out=p ?out 2题：从键盘任意输入的三个数按从大到小排序。 排序后存入变量A，B，C中 input 请输入第一个数： to x input 请输入第二个数： to y input 请输入第三个数： to z if xy t=x x=y y=t endif if xz t=x x=z z=t endif if yz t=y y=z z=t endif a=x b=y c=z ?a,b,c 3题：统计STUDENT.DBF数据表中法律系和中文系两个系的总人数和奖学金总额。 表结构如下：学号(C,4)，姓名(C,6)，出生日期(D,8)， 英语(N,3)，计算机(N,3)，系别(C,10)，奖学金(N,3) 并将总人数存入变量 R 中,奖学金总额存入 S 中. （用循环语句完成） Use student do while .not.eof() if 系别=”法律系” or 系别=”中文系” r=r+1 s=s+奖学金 endif skip enddo ?r,s use 4题：编一程序打印一个数列，前两个数是0、1第三个数是前两个数之和，以后的每个数都是其前两个数之和。 编程输出此数列，并将第20个数的结果存入变量OUT中。 P=0 S=1 For i=3 to 20 N=p+s ?n P=s S=n Endfor Out=n ?out 5题：判断整数是否为质数 (只能被1和本身整除的数) 。 是质数则函数返回1，否则函数返回0 Input “请输入一个数:” to n For i=2 to n-1 If mod (n,i)=0 exit endif endfor if i=n out=1 else out=0 endif ?out 6题：用循环程序求出1-15之间数能被3整除的整的阶乘和 将结果输出并存入变量OUT中。 s=0 for i=1 to 15 if mod(i,3)=0 p=1 for j=1 to i p=p*j endfor s=s+p endif endfor Out=s ?out 7题：编程函数FUN(A)完成：从键盘输入任意一个数X时，求其相应的Y值。 | 1 X0 Y=-| 0 X=0 | -1 X0 Do case Case x0 Y=1 Case x=0 Y=0 Case x0 Y=-1 endcase ?y 8题：从键盘输入一个整数，输出所有能整除该数，并且本身 也能被3整除的数的和。（例如：输入6，则输出3，6） 结果存于变量x中。 Input “请输入n的值：” to n For i=1 to n If mod(n,i)=0 and mod(I,3)=0 X=x+i Endif Endfor ?x 9题：利用循环程序输出图形： 4 333 22222 1111111 并将最后一行存入变量S中 For I=1 to 4 For j=1 to 4-i ??” “ Endfor For n=1 to 2*i-1 ??str(5-I,1) Endfor ? Endfor S=”1111111” 10题：利用循环程序输出图形： ******* *** *** ** ** * * ******* 并将第3行输出并存入变量S中 For i=1 to 5 If i=1 or i=5 ??”*******” Else For j=1 to 5-i ??”*” Endfor For m=1 to 2*i-3 ??” “ Endfor For n=1 to 5-i ??”*” Endfor Endif ? Endfor ?”** **” S=”** **” 11题：把输入一个三位数，各个数位按个、十、百位顺序拆开 别输出存入变量Ｓ中，用加号分隔。 如输入345分开后为3+4+5 Input “请输入一个三位数