[閒聊] 廢怯程式碼

[orze04 (orz)]

無聊用FORTRAN寫的,好久沒寫了= =


      program loop of madoka
      real*8 a, b, c(8), d, r(8)
C       a=粉圓MP
C       b=黑毛
C       c=魔女MP
C       d=虛淵惡意

        a= 150.
        b= 150.
        do i =1, 7
          c(i)= float(i)*100.
        enddo
        c(8)= 2000.
        d= -1000.
        do i=1,7
          call random_number(x)
          r(i)= x
        end do
        r(8)=1.

      integer n, m
C n為輪迴次數
        n=0


69    do i=1,8
        a=(a+c(i))*r(i)
      enddo

      if(b .le. c(i) )than
        go to 70
      else if(a .le. c(i) )than
        go to 71
      else
        go to 72
      end if

70    write(*,*) "Ｘ!,黑毛死了玩屁"

71    n=n+1
      a=a
      b=b
      c=c
      d=d-100.
      go to 69
      write(*,*)  "般若波羅密"

72    g=abs(g)
      write(*,*) "WTF,虛淵變白了"

      end



好像還真的可以跑XD


http://i.imgur.com/UNkGh.jpg



--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.217.221
推 a73126:Fortran....我投降XD....
推 wayne206:Fortran  自重wwwwwww
推 wayne206:原來同是115...wwwwww
※ 編輯: orze04          來自: 140.115.217.221      (03/11 05:19)
※ 編輯: orze04          來自: 140.115.217.221      (03/11 05:30)
推 yshinri:等等啊  69 那段的 i 在 do 外面用沒問題嗎 XD
推 tsunamimk2:fortran的迴圈變數的scope不熟 可以出迴圈嗎...
→ letibe:用SAS跑黑毛每期的回歸好了  proc autoreg data=black
→ letibe:model black=pink; lag=1 以粉圓落後一期的行為解釋黑毛!!!
推 hayamakurata:d=d-100 虛淵你好樣的...
→ Akaski:115推...
→ lamune:69跟70中間的　"then"  寫錯嘍
→ lamune:然後不是go to  是goto  ...
→ lamune:do迴圈寫在變數宣告 integer n,m前面　這樣沒問題嗎？
→ lamune:program名應該沒辦法拆三段吧　loop_of_madoka這樣才可以..