Fortran 输出九九乘法表（fortran输出九九乘法表）
off999 2024-11-04 13:13 41 浏览 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我也是初学，好久不写代码了，欢迎朋友们指正。
相关推荐
-
- 如何格式化手机（华为p50如何格式化手机）
-
步骤/方式1软件格式化：利用psiloc公司的软件sTools，进行格式化手机，锁码为12345步骤/方式2软格：在手机上输入*#7370#之后要求你输入锁码，初始密码是：12345步骤/方式3硬格：先关机，再开机的时候按住拨号键、“*...
-
2025-12-17 12:03 off999
- win10自动更新的禁用方法（win10自动更新的禁用方法是什么）
-
方法一：Windows设置 要想关闭Win10自动更新，比较简单的一种方法就是进入到Windows设置中，将Windows更新直接关闭。步骤如下： 1、按“Windows+I”键，打开Wind...
- 优化win7系统运行速度（优化win7系统运行速度多少）
-
优化WIN7系统开机启动项的操作方法1、在桌面上按组合键(win键+R)打开运行窗口，接着输入“regedit”，回车确认，2、打开注册表编辑器后，我们依次点击展开“HKEY_CURRENT_USE...
- win7设置每天自动开机时间（win7设置每天自动开机时间任务）
-
要在Windows7上设置每天自动开关机，您可以按照以下步骤操作：1.打开“控制面板”，单击“系统和安全”，然后选择“计划任务”。2.单击“创建基本任务”，输入一个适合您的任务名称，并添加相应的...
- 苹果电脑装双系统好用吗（苹果电脑安装双系统会不会对电脑不好）
-
好处：1、可以在保留原来的系统上再安装一个新系统，两个系统互不干扰，可以互相切换，使用方便。2、双系统可以在不用环境系进行软件调试没测试电脑的兼容性。3、双系统可以让用户体验不同的系统功能，提高用户的...
- 在电脑上复制粘贴按什么键（电脑怎复制粘贴按那个键）
-
电脑键盘上的“复制和粘贴”，分别是Ctrl+c和Ctrl+v，其中复制的快捷键是Ctrl+c，粘贴的快捷键是Ctrl+v。鼠标右键，点击右键会出菜单，移动光标后点击左键确认。键盘复制的快捷键：Ctrl...
- office是电脑自带的吗（电脑自带的office都是2016版）
-
基本上大品牌电脑，都会带正版的office软件。如果是自己组装的电脑，一般使用的盗版软件，不是正版的。现在office软件分为国产和进口两个版本，进口的是微软office，国产的是wpsoffice...
- appstore应用商店下载（AppStore应用商店下载入口）
-
可能因为1.你的软件原来在其他国家下载的，你现在账户不支持那个软件的更新，只要更改到相应的地区就好了2.可能你网不好(?˙ー˙?)3.你的pad原来登录的账户和现在不一样，所以你现在...
- 联想售后人工客服24小时电话
-
联想服务中心朝阳区望京店距您12.2KM营业时间：周一至周日9:00-18:00疫情期间停业好评度：98%已服务人数61945联想服务中心昌平区天通苑店距您5.1KM营业时间：周一至周日9:...
- 鼠标dpi键有什么作用（鼠标的dpi键）
-
鼠标DPI（DotsPerInch）键的作用是调节鼠标的定位精度和速度。DPI是鼠标的定位精度单位，指的是鼠标在平面上每移动一英寸能准确定位的最大信息数。通常情况下，鼠标DPI越高，鼠标指针在屏幕...
- 无线网登录密码忘记了怎么办
-
1、先查看一下wifi链接的网关是多少，如果是默认的多为192.168.1.1或者192.168.0.1这个地址。2、然后打开ie浏览器，输入查看到的网关地址，比如192.168.1.1，会弹出登录对...
- 微软重装系统（微软重装系统工具）
-
win10重装跳过账号登录的方法步骤如下：1、重装系统到“登录你的Microsoft账户”这一界面后，点击下方的“创建一个新账户”。2、接着进入...
- 迷你世界激活码生成器下载（迷你世界激活码生成器app下载）
-
序列号相当于导航的身份证，表示该导航对应的版本和机型。是厂家随机编号的，说不出什么意思。在Excel中，您可以使用以下方法快速生成序列号：方法一：填充法1.在第一个目标单元格中输入起始序号（No）值...
欢迎 你 发表评论:
- 一周热门
-
-
抖音上好看的小姐姐，Python给你都下载了
-
全网最简单易懂!495页Python漫画教程，高清PDF版免费下载
-
Python 3.14 的 UUIDv6/v7/v8 上新，别再用 uuid4 () 啦!
-
飞牛NAS部署TVGate Docker项目，实现内网一键转发、代理、jx
-
python入门到脱坑 输入与输出—str()函数
-
宝塔面板如何添加免费waf防火墙?（宝塔面板开启https）
-
Python三目运算基础与进阶_python三目运算符判断三个变量
-
(新版)Python 分布式爬虫与 JS 逆向进阶实战吾爱分享
-
失业程序员复习python笔记——条件与循环
-
使用 python-fire 快速构建 CLI_如何搭建python项目架构
-
- 最近发表
- 标签列表
-
- 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)