《计算机操作题大题》由会员分享，可在线阅读，更多相关《计算机操作题大题（17页珍藏版）》请在金锄头文库上搜索。
1、操作题： 、计算 1+2+3+68 的值,将结果保存在变量 s 中，用?输出 s。(循环变量用 i 来表示, 程序运行结果用整数表示,如:123,12369) 运行结果为：2346 set talk off set talk off s=0 s=0 i=1 for i=1 to 68 do while i500.And.基本工资=1970/01/01 .And. 出生日期n)n=i endif endfor ?n Set talk on8、有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13,试求出这个数列的前 30 项之和,结果放在变 量 s 中，并用?输出 s.(程序运行结果
2、保留 4 位小数) 运行结果：48.8406 Set talk off S=0 x=1 y=1 For i=1 to 30x=x+yy=x-y s=s+(x/y) endfor ?s set talk on9、 统计 3 至 100 之间的质数的个数,结果放在变量 n 中，并用?输出 n.运行结果：24 Set talk off n=0 for m=3 to 100 step 2k=int(sqrt(m)for i=3 to k if mod(m,i)=0 exit endifendfor if ikn=n+1 endif endfor ?n Set talk on 10、找出 500 至 1
3、000 之间最大的质数,结果放在 x 中,并用?输出.运行结果：997 Set talk off max=0 for i=500 to 1000 flag=0 for j=2 to i-1 if i%j=0 flag=1 exit endif endfor if flag=0if imaxmax=i endifendif endfor ?max Set talk on13 统计 200 至 300 之间质数的个数,结果放在 n 中，并用?输出 n. 运行结果：16 Set talk off n=0 for i=200 to 300 flag=0 for j=2 to i-1 if i%j=0
4、flag=1 exit endif endfor if flag=0 n=n+1 endif endfor ?n Set talk on15、求斐波那契数列的第 20 项的值。斐波那契数列的第一、二项均为 1，从第三项开始, 每一项都是前面两项之和。即 1，1，2，3，5，8，13，21，34，55。 （程序中，第 1、2 项分别用 A 和 B 表示，结果放在 C 中）运行结果：6765 Set talk off a=1 b=1 c=0 For i=3 to 20 c=a+b a=b b=c Endfor ?c Set talk on 16 求斐波那契数列的前 20 项的和,结果放在 s 中。
5、斐波那契数列的第一、二项均为 1，从 第三项开始, 每一项都是前面两项之和。即 1，1，2，3，5，8，13，21，34，55。 （程序中，第 1、2 项分别用 A 和 B 表示）运行结果：17710 Set talk off s=0 a=1 b=1 for i=1 to 10 s=s+a+ba=a+b b=b+a endfor ?s Set talk on17 统计 300 到 800 之间，符合下面条件的数的个数，结果存放在 num 中，并用?输出 num 的值。条件是：个位数字与十位数字之和被 10 除，所得余数恰好是百位上的数字。 （不允 许使用字符转换函数） 。运行结果：50 Set
6、 talk off num=0 For i=300 to 800a =int( i/100)b =int (i/10)%10 c = i%10 if (a = (b+c)%10 )num=num+1Endif Endfor ?num Set talk on18 求 100 到 999 之间,符合下面条件的所有数字的和,结果存在变量 sum 中，并用?输出 sum 的值。条件是：个位数字与十位数字之和被 10 除，所得余数恰好是百位上的数字。循环变 量用 i 表示。 （例如：293 就是符合该条件的数，不允许使用字符转换函数） 。运行结果： 49455 Set talk off num=0 Fo
7、r i=100 to 999a =int( i/100)b =int (i/10)%10 c = i%10 if (a = (b+c)%10 )num=num+iEndif Endfor ?num Set talk on19 求出 100 到 999 之间,符合下面条件的数中的最大数，结果存放在变量 max 中，并用?输 出 mAx 的值。条件是：个位数字与十位数字之和被 10 除，所得余数恰好是百位上的数字。（例如：293 就是符合该条件的数，不允许使用字符转换函数） 。运行结果：990 Set talk off num=0 max=0 For i=100 to 999a =int( i/100)b =int (i/10)%10 c = i%10 if (a = (b+c)%10 )if maximax=iEndif endif Endfor ?max Set talk on20、求表达式 6+66+666+6666+66666 的值,结果存在变量 sum 中，并用?输出 sum 的值。 （循环结构请用 for 循环实现,程序运行结果为整数） 运行结果：74070 Set talk off n=6 sum=6 For i=1 to 4n=10i*6+nsum=sum+n endfor ?int(sum) Set talk on
