fortran中判断真假
时间: 2023-09-13 11:09:46 浏览: 55
在Fortran中,可以使用逻辑表达式来判断真假,逻辑表达式的结果是逻辑值(.TRUE. 或 .FALSE.)。比如:
```
IF (x > y) THEN
...
END IF
```
在上面的代码中,如果x大于y,逻辑表达式的结果是.TRUE.,则会进入if语句中的代码块。如果x小于等于y,逻辑表达式的结果是.FALSE.,则不会执行if语句中的代码块。
相关问题
fortran 判断bool值真假
在Fortran中,逻辑值(`logical`)类型用于表示真(`.TRUE.`)和假(`.FALSE.`)两个值。在判断逻辑值的真假时,可以使用条件语句(`if`语句)或逻辑运算符来实现。
下面是使用条件语句判断逻辑值的例子:
```
logical :: my_bool
my_bool = .TRUE.
if (my_bool) then
print *, "my_bool is true"
else
print *, "my_bool is false"
end if
```
上述代码中,首先定义了一个逻辑值变量`my_bool`,并将其赋值为`.TRUE.`。然后使用`if`语句判断`my_bool`的真假,并根据其值输出不同的信息。
下面是使用逻辑运算符判断逻辑值的例子:
```
logical :: my_bool
my_bool = .FALSE.
if (my_bool .eqv. .TRUE.) then
print *, "my_bool is true"
else
print *, "my_bool is false"
end if
```
上述代码中,首先定义了一个逻辑值变量`my_bool`,并将其赋值为`.FALSE.`。然后使用`.eqv.`逻辑运算符判断`my_bool`的真假,并根据其值输出不同的信息。`.eqv.`运算符表示两个逻辑值是否相等,返回值为逻辑值类型(`logical`)。
Fortran判断素数
下面是使用Fortran编写的判断素数的程序:
```
program prime_number
implicit none
integer :: n, i, flag
print *, "Enter a positive integer:"
read *, n
if (n <= 1) then
print *, "Not a prime number"
else
flag = 0
do i = 2, n-1
if (mod(n, i) == 0) then
flag = 1
exit
end if
end do
if (flag == 1) then
print *, "Not a prime number"
else
print *, "Prime number"
end if
end if
end program prime_number
```
在这个程序中,首先要求用户输入一个正整数。然后,如果这个数小于等于1,则输出“Not a prime number”。否则,使用一个循环来依次测试这个数是否能被2至n-1之间的整数整除。如果存在一个能够整除的数,则不是素数,输出“Not a prime number”,否则是素数,输出“Prime number”。