Fortran 編程隔行增加壹個空格輸出

代碼:

——————————————————————

!程序：利用Fortran繪出壹條斜線

program?test01

implicit?none

!變量聲明

integer?::?i,?num

character?::?char?=?'.'

!可執行段

print?*,'輸入妳需要繪制的斜線的行數'

read?*,num

write?(*,'(a)')?char

!格式化輸出

do?i=2,num

write(*,'(<i-1>x,a)')?char

end?do

pause

end?program?test01

——————————————————

結果：