| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1353 人关注过本帖
标题:猪生猪
只看楼主 加入收藏
一叶秋
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2004-4-21
收藏
 问题点数:0 回复次数:10 
猪生猪

一头母猪每年生一头小母猪,小母猪在第四年开始生小母猪,问20年后,有多少只猪?

搜索更多相关主题的帖子: 生猪 母猪 
2004-06-14 12:19
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
你在出题呀?呵呵,我试试

天津网站建设 http://www./
2004-06-14 12:54
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

初步写了一下,不知道对不对,大家研究一下

Private Sub Command1_Click() Dim 年 As Integer Dim 猪的总数 As Integer

Dim 一岁的猪 As Integer Dim 二岁的猪 As Integer Dim 三岁的猪 As Integer Dim 能生的猪 As Integer

猪的总数 = 1 一岁的猪 = 0 二岁的猪 = 0 三岁的猪 = 0 能生的猪 = 1

For 年 = 1 To 20 '年复一年 能生的猪 = 能生的猪 + 三岁的猪 三岁的猪 = 二岁的猪 二岁的猪 = 一岁的猪 一岁的猪 = 能生的猪 猪的总数 = 能生的猪 + 一岁的猪 + 二岁的猪 + 三岁的猪 Next Debug.Print 猪的总数 End Sub

我得到的结果是2745头

[此贴子已经被作者于2004-06-14 13:24:53编辑过]


天津网站建设 http://www./
2004-06-14 13:20
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
不过我估计大多数猪活不到20岁,呵呵

[此贴子已经被作者于2004-06-14 14:35:12编辑过]



天津网站建设 http://www./
2004-06-14 13:32
随意魔
Rank: 1
等 级:新手上路
帖 子:184
专家分:0
注 册:2004-5-13
收藏
得分:0 

除了野生的猪和天上的猪八戒外,其他的猪是过不了三岁生日的, 还有就是楼主的问题,如果有此猪被禁育生不了猪怎么办?。


.-_-.曾经拥有.足以泪流.-_-.
2004-06-14 15:39
一叶秋
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2004-4-21
收藏
得分:0 

你们好强,我想拜师学艺,不嫌我笨的话就收下我吧!

2004-06-14 17:55
一叶秋
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2004-4-21
收藏
得分:0 
羡慕死我了,
2004-06-14 18:02
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
有答案吗?说呀,不知道我程序有没有错!

天津网站建设 http://www./
2004-06-15 00:06
一叶秋
Rank: 1
等 级:新手上路
帖 子:86
专家分:0
注 册:2004-4-21
收藏
得分:0 

dim a(20) as integer

a(1)=2

a(2)=3

a(3)=4

for i=4 to 20

a(i)=a(i-1)+a(i-3)

next

print a(20)

我觉的你比这个要做的好,你找的是大规律,它找的是小规律,还是你强,结果一样

2004-06-15 00:19
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

你的代码比较简洁呀,历害。


天津网站建设 http://www./
2004-06-19 18:08
快速回复:猪生猪
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015240 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved