Re: [問題] 資料排序問題
program sub3
implicit none
integer ,parameter :: N=10
real:: A(N),TEMP
integer:: i,j,K,L
!
open(10,file="di.txt")
open(20,file="db.txt" ,status='replace')
!
do i=1,10
read(10,"(F5.2)") A(i)
end do
:===========================================
do i=1,N-1 ! ...N-1.... |
do L=i+1,N ! .........I......... |
! ..ABS(A(J)) >ABS( A(J+1)) ......... |
if ( ABS(A(i)) < ABS(A(L)) ) then |
TEMP=A(i) |
A(i)=A(L) |
A(L)=TEMP |
end if |
end do |
end do |
:===========================================
do j=1,10
write(20,"(F5.2)") A(j)
end do
close(10)
close(20)
end program
=======================================
di.txt 裡面數據
0.10
-0.30
-0.90
0.40
-0.50
0.60
-0.80
0.70
-0.50
-1.00
顯示結果===========
-1.00
-0.90
-0.80
0.70
0.60
-0.50
-0.50
0.40
-0.30
0.10
=========================================
你大概是要這樣子排列吧~!!
不過如果絕對值相同 哪個先哪個後 要在自己加條件進去囉
--
--
▉╯╰ ▅▃▂ ▂ ▏ ╱
█ ╮╭ ▆▅ ▂▅▆ ▎ ╱ █ ╱ ╱ █ ╱
▉ ◢▋ ▄▄ ▉ ◢▋ ╱ ████████████
▉ ▆█◤ ▊ ▎ ▉ ▆█◤ ╱ ╱
█ █ ▋ ▍ ▎ █ ████████████
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.13.111.146
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
0
3
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
