如何用fortran找出序列中连续相等并且相等个数大于等于3个的数字

Jealy_进

假如我现在有10个数字，分别为1， 0 ，0， 0 ，2， 0， 0 ，0， 0， 8这10个数字，怎么编程可以实现？

言深深

提供思路：
设计两个数组，一个用来存放原序列x(i)，一个用来存放相邻不相等的序列y(i,1)，以及个数y(i,2)，第二个数组是两列的，其获得来源于第一个数组的判断，先将x(i)赋值给y(i,1)如果x(i+1)与y(i)相等，那么计数器y(i,2)+1，否则将x(i+1)赋值给y(i,1)。
至于具体程序细节自行设计吧

river

言深深 发表于 2012-11-14 11:04

                               
登录/注册后可看大图

提供思路：
设计两个数组，一个用来存放原序列x(i)，一个用来存放相邻不相等的序列y(i,1)，以及个数y(i,2) ...

深深的编程好牛叉啊，你不会是传说中的女程序猿吧

言深深

river 发表于 2012-11-14 12:19

                               
登录/注册后可看大图

深深的编程好牛叉啊，你不会是传说中的女程序猿吧

额，我是个男的······

做个霸气的木头

言深深 发表于 2012-11-14 13:27

                               
登录/注册后可看大图

额，我是个男的······

我作证，深深是男淫

言深深

做个霸气的木头 发表于 2012-11-14 13:54

                               
登录/注册后可看大图

我作证，深深是男淫

善人/jw

言深深 发表于 2012-11-14 13:27

                               
登录/注册后可看大图

额，我是个男的······

我也可以作证，深深是纯爷们
对吧，深深妹纸{:eb325:}

言深深

善人/jw 发表于 2012-11-14 14:49

                               
登录/注册后可看大图

我也可以作证，深深是纯爷们
对吧，深深妹纸

我是需要换个ID呢，还是换个头像·········

river

言深深 发表于 2012-11-14 13:27

                               
登录/注册后可看大图

额，我是个男的······

不会吧，这个名字···原来是程序猿啊

善人/jw

言深深 发表于 2012-11-14 14:58

                               
登录/注册后可看大图

我是需要换个ID呢，还是换个头像·········

要不，换个性别吧