質問: 10 continue : : : do 100 i=1,10 if (abs(x (i)-y(i)) .lt. 1.0) then r= r + dr goto 100 else goto 1000 end if 100 continue : : : 1000 contiue end すべての条件(i=1~10)が満足されたら、ループから抜きたいのですが、出来ませんでした。 教えて頂けませんでしょうか?よろしくお願しますね!*<>*!
回答: お書きのプログラムの部分で何をしたいのか、お書き願います。 r,drを使っているにもかかわらず初期値が与えられていないし、その説明もない。 全ての条件とはなんですか? 条件を満足するとはどういうことですか? (abs(x (i)-y(i)) .lt. 1.0) が全てのiについて成り立つことが条件を満足すると言うことですか? 全てのiについて成り立たないことが条件を満足するということですか? 補足にお書き下さい。