20 lines
522 B
Text
20 lines
522 B
Text
100 :
|
|
110 REM DOT PRODUCT
|
|
120 :
|
|
130 REM INITIALIZE VECTORS OF LENGTH N
|
|
140 N = 3
|
|
150 DIM V1(N): DIM V2(N)
|
|
160 FOR I = 1 TO N
|
|
170 V1(I) = INT ( RND (1) * 20 - 9.5)
|
|
180 V2(I) = INT ( RND (1) * 20 - 9.5)
|
|
190 NEXT I
|
|
300 :
|
|
310 REM CALCULATE THE DOT PRODUCT
|
|
320 :
|
|
330 FOR I = 1 TO N:DP = DP + V1(I) * V2(I): NEXT I
|
|
400 :
|
|
410 REM DISPLAY RESULT
|
|
420 :
|
|
430 PRINT "[";: FOR I = 1 TO N: PRINT " ";V1(I);: NEXT I
|
|
440 PRINT "] . [";: FOR I = 1 TO N: PRINT " ";V2(I);: NEXT I
|
|
450 PRINT "] = ";DP
|