◄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)<Min THEN Min=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