Chinaunix首页 | 论坛 | 博客
  • 博客访问: 41156
  • 博文数量: 10
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 95
  • 用 户 组: 普通用户
  • 注册时间: 2015-10-18 15:21
文章分类

全部博文(10)

文章存档

2015年(10)

我的朋友

分类: C/C++

2015-10-18 17:03:15

        Fortran中的write函数,修改默认换行选项,网上查到方法有两种。一是符号\,这一点与换行符号/相对应,另一点便是选项advance='no'。
        试验了一下,符号\并不太好用。可能是使用错误。等找到原因之后再补充。
        输出九九乘法表,程序如下:

点击(此处)折叠或打开

  1. Program main
  2. implicit none
  3. integer :: i,j,ans
  4. do i=1,9,1
  5. do j=1,9,1
  6. ans=i*j
  7. if(i>=j)write(*,"(I2,'*',I1,'=',I2)",advance='no')i,j,ans
  8. end do
  9. write(*,"(/)")
  10. end do
  11. stop
  12. 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

阅读(2352) | 评论(0) | 转发(0) |
0

上一篇:没有了

下一篇:Fortran常用函数列表(转载)

给主人留下些什么吧!~~