くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超初心者用）その3 at TECH

228:デフォルトの名無しさん
08/04/01 13:49:39
>>227
ドイツとかフランスで教育を受けた人？小数点がそっち風なんですけど
FTN77で作動確認、間違ってたりナンセンスでも許してね。
　　　　　　DO　10　I=0,10,1
　　　　　　X=0.1*I
　　　　　　Y=F(X)
　　　10　WRITE　(6,20)　X,Y
　　　　　　STOP
　　　20　FORMAT(1H　,'　X　=　',F4.1,2X,'Y　=　',F6.3)
　　　　　　END
C
　　　　　　FUNCTION　F(X)
　　　　　　F=X**2+X+1
　　　　　　RETURN
　　　　　　END

次ページ

続きを表示

1を表示