| .DIM Statement Programming Example. |
|
 QuickSCREEN Details Example Contents Index |
| ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ |
| DIM Statement Programming Example |
|
| The following example finds and prints the maximum and minimum of |
| a set of values: |
| |
| ' Find the maximum and minimum of up to 20 values. |
| ' |
| ' Dimension an array to hold the values. |
| CONST MAXDIM=20 |
| DIM A(1 TO MAXDIM) |
| ' Use DIM to set up two integer variables. |
| ' All other variables are SINGLE. |
| DIM NumValues AS INTEGER, I AS INTEGER |
| |
| ' Get the values. |
| NumValues=0 |
| PRINT "Enter values one per line. Type END to end." |
| DO |
| INPUT A$ |
| IF UCASE$(A$)="END" OR NumValues>=MAXDIM THEN EXIT DO |
| NumValues=NumValues+1 |
| A(NumValues)=VAL(A$) |
| LOOP |
| |
| ' Find the maximum and minimum values. |
| IF NumValues>0 THEN |
| Max=A(1) |
| Min=A(1) |
| FOR I=1 TO NumValues |
| IF A(I)>Max THEN Max=A(I) |
| IF A(I) |
| NEXT I |
| |
| PRINT "The maximum is ";Max;" The minimum is ";Min |
| ELSE |
| PRINT "Too few values." |
| END IF |
| |
| Sample Output |
| |
| Enter values one per line. Type END to end. |
| ? 23.2 |
| ? 11.3 |
| ? 1.6 |
| ? end |
| The maximum is 23.2 The minimum is 1.6 |
| |
