下面程序的功能是找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请在下划线处填入适当的内容,将程序补充完整。
Option Base 1
Private Sub Form_Click0
Dim x
x = Array(57,-9,17,42,-31,46,11,8,6,-4,3,90)
Max= 1
For k = 2 To 10 Step 1
If x(k)>x(Max) Then
______
End If
Next k
y=______
Print Max, y
End Sub
第1题:
给定程序MODII.C中,函数fun的功能是判断整数n是否是”完数”。当一个数的因子之和恰好等于这个数本身时,就称这个数为”完数”。例如:6的因子包括1、2、3,而6=1+2+3,所以6是完数。如果是完数,函数返回值为1,否则函数返回值为0。数组a中存放的是找到的因子,变量k中存放的是因子的个数。请改正函数fun中指定部位的错误,使它能得出正确的结果。
注意:不要改动main函数,不得增行或删行,也不得更改程序的结构。试题程序:
第2题:
下面程序的功能是:从输入的正整数中选3个数进行输出,要求这些数都是2的倍数,请填空。
第3题:
求斐波那契(Fobonacci)数列的前40个数。这个数列有如下特点:第1、2个数均为1,从第3个数开始,每个数均是前两个数之和。问该数列的前40个数各是多少? 提示:每行输出5个数据,每个数据输出宽度为12个字符。
第4题:
请编写函数proc(),其功能是:计算并输出给定10个数的方差。
例如,给定的10个数为88.0,89.5,54.0,78.5,89.0,63.0,85.7,83.0,77.0,83.0,则输出为S=11.195271。
注意:部分源程序给出如下。
请勿改动main()函数和其他函数中的任何内容,仅在函数proc()的花括号中填人所编写的若干语句。
试题程序:
【解析】题目要求求方差,因此首先我们应通过循环求得其平均数,然后通过循环来求其平方差,最后求其方差,把方差返回到主函数中。
第5题:
一个数如果恰好等于它的因子之和,这个数就称为“完数”。例如,6的因子为1、2、3,而6=1+2+3,因此6是“完数”,编写程序找出1000以内的所有完数,并按下面格式输出其因子:6 its factors are: 1 2 3