36 lines
764 B
QBasic
36 lines
764 B
QBasic
'
|
||
' *** DECL_EX.BAS - DECLARE statement programming example
|
||
'
|
||
' Generate 20 random numbers, store them in an array, and
|
||
' sort. The sort subprogram is called without the CALL keyword.
|
||
DECLARE SUB Sort(A(1) AS SINGLE, N AS INTEGER)
|
||
DIM Array1(1 TO 20)
|
||
|
||
' Generate 20 random numbers.
|
||
RANDOMIZE TIMER
|
||
FOR I=1 TO 20
|
||
Array1(I)=RND
|
||
NEXT I
|
||
|
||
' Sort the array and call Sort without the CALL keyword.
|
||
' Notice the absence of parentheses around the arguments in
|
||
' the call to Sort.
|
||
Sort Array1(), 20%
|
||
|
||
' Print the sorted array.
|
||
FOR I=1 TO 20
|
||
PRINT Array1(I)
|
||
NEXT I
|
||
END
|
||
|
||
' Sort subroutine.
|
||
SUB Sort(A(1), N%) STATIC
|
||
|
||
FOR I= 1 TO N%-1
|
||
FOR J=I+1 TO N%
|
||
IF A(I)>A(J) THEN SWAP A(I), A(J)
|
||
NEXT J
|
||
NEXT I
|
||
|
||
END SUB
|
||
|