◄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