![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Fortoranで放物運動のプログラムを考えています。
(初速度V0,角度THETA,終了時間TEND,時間間隔TSETP
REAL V0,TH,THETA,G,T,X,Y,TEND,TSETP
OPEN(8,FILE="INPUT.TXT",FORM='FORMATTED')
OPEN(9,FILE="OUTPUT.TXT",FORM='FORMATTED')
READ(8,100) V0,THETA,TEND,TSTEP
100 FORMAT(4F6.2)
WRITE(9,150) V0,V0,THETA,TEND,TSTEP
150 FORMAT(' ','V0=',F6.2,5X,'THETA=',F6.2,' ','TEND=',F6.2,5X,'TSTEP=',F6.2)
G=9.8
TH=3.14159*THETA/180
T=0
200 X=V0*T*COS(TH)
Y=V0*T*SIN(TH)-G*T**2/2
IF(Y.LT.0.0) GO TO 400
WRITE(9,300) T,X,Y
300 FORMAT(' ',5X,'TIME=',F6.2,5X,'X=',F6.1,5X,'Y=',F6.1)
T=T+TSTEP
IF(T.LE.TEND) GO TO 200
400 STOP
END
このようなプログラムを考えて、入力ファイルに
50 45 10 0.5
というデータを打ち込むと、出力ファイルに
TIME=0.00 X=0.0 Y=0.0
. . .
. . .
というのが無限に続いてしまいます。
自分ではどこが間違っているのかわかりません。
ちなみに翻訳してもエラーはでませんでした。
見にくくなって申し訳ございません。
No.2ベストアンサー
- 回答日時:
50 45 10 0.5
を
050.00045.00010.00000.50
ぐらいにしたらうまく行くような気がしますけど。
これぐらいならFORMATを指定しなくても「*」のままで、適当に処理してくれないですかね。
> TIME=0.00 X=0.0 Y=0.0
この部分よりも、
WRITE(9,150) V0,V0,THETA,TEND,TSTEP
の出力結果を確認するほうが先決なのでは。
050.00045.00010.00000.50
と入力するとちゃんと実行してくれました。
ありがとうございました。
FORMATの意味がわかっていませんでいた。すいませんでした。
No.3
- 回答日時:
No.2さんのおっしゃっていることを確認できませんか?
私もちゃんとreadできていないんじゃないかと思っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) 物理の斜方投射のシミュレーションにおける位置や速度の単位について 4 2023/05/31 09:50
- Visual Basic(VBA) エクセル VBA 難しいです 1 2023/02/21 15:39
- その他(プログラミング・Web制作) 物理の斜方投射の目盛り線とx軸、y軸の追加について 3 2023/05/26 21:11
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- その他(プログラミング・Web制作) Fortranでの出力ファイル 2 2023/03/21 21:25
- その他(プログラミング・Web制作) 物理の斜方投射で目盛りに数値を入れたい 2 2023/05/27 06:32
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- 一眼レフカメラ 一眼レフ、ミラーレスカメラの外部モニターの、【feelworld f6 plus 】と【feelwo 15 2022/11/10 08:55
- その他(プログラミング・Web制作) Pythonでのかんたんな物理シミュレーションについての書籍 5 2023/06/02 07:37
- 物理学 物理基礎の作用と反作用です。 f2 りんごが本を押す力 f4 本にはたらく重力 f6 机が本を押す力 3 2022/07/03 12:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C言語のプログラムが異常終了し...
-
シェルコマンドの 2>&1 とはど...
-
VC++でUTF-8のファイルを出力し...
-
外国語とCSVについて
-
MATLABのCSV形式での書き込みに...
-
AccessVBA複数レポート条件毎に...
-
ファイル出力の場所を指定
-
Accessでのレポート印刷待機方法
-
構造体のファイル出力
-
テキストファイルに改行コード...
-
Acccess レポートをグループ別...
-
ファイルの文字コードをUTF-8に...
-
TeXで使用するFONTを作成しよ...
-
MS-Word で作成した表をLatexに...
-
OCRで起こしたテキスト文字をCS...
-
C言語での印刷方法
-
VC++2010のCSV形式の出力につい...
-
コマンド(例えばls)の出力結果...
-
複数のC言語プログラムが,一つ...
-
VC++での外部ファイル(batファ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンド(例えばls)の出力結果...
-
VC++でUTF-8のファイルを出力し...
-
Acccess レポートをグループ別...
-
ファイル出力の場所を指定
-
ファイル形式またはファイル拡...
-
シェルコマンドの 2>&1 とはど...
-
Wordマクロで指定したフォルダ...
-
テキストファイルに改行コード...
-
fwprintf()について
-
二次元配列をクリップボードに...
-
外国語とCSVについて
-
ファイルの文字コードをUTF-8に...
-
csvファイルでの出力について
-
C言語での印刷方法
-
(VBA)書式が変更されてしまい...
-
フォルダにあるPDF情報の抽出(VBA)
-
C言語での縦方向のファイル出力...
-
CSVファイルを任意の場所に出力...
-
標準出力とファイルに効率的に...
-
CreateProcess関数と実行後の戻...
おすすめ情報