Q&A
全くの初心者で申し訳ないのですが、gfortranを用いて
x,yがともに0~10の範囲で(x-π)+(y-π)<=1を満たすならばaという表示を
そうでないならbという表示をする
ということをしたいのですが、どのようにコードを組めば良いのでしょうか？
回答1件
0
fortran
1program test 2implicit none 3integer :: i, j 4real(8) :: a, b, pi, x, y 5pi = 3.1415926 6 7do i = 1, 100 8 x = real(1.0d-2 * i) 9 do j = 1, 100 10 y = real(1.0d-2 * j) 11 if (x+y-2.0d0*pi <= 1) then 12 write(*,*) a 13 else 14 write(*,*) b 15 endif 16 enddo 17enddo 18stop 19endprogram test 20 21 22
どっか細かい部分で間違っているかもしれませんが、こんな感じでしょう。
このプログラムではｘ、ｙ方向にそれぞれ100分割した場合の計算です。
投稿2018/04/21 05:12
編集2018/04/21 05:33
総合スコア20
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。