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

喵几 · 发表于 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

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

 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

[输入输出] 如何同行输出，而不换行？