Fortran中的write函数,修改默认换行选项,网上查到方法有两种。一是符号\,这一点与换行符号/相对应,另一点便是选项advance='no'。
试验了一下,符号\并不太好用。可能是使用错误。等找到原因之后再补充。
输出九九乘法表,程序如下:
-
Program main
-
-
implicit none
-
integer :: i,j,ans
-
-
do i=1,9,1
-
do j=1,9,1
-
ans=i*j
-
if(i>=j)write(*,"(I2,'*',I1,'=',I2)",advance='no')i,j,ans
-
end do
-
write(*,"(/)")
-
end do
-
-
stop
-
-
End Program main
输出结果如下:
1*1= 1
2*1= 2 2*2= 4
3*1= 3 3*2= 6 3*3= 9
4*1= 4 4*2= 8 4*3=12 4*4=16
5*1= 5 5*2=10 5*3=15 5*4=20 5*5=25
6*1= 6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36
7*1= 7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49
8*1= 8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64
9*1= 9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81
阅读(2340) | 评论(0) | 转发(0) |