喵几 发表于 2017-10-26 11:13:51

如何同行输出，而不换行？

想要实现输入一个数字，在同行输出若干个星号。可是循环时每输出一个星号就会换行，应该怎么修改程序呢？

program ex3
    implicit none
    integer num

    read(*,*) num
    call xinghao(num)
    end

    subroutine xinghao(num)
    integer ::i
    do i=1,num,1
      write(*,"(A1)") "*"
    end do
    end



li913 发表于 2017-10-26 13:06:12

http://fcode.cn/code_gen-52-1.html

li913 发表于 2017-10-26 13:33:34

program ex3
    implicit none
    integer num

    read(*,*) num
    call xinghao1(num)
    pause
end

subroutine xinghao(num)
    integer ::i
      write(*,"(A)") repeat('*',num)
end subroutine

subroutine xinghao1(num)
    integer ::i
    do i = 1, num
      write(*,"(A)",advance='no') "*"
    end do
end subroutine
页: [1]
查看完整版本: 如何同行输出，而不换行？