Fortran Coder

标题: 如何同行输出，而不换行？ [打印本页]

作者: 喵几 时间: 2017-10-26 11:13
标题: 如何同行输出，而不换行？
想要实现输入一个数字，在同行输出若干个星号。可是循环时每输出一个星号就会换行，应该怎么修改程序呢？

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
http://fcode.cn/code_gen-52-1.html

作者: li913 时间: 2017-10-26 13:33

[Fortran] 纯文本查看 复制代码

 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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)