FORTRANでのプログラミングですが…。

質問

FORTRANで素数のプログラミングをしているんですが、
最大値・最小値の取り方がわかりません…。
範囲は100～999で、やっているんですが、
わかる人がいれば、是非教えて欲しいです!!

回答No.5

BOY12345 · ベストアンサー

read(5,*) N
Cデータの個数を読み込む
read(5,*) A
C最初のデータを読み込む
I=1
AMAX=A
C読み込んだデータの個数を１とし、最初のデータを最大値とする

10 read(5,*) A

I=I+1

if(A.GT.AMAX) AMAX=A
if(I.LT.N) go to 10

write(6,20) AMAX
20 format(1H ,'MAX=',F5.1)
stop
end
的な感じでやってみては。
データの個数、読み込むデータの組み込みをどうするか考えれば、あとは上記の使ってもらえればだせるのでは・・
がんばって下さい☆

回答No.4

Tacosan

たとえば, maxprime, minprime という変数を用意して (最初はどちらも 0 に初期化しておく), 素数が見付かったときに適宜設定する (minprime は 0 のときにのみ更新, maxprime は常に更新) のが簡単かな.

回答No.3

Tacosan

「何をやりたいのか」をもっと明確に書いたうえで, 「今どこまでできていて, 何ができていないのか」をプログラムと一緒に出した方が, 的確に回答できるんだけど....
少なくとも, 普通の人は「素数のプログラミング」が何を意味するかわからない. 推測はできるけど.

お礼

説明不足ですいません。

program main
integer i, j
do i=100, 999
do j=2, i-1
if (mod(i, j) .eq. 0) then
goto 10
endif
enddo
write(*,*) i
10 continue
enddo
end

これで100～999までの素数が出力されるのはわかったんですが、
その出力された素数の最大値、最小値のみを表示する加筆がわからないのですが…。

回答No.2

DT200

プログラミング言語が違っても、アルゴリズムは共通。
って、ことでここを参考に...

http://itpro.nikkeibp.co.jp/members/ITPro/ITBASIC/20001006/3/

お礼

解答ありがとうございます。
参考にしてみます＾＾

回答No.1

PED02744

素数の求め方はわかっているという事でしょうか？

総当りでするのなら、
たとえ「１００～９９９の範囲で・・・」と指定されていても
２、３，５，７，１１、という風に、２から順に求めていくしかありません。
そして、１００を超えた初めての素数が最小値となります。
そのまま１０００を超えるまでの素数を順に求めていき、１０００を超えたら、その直前に求めた素数が最大値となります。

補足

素数の求めかたはわかっています。
そのプログラムです。

program main
integer i, j
do i=100, 999
do j=2, i-1
if (mod(i, j) .eq. 0) then
goto 10
endif
enddo
write(*,*) i
10 continue
enddo
end

ここから出力された素数の最大値、最小値のみを出力するプログラムがわからないんですが…。