Integer x
Read *, x
Select Case (x)
Case (1)
Print *, 'one'
Case (2)
Print *, 'two'
End Select
End
Example input 11
Execution Resultsone
Example input 22
Execution Resultstwo
<Example Program 1>
| Program select_case_example_1 Integer x Read *, x Select Case (x) Case (1) Print *, 'one' Case (2) Print *, 'two' End Select End |
|
| Example input 1 1 Execution Resultsone |
|
| Example input 2 2 Execution Resultstwo |
|
<Example Program 2>
| Program select_case_example_2 Integer x Read *,x Select Case (x) Case (1:) Print *, 'Positive' Case (:-1) Print *, 'Negative' Case Default Print *, 'Zero' End Select End |
|
| Example input 1 1 Execution ResultsPositive |
|
| Example input 2 -2 Execution ResultsNegative |
|
| Example input 3 0 Execution ResultsZero |
|