討論區快速選單
知識庫快速選單
網路投保旅行平安險 傑米的攝影旅遊筆記 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
懇請各位高手一個排序的問題
更改我的閱讀文章字型大小
作者 : 369874125(鴨子妞)
[ 貼文 1 | 人氣 598 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2008/2/11 下午 09:04:08
某班級學生期中考成績依學號順序(1~10號)分別為

85, 56, 78, 45, 98, 57, 86, 74, 64, 52

試依照成績高低順序,排列相對應之學生學號
作者 : five43(五四三)
[ 貼文 1 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2010/10/28 上午 11:45:56

integer::loca(1),SN(10),score(10)
integer::i,temp
integer::order(10)

SN=[1,2,3,4,5,6,7,8,9,10] !學號1~10
score=[85, 56, 78, 45, 98, 57, 86, 74, 64, 52] !1~10號的成績
do i=1,10
    loca=maxloc(score)
    temp=loca(1)
    score(temp)=0
    order(i)=temp
end do

write(*,*) order !成績由高到低的學號
pause

>某班級學生期中考成績依學號順序(1~10號)分別為
>
>85, 56, 78, 45, 98, 57, 86, 74, 64, 52
>
>試依照成績高低順序,排列相對應之學生學號
作者 : epidote(BM5EFX)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/3/8 上午 09:33:56
!2011/03/08
!BM5EFX

program TC548
implicit none

integer :: loca(1)
integer :: SN(10)=(/ 1,2,3,4,5,6,7,8,9,10 /) !學號1~10
integer :: score(10)=(/ 85, 56, 78, 45, 98, 57, 86, 74, 64, 52 /) !1~10號的成績
integer :: i,temp
integer :: order(10)

do i=1,10
    loca=maxloc(score)
    temp=loca(1)
    score(temp)=0
    order(i)=temp
end do

do i=1,10
write(*,*) order(i) !成績由高到低的學號
end do
pause

stop
end program TC548
 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.046875