作者libra1005 (怕，你就输一半！)
看板Fortran
标题Re: [问题] 我写一个判断象限的流程，但不知问题在 …
时间Wed Aug 26 22:14:26 2009
※ 引述《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)