题1：给出数字1、2和3组成三位数的所有可能组合?并输出.用fortran解答
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/29 06:16:37
题1：给出数字1、2和3组成三位数的所有可能组合?并输出.用fortran解答
题1：给出数字1、2和3组成三位数的所有可能组合?并输出.用fortran解答
题1：给出数字1、2和3组成三位数的所有可能组合?并输出.用fortran解答
i=1
j=2
k=3
i1=100*i+10*j+k
i2=100*i+10*k+j
i3=100*j+10*i+k
i4=100*j+10*k+i
i5=100*k+10*j+i
i6=100*k+10*i+j
print*,i1
print*,i2
print*,i3
print*,i4
print*,i5
print*,i6
end
123、132、213、231、312、321
program main
implicit none
integer, parameter:: n = 3
integer:: i, i_a, i_b, i_c, s, count, digit(n)
integer, external:: generate_number
forall(i=1:n) digit(i) ...
全部展开
program main
implicit none
integer, parameter:: n = 3
integer:: i, i_a, i_b, i_c, s, count, digit(n)
integer, external:: generate_number
forall(i=1:n) digit(i) = i
count = 0
do i_a = 1, n
do i_b = 1, n
do i_c = 1, n
count = count + 1
s = generate_number( digit(i_a), digit(i_b), digit(i_c) )
write(*, '(a,i3,a,i3)'), "possible combination", count, ": ", s
end do
end do
end do
write(*, '(a)'), "Hasta la vista"
end program main
integer function generate_number( a, b, c )
implicit none
integer, intent(in):: a, b, c
generate_number = a*100 + b*10 + c
return
end function generate_number
收起
implicit none
integer::i,j,k
integer, parameter:: n = 3
do i=1,n
do j=1,n
if(i==j)cycle
do k=1,n
if(i==k.or.j==k)cycle
write(*,*) 100*i+10*j+k
enddo
enddo
enddo
end
! 已经上机调试通过，请放心使用。