回 帖 发 新 帖 刷新版面

主题:帮帮我,我不会做

1、一辆以固定速度行驶的汽车,清晨司机看到里程表上从左到右的读数和从右到左的读数是相同的,这个数是95859。7小时后,里程表上又出现一个新的对称数。问此车的时速是多少(是一整数)?这个新的对称数是什么?设里程表为5位数字
2、编写程序求两个整数M和N的最大公约数和最小公倍数。
3、编写程序,求出以下分数序列的前N项之和。2/1,3/2,5/3,8/5,13/8,21/13……
4、哥德巴赫猜想之一是任何大于5的奇数都是由3个素数之和组成,请验证10个奇数是由哪3个素数之和组成。10个奇数可调用随机函数产生。
5、调用随机函数产生20个200—300之间的随机整数放入数组中,利用紧凑格式打印出此数组中元素的值,每行打印五个数;然后把这20个数按由大到小顺序排列并输出。
6、调用随机函数产生50个200—300之间的随机整数放入数组中,利用紧凑格式打印出此数组中元素的值,每行打印10个灵敏:选出其中的素数;并把这些素数按由大到小顺序排列;然后输出
7、调用随机函灵敏,产生50个不相重的随机整数,数值范围在100—200之间
8、调用随机函数产生50个10—99的随机数放在数组中,顺序从每10个数中选出其中的最大数放在另一个数组中,并按5行输出,每行依次输出10个数和其中的大数。
9、调用随机函灵敏,产生10个随机整数。输入插入的位置P和插入的数X,按指定的位置P插入X。不断重复此过程,直到给P输入-1为止。注意:数组应该足够大。
10、从DATA语句中读入N个不相重的正整数放入数组中;不断由键盘给X输入数据,每输入一次,从数组中删去与X值相同的元素中的值,直到输入一个负数使程序终止运行。

回复列表 (共8个回复)

沙发

我的妈呀!!

板凳

帮我做呀,随便几题,谢谢了,很重要的

3 楼

回了就加分

4 楼

1,答案应该是95959,七个小时开了100公里,车够慢的了。

5 楼

程序

6 楼

求两个数的最大公约数和最小公倍数吧
rem 最大公约数
input m,n
if m<n then swap m,n
r=m
while r<>0
   m=n
   n=r
   r=m mod n
wend
print "最大公约数为:";n
end
rem 最小公倍数
input m,n
s=m
while s mod n
s=s+m
wend
print "最小公倍数为:";s
end
谢谢


7 楼

[em11]
其实第二题有很多种方法,繁简不一,楼上的那个还可以,现在我提供一种还算比较简单的。

defdbl m-n        /将m,n定义为双精度,以便求较大的数,m-n即从m一直到n/
input "m,n=";m,n
a=m:b=n           /记录m,n初值/
if m<n then swap m,n    /否则m〈n就无法执行/
do                      /辗转相除法/
  r=m mod n
  m=n
  n=r
loop until r=0
print"(m,n)=";m;",[m,n]=";a/m*b     /m已变成最大公约数,“/”在前防止溢出/

(最小公倍数=两数积/最大公约数)

8 楼

[em10]
很对不起,第二题错了。第一行应改为
defdbl a-b,m-n,r

定义时,要连中间变量也要定义,否则出错。

[em11]
第三题:(我用计算器验证过了,应该不再错)
实际上,里面有个数列:1,2,3,5,8,...(第三项开始,每一项是前两项之和)
defint n              /把n定义为整数/
input "n=";n       
dim(n)              
a(0)=1:a(1)=2         /确定数列前两项/
s=a(1)/a(0)           /第一个分数/
for i=2 to n       
a(i)=a(i-1)/a(i-2)    /求出数列各项/
s=s+a(i)/a(i-1)       /求分数之和/
next
print "Sum=";s

总之,对这种有数列在里面的,还是试验一下才知道,很难说出为什么这样子。


我来回复

您尚未登录,请登录后再回复。点此登录或注册