Integer comparison: Difference between revisions
Content added Content deleted
Line 204: | Line 204: | ||
end |
end |
||
In FORTRAN 77 |
In ANSI FORTRAN 77 or later you can use relational operators and structured IF statements: |
||
program compare |
program compare |
||
integer a, b |
integer a, b |
||
Line 213: | Line 213: | ||
else if (a .eq. b) then |
else if (a .eq. b) then |
||
write(*, *) a, ' is equal to ', b |
write(*, *) a, ' is equal to ', b |
||
else |
else if (a .gt. b) then |
||
write(*, *) a, ' is greater than ', b |
write(*, *) a, ' is greater than ', b |
||
end if |
end if |
||
Line 219: | Line 219: | ||
end |
end |
||
In FORTRAN 90 |
In ISO FORTRAN 90 or later you can use symbolic relational operators (<, >, ==, etc.) |
||
program compare |
program compare |
||
integer a, b |
integer :: a, b |
||
read(*,*) a, b |
read(*,*) a, b |
||
Line 228: | Line 228: | ||
else if (a == b) then |
else if (a == b) then |
||
write(*, *) a, ' is equal to ', b |
write(*, *) a, ' is equal to ', b |
||
else |
else if (a > b) then |
||
write(*, *) a, ' is greater than ', b |
write(*, *) a, ' is greater than ', b |
||
end if |
end if |
||
end |
end program compare |
||
=={{header|Haskell}}== |
=={{header|Haskell}}== |