【№夏日☆四格№】——【嘻哈爱情1】之『想象力丰富』

★草莓宝宝☆

怎么去月球

521xingfu.good

幽默！可惜我还没老婆。。。

sadiexuyq

还不错哦

﹣尐钰．

我没灌水

老头子‖狂

呵呵~好厉害的老婆

cynthiashaw1983

不错的说,想象还蛮丰富的额

gaolingling

gaolingling

°水晶℃果冻。

看mm就是等于看漂亮的风景 心情自然也好了  有错么

弃′卟惜〕

..噢噢噢噢..很好好好好....の`

千山飞鸟

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

gaolingling

弃′卟惜〕

想找人and我一起玩我区`. 不会玩的不要紧..只要常上就行`..+Q540887387  区`追忆...梦回望月`.`

155147287

不错  顶了

gaolingling