作者awer89 (Dolphin)
站内Fortran
标题Re: [问题] 资料排序问题
时间Fri Oct 1 17:45:34 2010
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