开云网页版,开云(中国)官方里的神雕侠侣

LIDAWEI1986929

强.

530628316

,牛.

hbwzy2008

强人啊呵呵

々「红颜の″

you cai a

ゑ青苹果ゑ

因为我也要和我徒弟结婚啦，他是老牛，是我现实的男朋友。。。。。。

莲子清若水

挺会自娱自乐的`
好好玩~

静静的守护

呵呵
真的很不错啊

刺客决尘

天涯の无泪

有意思 顶下
绝配啊

风舞々月影

有才
鼓励下

a116426442

这也扯得来…晕

千山飞鸟

module time_mod
        implicit none

        type time_type
        integer hour
        integer minute
        integer second       
        end type

        interface operator(+)
        module procedure ta
        end interface

        interface operator(-)
        module procedure tb
        end interface

        contains
                function ta(x,y)
                type(time_type),intent(in):: x
                type(time_type),intent(in)::y
                type(time_type) ta
                ta%hour=x%hour+y%hour
                ta%minute=x%minute+y%minute
                ta%second=x%second+y%second
                if ((x%second+y%second)>60) then
                ta%second=ta%second-60
                ta%minute=ta%minute+1
                endif
                if((x%hour+y%hour)>60) then
                ta%minute=ta%minute-60
                ta%hour=ta%hour+1
                endif
                end function
       
                function tb(x,y)
                type(time_type),intent(in)::x
                type(time_type),intent(in)::y
                type(time_type) tb
                tb%hour=x%hour-y%hour
                tb%minute=x%minute-y%minute
                tb%second=x%second-y%second
                if ((x%second-y%second)<60) then
                tb%second=tb%second+60
                tb%minute=tb%minute-1
                endif
                if((x%hour-y%hour)<60) then
                tb%minute=tb%minute+60
                tb%hour=tb%hour-1
                endif
                end function
end module


program t
        use time_mod
        implicit none
        type(time_type) ::t1,t2
        type(time_type) ::ti1=time_type(3,5,8)
        type(time_type) ::ti2=time_type(2,57,32)

       
        t1=ti1+ti2
        t2=ti1-ti2

        print*,'(3hours,3minutes,8seconds)+(2hours,57minutes,32seconds)=',t1
        print*,'(3hours,3minutes,8seconds)-(2hours,57minutes,32seconds)=',t2
end

萧萧磊

天才 LZ

Gāл

道理很是道理