用fortran语言编写:输出杨辉三角形
时间: 2024-03-08 13:50:00 浏览: 55
以下是用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语言编写:寻找书名中有“Fortran”的书
我们可以使用Fortran中的字符串函数来查找字符串中是否包含子串,然后在书名列表中寻找带有“Fortran”的书名。
下面是一个展示如何寻找书名中包含“Fortran”的Fortran程序示例。
```
program find_fortran_books
character(100):: books(5)
character(7):: search_str = 'Fortran'
integer:: i, count
! 书名列表
books(:) = (/'Advanced Fortran Programming',
'Numerical Methods in Fortran',
'Introduction to Fortran Programming',
'Fortran for Scientists and Engineers',
'Programming in Fortran 90 and 95'/)
! 判断每个书名是否包含“Fortran”
count = 0
do i = 1, 5
if (index(books(i), search_str) > 0) then
count = count + 1
write(*,*) books(i)
end if
end do
! 输出找到的书籍数量
write(*,*) 'Total number of books with Fortran in title:', count
end program find_fortran_books
```
运行该程序将输出带有“Fortran”的书名和总数。
用fortran语言编写:从键盘输入十个数,要求按输入时的逆序输出
你好!下面是一个例子,如何用Fortran语言从键盘输入十个数并按逆序输出:
program inverse_input
implicit none
integer :: i, n, a(10)
! 从键盘输入十个数
do i = 1, 10
write(*,'(A)') '请输入一个数:'
read(*,'(I5)') n
a(i) = n
end do
! 按输入时的逆序输出
do i = 10, 1, -1
write(*,'(I5)') a(i)
end do
end program inverse_input
在这个例子中,我们定义了一个整数数组a,用来存储从键盘输入的十个数。然后,我们使用一个循环从键盘输入这十个数,并将它们存储在数组a中。最后,我们使用另一个循环按逆序输出数组a中的数。
希望这能帮到你!如果你有其他问题,请随时追问。
相关推荐
![](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)