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

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

No.5 ベストアンサー 回答者： BOY12345 回答日時： 2008/07/09 11:45

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 回答日時： 2007/05/11 16:21

たとえば, maxprime, minprime という変数を用意して (最初はどちらも 0 に初期化しておく), 素数が見付かっ

たときに適宜設定する (minprime は 0 のときにのみ更新, maxprime は常に更新) のが簡単かな.

No.3 回答者： Tacosan 回答日時： 2007/05/09 15:54

「何をやりたいのか」をもっと明確に書いたうえで, 「今どこまでできていて, 何ができていないのか」をプログラムと一緒に出した方が, 的確に回答できるんだけど....

少なくとも, 普通の人は「素数のプログラミング」が何を意味するかわからない. 推測はできるけど.

この回答へのお礼

説明不足ですいません。

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までの素数が出力されるのはわかったんですが、
その出力された素数の最大値、最小値のみを表示する加筆がわからないのですが…。

お礼日時：2007/05/11 16:00

No.2 回答者： DT200 回答日時： 2007/05/09 15:19

プログラミング言語が違っても、アルゴリズムは共通。

って、ことでここを参考に...

http://itpro.nikkeibp.co.jp/members/ITPro/ITBASI …

この回答へのお礼

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

お礼日時：2007/05/11 16:01

No.1 回答者： PED02744 回答日時： 2007/05/09 14:57

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

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

この回答への補足

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

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

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

補足日時：2007/05/11 16:01