怎样用fortran95写这个题: 将一列数中所有相同的数删到只剩一个
答案:2 悬赏:10 手机版
解决时间 2021-01-27 01:51
- 提问者网友：谁的错
- 2021-01-26 07:32
怎样用fortran95写这个题: 将一列数中所有相同的数删到只剩一个
最佳答案
- 五星知识达人网友：七十二街
- 2021-01-26 09:03
!子程序 dels 用于删除数组md(1:n)中相同数
subroutine dels(n,md)
integer::n,i,j,n1
dimension md(1:n),md1(1:n)
err = -999999.
print*,md
do i=1,n-1
if(md(i).ne.err)then
do j=i+1,n
if(md(j).ne.err)then
if(md(i)==md(j))then
md(j)=err
end if
end if
end do
end if
end do
n1=0
do i=1,n
if(md(i).ne.err)then
n1=n1+1
md1(n1)=md(i)
end if
end do
md=0
n=n1
md(1:n)=md1(1:n)
end subroutine
!用于测试的主程序
program test
!implicit none
dimension md(10)
n=5
md=5.
md(2)=3.
call dels(n,md(1:n))
print*,md(1:n)
end program test
subroutine dels(n,md)
integer::n,i,j,n1
dimension md(1:n),md1(1:n)
err = -999999.
print*,md
do i=1,n-1
if(md(i).ne.err)then
do j=i+1,n
if(md(j).ne.err)then
if(md(i)==md(j))then
md(j)=err
end if
end if
end do
end if
end do
n1=0
do i=1,n
if(md(i).ne.err)then
n1=n1+1
md1(n1)=md(i)
end if
end do
md=0
n=n1
md(1:n)=md1(1:n)
end subroutine
!用于测试的主程序
program test
!implicit none
dimension md(10)
n=5
md=5.
md(2)=3.
call dels(n,md(1:n))
print*,md(1:n)
end program test
全部回答
- 1楼网友：酒醒三更
- 2021-01-26 09:21
这也可以么？追答那就是说取这列数的第一个，OK
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯