![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
以下のプログラムを組もうとしているのですが、ある所から分からなくなりました。ぜひ、教えてください。
配列x(1)=3, x(2)=10, x(3)=4, x(4)=4, x(5)= 1 の最大値と最小値平均値を計算する関数副プログラムmaxmin( x, N, xmax, xmin, xave)を作る。
integer x(5)
N=5
x(1)=3
… ←省略
call maxmin( x, N, xmax, xmin, xave)
write(6,*) “max=", xmax
write(6,*) “min=“, xmin
write(6,*) “xave=“, xave
end
subroutine maxxmin(x,N,xmax,xmin,xave)
ここから先が分かりません。どうしたら良いのでしょうか?
分かる方、ぜひ教えてください。
よろしくお願いします。
ちなみに使ってるエディタはxemacsです。
No.2ベストアンサー
- 回答日時:
FORTRANは20年くらい扱っていないのすが、
多分これでOKだと思います。
implicit integer(a-z) ← すべての変数を整数として扱う
real xave ← 実数で宣言する
subroutine maxxmin(x,N,xmax,xmin,xave)
sum = 0
xmax = 0 ← MAX値を初期化(xの値は正の整数としている)
xmin = 10000 ← MIN値を初期化(xの値は9999を超えないものとしている)
do i=1,N
if( x(i) .gt. xmax ) then
xmax = x(i)
endif
if( x(i) .lt. xmin )then
xmin = x(i)
endif
sum = sum + x(i)
end do
xave = float(sum) / float(N)
return
end
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 数学 X_1,…X,nを独立で同じ確率分布に従う確率変数列とする。 Xmin=min{X_1,…,Xn}, 5 2023/01/13 22:00
- C言語・C++・C# プログラミングを教えて欲しいです。 配列aは、int a[9]={7,6,12,8,3,5,10,9 4 2022/12/19 23:27
- C言語・C++・C# このプログラミング誰か教えてくれませんか 1 2022/06/02 15:27
- C言語・C++・C# このプログラミングの問題を教えてほしいです。 キーボードからデータ数nとn個のデータを入力し、平均値 3 2022/12/19 22:51
- C言語・C++・C# [C言語] コメント文字列を無視して、数値データを読み込むプログラム部分について 5 2022/10/05 11:03
- JavaScript Javascript で、0000 から 9999 までの表を作りたい。 6 2022/09/11 14:47
- その他(プログラミング・Web制作) プログラムの勉強のおすすめは 7 2022/12/09 20:09
- Visual Basic(VBA) VBAプログラミング 4 2023/01/14 00:38
- その他(プログラミング・Web制作) VBA 1 2023/01/19 16:19
- C言語・C++・C# C言語で移動平均のプログラムを作りたいのですが、数値をファイルから取ってきて計算をするプログラムはど 1 2022/09/29 01:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
python3について。
-
vba クリップボードクリアにつ...
-
Pythonのコードエラーについて...
-
ホームページのプログラムの見...
-
IT業界より楽に稼げる業界って...
-
JRのjsonファイルって使って大...
-
HTMLソースが表示のページのも...
-
正規表現 URL抽出「 [\\/\\b]{0...
-
google formsを使ったタスク依...
-
このプログラミング言語のfor分...
-
プログラミング未経験者(殆ど未...
-
初心者が簡単なPowerShellスク...
-
ホワイトハッカー
-
pythonでのカーソル移動がずれる
-
恒久的リダイレクトについて
-
プログラマーと学歴の関係性に...
-
Pythonで仮想通貨の自動売買が...
-
16x16のスプライトフォント
-
Google ColaboでGUI作成
-
REGZAに接続できない(パソコン)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
write downとfill outの違いを...
-
シリアル通信プログラミングで...
-
奇数・偶数の区別をプログラミング
-
最大値と最小値の間を循環する変数
-
fortran if文
-
私は、もっと早くお祝いメッセ...
-
arduinoのスケッチについて教え...
-
数字の右側にゼロを付加する
-
サブドメインを自前でいくつで...
-
EILSEQが発生
-
C言語について。
-
fortranのwrite文コメント有無...
-
パスカル→JAVA
-
Hello!
-
micropython コードについて
-
複数のランダムクイズの表示が...
-
忘れないうちに書き留めておき...
-
プログラムの勉強をしているの...
-
HTMLの値の渡し方について質問...
-
フォームのtextareaにnl2brを使...
おすすめ情報