![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
古いフォートランのコードで、Cに直したいのですがコードが読めません。色々ウェブで調べてみましたが、コード自体に疑問を持っているので質問したいと思いました。
以下コードです。
FUNCTION RAND(K)
INTEGER K, M, CONST1
REAL RAND, CONST2
PARAMETER (CONST1 = 2147483647, CONST2 = .4656613E-9)
SAVE
DATA M /0/
IF(M .EQ.0) M = K
M = M * 65539
IF(M .LT. 0) M = (M + 1) + CONST1
RAND = M*CONST2
END
以下私の理解している事: 参考にしたページ: http://www.g.dendai.ac.jp/lecture/fortran/fort12 …
任意のKが関数に渡される。
関数は K*65539*CONST2をいつも返す。
私の疑問点は、どうして型宣言が行われていないのか?
どうして関数は特定の値をいつも返すのに、IFの分岐が必要なのか?という事です。
私の理解していることが間違っているのでしょうか。
困ってます。アドバイスをよろしくお願いしますm(__;)m
No.3ベストアンサー
- 回答日時:
> 静的ということなので、この関数の外で、書き換えられていることを想定している。
関数の外ではありませんよ。
> M = M * 65539
> IF(M .LT. 0) M = (M + 1) + CONST1
の2行でRANDを呼び出すたびにMを再定義しているので
RANDを呼び出すとMの値も変わるわけです。
Cで書いちゃえば
#define CONST1 2147483647
#define CONST2 0.4656613E-9
double RAND(int K)
{
static int M=0;
if (M==0) M=K;
M = M * 65539;
if (M<0) M = (M + 1) + CONST1;
return M * CONST2;
}
くらいですかね。
本当にありがとうございます!!
Cで書いてもらって、やっと何がしたいのか分かりました汗。
何か難しいプログラム書き終わって、閉め切ろうとしていた所でした。
本当に本当に助かりました!!重ね重ねお礼申し上げますm(_ _)m
No.2
- 回答日時:
DATA M /0/
という記述は、コンパイル用ステートメントで、確かにMには0がセットされますけれども、動くプログラム(実行されるプログラム)ではないのです。
「コンパイルしてゼロを置数する」だけです。
最初は0ですが、実行されるたびにどんどん書き換えられていきます。
早速の回答ありがとうございます。
という事は、一回コンパイルされた以降は、Mはどんどん書き換えられていくのですね。
静的ということなので、この関数の外で、書き換えられていることを想定している。だからIFの分岐がある、というので正しいでしょうか。
周りにフォートランを知っている人がおらず困っています。もしよろしかったら教えて下さいm(_ _;)m また質問になってしまってごめんなさい。
回答して下さってありがとうございます。
No.1
- 回答日時:
古いFORTRANということなので、型宣言は暗黙に行なわれている(I~Nで始まる変数名は整数、それ以外は実数)可能性がある。
あるいは
> REAL RAND, CONST2
が宣言になっている。
またFORTRANでは基本的に変数は全て静的、従って最初の呼び出しを除いてMは0とは限らない。むしろMが0でないことが期待されている。
Kは初めての呼び出しでRAND関数に乱数の種を供給するもので、後の呼び出しでは使われずMを使って乱数列が計算される。
こんなところかと。
早速お答え下さってありがとうございます。
変数は全て静的なんですね(恥)
このコードの名前からも、乱数を返すというのが目的のようですね。
相談して良かったです!!
本当にありがとうございましたm(__)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
<unistd.h>をVisualStudioでつ...
-
アプリケーションのDLLファイル...
-
プレコンパイルの意味を教えて...
-
Cのソースを毎回コンパイルし...
-
自作DLLの中身を暗号化
-
cygwin1.dll を必要としないCの...
-
obj オブジェクトファイルがで...
-
コンパイル
-
math.hに含まれる関数が使えない
-
ビルダーとは何ですか?
-
FORTRAN77のプログラム
-
Ubuntu上でITRONプログラムを作...
-
[COBOL] ソースの復帰
-
Verilog_HDLでのdefineとifdef
-
変数宣言(Dim)と定数宣言(Const...
-
Fortran77 (intel fortran)
-
C言語で作ったプログラムを他の...
-
WindowsAPIプログラムをgccでコ...
-
FFTWでコンパイルができません。
-
Cygwinで使用しているgccをダウ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アプリケーションのDLLファイル...
-
<unistd.h>をVisualStudioでつ...
-
すべてのリビルド: 0 正常、 0 ...
-
lhafileをインストールしたい
-
C#で char型とstring型の比較で...
-
gcc コンパイル killed
-
[COBOL] ソースの復帰
-
c言語です コンパイルした時に...
-
実行後にコンパイルに失敗しま...
-
共有ライブラリの内容確認について
-
ビープ音が鳴りません・・・
-
gcc バージョン違いによるコン...
-
64ビットのlinuxで32ビットメモ...
-
NASMとMASMの違い
-
C言語で作ったらWindowsでもMac...
-
math.hに含まれる関数が使えない
-
MVSマシンで0C7でABENDしたので...
-
ccとgcc
-
「インクルードファイル 'pthre...
-
自作DLLの中身を暗号化
おすすめ情報