编写一个程序,有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13...求出这个数列
答案:3 悬赏:0 手机版
解决时间 2021-11-12 18:28
- 提问者网友:姑娘长的好罪过
- 2021-11-12 07:16
编写一个程序,有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13...求出这个数列
最佳答案
- 五星知识达人网友:第四晚心情
- 2021-11-12 08:12
#include
#include
int func(int n)
{
if(n==1)return 1;
else if(n==2)return 2;
else return func(n-1)+func(n-2);
}
int main()
{
int i;
double sum=0;
int a[20],b[20];
for(i=0;i<20;i++)
{
a[i]=func(i+1);
b[i]=func(i+2);
sum += (double)b[i]/(double)a[i];
}
printf("sum=%lf\n",sum);
system("pause");
return 0;
}
#include
int func(int n)
{
if(n==1)return 1;
else if(n==2)return 2;
else return func(n-1)+func(n-2);
}
int main()
{
int i;
double sum=0;
int a[20],b[20];
for(i=0;i<20;i++)
{
a[i]=func(i+1);
b[i]=func(i+2);
sum += (double)b[i]/(double)a[i];
}
printf("sum=%lf\n",sum);
system("pause");
return 0;
}
全部回答
- 1楼网友:未来江山和你
- 2021-11-12 09:15
Private Sub Command1_Click()
Dim i%, k%, l%, t5
Dim n As Single
k = 1
l = 1
T = 1
For i = 1 To 20
l = l + T
n = n + l / k
T = k
k = l
Next
Print n
End Sub
Dim i%, k%, l%, t5
Dim n As Single
k = 1
l = 1
T = 1
For i = 1 To 20
l = l + T
n = n + l / k
T = k
k = l
Next
Print n
End Sub
- 2楼网友:人间朝暮
- 2021-11-12 08:24
示例代码:(省略了main)
float sum = 0; //最终结果值
float num1 = 2;
float num2 = 1;
float lastNum2 = 1;
for(int i = 1; i <= 20; ++i)
{
sum = sum + num1 / num2;
if(i == 1)
{
num1 = 3;
num2 = 2;
}else
{
num1 = num1 + num2;
float oldNum2 = num2;
num2 = lastNum2 + num2;
lastNum2 = oldNum2 ;
}
}
printf("%f", sum );
float sum = 0; //最终结果值
float num1 = 2;
float num2 = 1;
float lastNum2 = 1;
for(int i = 1; i <= 20; ++i)
{
sum = sum + num1 / num2;
if(i == 1)
{
num1 = 3;
num2 = 2;
}else
{
num1 = num1 + num2;
float oldNum2 = num2;
num2 = lastNum2 + num2;
lastNum2 = oldNum2 ;
}
}
printf("%f", sum );
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯