※ 引述《DrStein (交換關聯)》之銘言：
: ※ 引述《libra1005 (怕，你就輸一半！)》之銘言：
: : --------------------分隔線----------------------------------------------------
: : program ex0508
: : implicit none
: : real x,y,ans
: : write(*,*)"Input(x,y)"
: : read(*,*)x,y
: : if(X>0.and,y>0)then
: : ans=1
: : else if(X>0.and,y<0)then
: : ans=4
: : else if(X<0.and,y>0)then
: : ans=2
: : else if(x=0.or.y=0)then
: : ans=0
: : else if(X<0.and,y<0)then
: : ans=3
: 個人心得，不要 77與95的習慣混用
: 要嘛就全用.eq. .gt. .le.
: 要嘛就全用 == > <=
: 我個人習慣是用 77寫法
: 這種羅籍比較，非常容易出bug，最常見就是= =被寫成 =
: 用77寫法反比較容易強調這是個比較，而不是個運算
: (
: 我用C/C++都會用preprocessor定義 gt lt這類的
: #define gt >
: #define ge >=
: :
: )
感謝以上幫忙修正的高手，小弟由衷感激~~
小弟初學FORTRAN，經由高手解惑，終於跑出結果，感謝~
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.115.206
※ 編輯: libra1005 來自: 140.116.200.92 (08/27 13:38)