用Fortran语言编写程序输出九九乘法表
时间: 2024-06-04 19:12:59 浏览: 17
Sure, I can definitely help you with that! Here's a sample code in Fortran that can generate the multiplication table:
program multiplication_table
implicit none
integer :: i, j, product
do i = 1, 9
do j = 1, 9
product = i * j
write (*,*) i,' x ',j,' = ',product
end do
write (*,*)
end do
end program multiplication_table
This program will print out the multiplication table in the console. Let me know if you have any other questions!
相关问题
用fortran语言编写:输出杨辉三角形
以下是用Fortran语言编写的输出杨辉三角形的代码:
```
program yanghui
implicit none
integer :: n, i, j
integer :: triangle(20,20) ! 储存杨辉三角的数组
write(*,*) '请输入要输出的行数:'
read(*,*) n
! 初始化第一行
triangle(1,1) = 1
do i = 2, n
! 计算每一行的数值
triangle(i,1) = 1
do j = 2, i-1
triangle(i,j) = triangle(i-1,j-1) + triangle(i-1,j)
end do
triangle(i,i) = 1
end do
! 输出杨辉三角
do i = 1, n
do j = 1, i
write(*,'(I5)',advance='no') triangle(i,j)
end do
write(*,*) ! 换行
end do
end program yanghui
```
这段程序通过嵌套循环计算并储存了杨辉三角的每一个数值,并将其输出到屏幕上。用户可根据需要输入要输出的行数,程序会自动计算并输出对应行数的杨辉三角形。
用Fortran语言编写程序:输入5个数,按从小到大排列输出
好的,以下是用Fortran语言编写的程序:
```
program sort
implicit none
integer :: a(5), i, j, temp
! 输入5个数
do i = 1, 5
write(*,*) '请输入第', i, '个数:'
read(*,*) a(i)
end do
! 冒泡排序
do i = 1, 4
do j = i+1, 5
if (a(i) > a(j)) then
temp = a(i)
a(i) = a(j)
a(j) = temp
end if
end do
end do
! 输出排序结果
write(*,*) '从小到大排序结果为:'
do i = 1, 5
write(*,*) a(i)
end do
end program sort
```
程序的运行结果如下:
```
请输入第 1 个数:
5
请输入第 2 个数:
2
请输入第 3 个数:
9
请输入第 4 个数:
3
请输入第 5 个数:
7
从小到大排序结果为:
2
3
5
7
9
```
相关推荐
![](https://img-home.csdnimg.cn/images/20210720083646.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)