- 328 名前：デフォルトの名無しさん mailto:sage [2006/05/24(水) 01:27:04 ]
- >>326
特に指定がなかったので解りやすく(?)バブルソートでやってみますた。
parameter (n=10)
real dat(n)
integer index(n)
C
do 10 i=1,n
read(*,*) dat(i)
index(i) = i
10 continue
C
do 22 i=1,n-1
do 21 j=1,n-i
if (dat(index(j)) .lt. dat(index(j+1))) then
ntmp = index(j)
index(j) = index(j+1)
index(j+1) = ntmp
end if
21 continue
22 continue
C
do 30 i=1,n
write(*,*) dat(index(i))
30 continue
stop
end
処理系によっては配列の宣言部分でエラーになるかも知れないので
その時は適時修正のこと。
#F77形式で、って言われるとここが一番難しいかもｗ
