fortran输出空行
时间: 2023-05-10 17:55:03 浏览: 558
您可以使用 Fortran 中的 WRITE 语句来输出空行。例如,以下代码将输出两个空行:
WRITE(*,*)
WRITE(*,*)
其中,第一个星号表示输出到标准输出设备,第二个星号表示输出一个空行。
相关问题
请用FORTRAN语言编写一程序输出上述内容
看起来您希望得到一个Fortran程序,该程序能够打印特定的格式化字符串,但是提供的模板内容全是星号,并没有实际的文字内容可供参考。不过别担心,下面我将给出一个简单的Fortran代码示例,它可以用来打印特定模式或文本。既然您的要求是打印类似“*”组成的图案,这里就提供一个基本框架:
```fortran
program print_pattern
implicit none
integer :: i, j
! 打印星号图案
do i = 1, 5
write(*, '(20a1)') '*'
end do
do j = 1, 3
write(*, *) ''
end do
do i = 1, 5
write(*, '(20a1)') '*'
end do
end program print_pattern
```
这个程序将会打印出两行由星号构成的水平线,并在中间留有空行。您可以调整`do`循环中的数值来改变每一部分的大小或者修改`write(*, '(20a1)') '*'`这样的输出指令以实现不同的打印效果。如果需要更复杂的图案或者是具体的文本内容,请提供更多细节。
fortran打印helloworld
在Fortran中打印 "Hello, World!" 的基本语法是使用 `write` 和 `print` 语句结合,但是考虑到Fortran的标准版本并不支持直接输出字符串,你可以通过数组或字符变量来实现。这里有一个简单的例子:
```fortran
program hello_world_fortran
implicit none
character(len=13) :: greeting = "Hello, World!"
write (*, "(A)", advance="no") greeting ! 使用格式标示"A"表示一个字符序列,不自动换行
write (*, *) "" ! 输出空行以美观显示
end program hello_world_fortran
```
运行此程序,你将在屏幕上看到 "Hello, World!" 单独占据一行。
如果你使用的是较新的Fortran标准,如Fortran 90或更高,可以直接使用 `print` 语句:
```fortran
program hello_world_fortran_90
print *, "Hello, World!"
end program hello_world_fortran_90
```
阅读全文
相关推荐
![-](https://img-home.csdnimg.cn/images/20241231044937.png)
![-](https://img-home.csdnimg.cn/images/20241231044930.png)
![-](https://img-home.csdnimg.cn/images/20241231044930.png)
![application/pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![application/x-zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![pdf](https://img-home.csdnimg.cn/images/20241231044930.png)
![-](https://img-home.csdnimg.cn/images/20241231044930.png)
![-](https://img-home.csdnimg.cn/images/20241231044955.png)
![-](https://img-home.csdnimg.cn/images/20241226111658.png)
![-](https://img-home.csdnimg.cn/images/20241226111658.png)
![-](https://img-home.csdnimg.cn/images/20241226111658.png)
![-](https://img-home.csdnimg.cn/images/20241226111658.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://img-home.csdnimg.cn/images/20241231044930.png)
![rar](https://img-home.csdnimg.cn/images/20241231044955.png)