, , . .
if case.
2.1 if
, , .. . (.. ).
) if
if . . , . . if :
IF (_ ) THEN
_THEN
ELSE
_ELSE
ENDIF
, .. IF(..) THEN, ELSE ENDIF, . IF :
, "", ""
"", _THEN
"", _ELSE
. 2.1 if.
. 2.1.
, , .
Program number
Integer k!
Write(*,(a,&)), Enter a number
Read(*,*), k
If (k>0) then
Write(*,*),k>0
Else
Write(*,*),k<0
End if
end
1) Enter mumber 100
K<0
2) Enter mumber -50
K<0
) if
_ELSE, IF :
IF (_ ) THEN
_THEN
ENDIF
"", _THEN , "" - .
- . 2.2.
. 2.2.
. , 100, 2.
Program sqr
Integer number!
|
|
real number2!
Write(*,(a,$)),Enter a number
Read(*,*), number
Number2 = number* number
If(number2 > 100) then
number2 = number2/2
Endif
Write(*,a,f5.1),result , number2
Enter a number 20
Result 200.0
) if
_THEN , _ELSE , if, . :
if (x < 0) y=ABS(x)
IF .
) if
if if. , . : if _THEN if
IF () THEN
if() then
endif
ELSE
ENDIF
, .
. 2.3. | Print*, Enter k Read(*,*), k If (k<0) then Print*, k<0 else If (k>0) then Print*, k>0 else Print*, k=0 End if End if |
() case.
case , ( ). . 2.4.
. 2.4. case
case :
[ name:] SELECT CASE (expr)
[ CASE (case-value [, case-value ]...) [ name ]
block ]...
[ CASE DEFAULT [ name ]
block ]
END SELECT [ name ]
expr integer, logical, or character; case-value integer, logical, or character . case-value - , expr. If the type is character, case-value and expr can be of different lengths, but their kind parameter must be the same.
CASE DEFAULT CASE DEFAULT.If (a==0) then Print *,1else if (a==2) then Print *,2Else if (a==3) then Print *,3else Print *,4endif | Select case (a)Case (0) Print *,1Case (2) Print *,2Case (3) Print *,3Case default Print *,4End select |
2.3 goto
, . format 1:99999. goto m, , m ( , ). goto. , format.