Fortran 输出九九乘法表（fortran输出九九乘法表）
off999 2024-11-04 13:13 48 浏览 0 评论
今天的作业是输出九九乘法表，相信学过编程的朋友们都做过这样的作业，这道题的主要目的是掌握双循环和输出格式。C++，C#，Java或者Python语言初学都有这样的练习题。今天我们通过Fortran语言来实现。
解题前先说说上次的思考题：
1，输入一个数，计算所有小于的偶数累加；
sum=0
do i=1,n,1
if(mod(i,2)==0)then
sum=sum+i
end if
end do
大多数朋友都是这么做的，没毛病。判断对2取余等于0即是偶数，思路非常正确。但是不是最简便呢？
sum=0
do i=2,n,2 !从2开始，步进2
sum=sum+i
end do
这样是不是更简捷，效率更高了。
同理，第二思考题
2，输入一个数，计算所有小于的奇数累加。
sum=0
do i=1,n,1
if(mod(i,2)/=0)then
sum=sum+i
end if
end do
可以简化为
sum=0
do i=1,n,2 !注意是从1开始，步进2
sum=sum+i
end do
回到本文作业题，代码不截图直接输入。
program test30
implicit none
integer i,j
do i=1,9 !步进1可以省略
do j=1,i
write(*,"(i2,a1,i1,a1,i2)",advance="no")i,"*",j,"=",i*j
end do
write(*,*) !增加空行
end do
pause
stop
end program test30
朋友们看下输出语句
write(*,"(i2,a1,i1,a1,i2)",advance="no")i,"*",j,"=",i*j
这句中”i2“是i的输出格式，整数2位。为什么是2位？是保证前面有一个空格，横向输出不会连在一起。
"a1"输出一位字符*，"i1"输出i一位,”a1“输出=,"i2"输出i*j的值。advance="no"表示不换行，以前的版本有用$符号的，现在的标准是用advance。也可以在输出后加空格，用1x表示。
write(*,"(i1,a1,i1,a1,i2,1x)",advance="no")i,"*",j,"=",i*j
这样也是可以的。
运行后效果是这样的：
Fortran我也是初学，好久不写代码了，欢迎朋友们指正。
相关推荐
-
- 手机下载电影去哪个网站（手机下载电影哪个网址最好）
-
80s电影天堂阳光电影在baidu的mp3内可以下载电影,下载时最好用下载工具,这样会快且方便.电影下载网站，比如电影天堂，这里面一般电影都有，新电影更新比较快1，电影天堂这个网站提供了大量的电影资源，包括最新上映的大片和经典老片。你可以在...
-
2026-01-31 18:51 off999
- 狂野少女免费完整版电影（狂野少女壁纸）
-
野蛮就是假小子性格，洒脱，心理当然是什么也蛮不在乎，唯我独尊，童话里的大小姐我觉的应该是娇滴滴，什么也不会做，心理瞧不起人这是反面，正面就是从小教育的礼仪，品性都表现的有气质，华贵贝，心理善良，有同情...
- 2025年中小学生安全教育（2025年中小学生安全教育日是哪一天）
-
电脑连接充电器,保证电源充足。连接网线,不间断。一直开着刷时间。这样最简单。不要想偷工减料，只有真正学习到了才是自己的财富。每天两个小时确实有点儿长，这样才能起到安全教育的目的吧。你直接选择五天就可以...
- 免费的word转pdf转换器（免费word转pdf网站）
-
有些转换器是需要的呢。但我用的“sanpdf”是不收费。可以尝试。迅捷pdf编辑器转换word的方法如下：1、安装迅捷pdf编辑器软件，在电脑桌面双击快捷方式打开软件。2、在界面上方的菜单栏中点击“p...
- 单机象棋(单机版)（单机象棋(单机版)无需网络3.9.0版本）
-
象棋旋风、象棋名手、兵河五四等最顶尖象棋软件，都是单机游戏，还可以连线任何象棋网站下棋，棋力超强人类无法超越，别说什么国家大师、特级大师在软件面前都是小儿科！够厉害了吧棋友们可以关注我每天主页大量象...
- 怎么下载word2003免费版（如何下载安装word2003）
-
单击格式工具栏右边第二个的“设计”按钮，在任务窗格里选。任务窗格最后还有一个“MicrosoftOfficeOnline设计模板”，点击可上网下载。
- 姑娘视频在线观看中国电影（姑娘视频官网下载）
-
小马宝莉观看顺序如下：1、《小马宝莉第一季》2、《小马宝莉第二季》3、《小马宝莉第三季》4、《小马国女孩1》5、《小马宝莉第四季》6、《小马国女孩2》7、《小马宝莉第五季》8、《小马国女孩3》9、《小...
- 程序员一般要学多久（程序员的前景和未来）
-
1 培养兴趣兴趣是能够让人坚持下去的动力。多关心一些行业趣事，多想想盖茨。不是提倡天天做白日梦，但人要是没有了梦想，觉得有味道吗？可能像许多深圳本地农民一样，打打麻将，喝喝功夫茶，拜拜财神爷；每个月就...
-
- cad制图软件电脑版（cad制图软件pc版）
-
1.浏览器打开CAD官网，选择菜单栏上的产品点击下方的autoCAD.2.点击下载免费试用版3.商业里点AutoCAD,点下一步。4.点击安装下面的下载即可。1、在搜索引擎中输入cad安装包并点击搜索，选择一款安装包进行下载。2、将下载的c...
-
2026-01-31 14:43 off999
- 一起学网校（一起学网校赵越老师个人资料）
-
一起学和一起学网校是同一个品牌的不同产品。一起学是一个在线教育平台，提供各种学习资源和课程，包括一对一辅导、视频课程等。而一起学网校是一起学平台下的一个子品牌，专注于提供在线学习班和课程，通过直播和互...
- 电视直播大全在线观看（电视直播大全_网络电视在线观看）
-
要观看CCTV直播，您可以按照以下几种方法进行操作：1.通过有线电视：如果您有有线电视服务，您可以直接打开电视机，转到CCTV频道，然后选择您想要观看的直播节目。2.通过卫星电视：如果您拥有卫星电...
- 免费的格式转换器软件（免费格式转换app推荐）
-
软件一：迅捷音频转换器一款专业的音频编辑工具，拥有音频剪切、音频提取、音频转换等多种功能，能够用多种分割方式进行音频剪切，而且支持批量操作，功能强大，操作简单，绝对是一款不容错过的软件。软件特色1、多...
- pubg加速器（Pubg加速器）
-
现在加速吃鸡的游戏加速器是有专线路线的比较好，专线的稳定很多，不过目前是没有完全免费的加速软件，很多都可以先体验，注册就可以体验的，可以多去体验几款，对比一下。目前的加速器可以分为三个等级第一等级：全...
- 无限金币无限钻石版游戏大全下载
-
不能下载，奥特曼无限钻石无限金币是不能进行下载的。我们在进行奥特曼游戏的时候，无限钻石金币这种情况下是使用外挂进行达成的正版游戏，并没有公布这个功能，所以是无法进行下载的，我们还是要支持正版游戏。要下...
欢迎 你 发表评论:
- 一周热门
-
-
抖音上好看的小姐姐，Python给你都下载了
-
全网最简单易懂!495页Python漫画教程，高清PDF版免费下载
-
飞牛NAS部署TVGate Docker项目，实现内网一键转发、代理、jx
-
win7系统还原步骤图解（win7还原电脑系统的步骤）
-
Python 3.14 的 UUIDv6/v7/v8 上新，别再用 uuid4 () 啦!
-
python入门到脱坑 输入与输出—str()函数
-
16949认证费用是多少（16949审核员太难考了）
-
linux软件（linux软件图标）
-
Python三目运算基础与进阶_python三目运算符判断三个变量
-
(新版)Python 分布式爬虫与 JS 逆向进阶实战吾爱分享
-
- 最近发表
- 标签列表
-
- python计时 (73)
- python安装路径 (56)
- python类型转换 (93)
- python进度条 (67)
- python吧 (67)
- python的for循环 (65)
- python格式化字符串 (61)
- python静态方法 (57)
- python列表切片 (59)
- python面向对象编程 (60)
- python 代码加密 (65)
- python串口编程 (77)
- python封装 (57)
- python写入txt (66)
- python读取文件夹下所有文件 (59)
- python操作mysql数据库 (66)
- python获取列表的长度 (64)
- python接口 (63)
- python调用函数 (57)
- python多态 (60)
- python匿名函数 (59)
- python打印九九乘法表 (65)
- python赋值 (62)
- python异常 (69)
- python元祖 (57)