43 lines
985 B
Plaintext
43 lines
985 B
Plaintext
arraybase 1
|
|
dim vect1(2)
|
|
vect1[1] = 5 : vect1[2] = 7
|
|
dim vect2(2)
|
|
vect2[1] = 2 : vect2[2] = 3
|
|
dim vect3(vect1[?])
|
|
|
|
subroutine showarray(vect3)
|
|
print "[";
|
|
svect$ = ""
|
|
for n = 1 to vect3[?]
|
|
svect$ &= vect3[n] & ", "
|
|
next n
|
|
svect$ = left(svect$, length(svect$) - 2)
|
|
print svect$;
|
|
print "]"
|
|
end subroutine
|
|
|
|
for n = 1 to vect1[?]
|
|
vect3[n] = vect1[n] + vect2[n]
|
|
next n
|
|
print "[" & vect1[1] & ", " & vect1[2] & "] + [" & vect2[1] & ", " & vect2[2] & "] = ";
|
|
call showarray(vect3)
|
|
|
|
for n = 1 to vect1[?]
|
|
vect3[n] = vect1[n] - vect2[n]
|
|
next n
|
|
print "[" & vect1[1] & ", " & vect1[2] & "] - [" & vect2[1] & ", " & vect2[2] & "] = ";
|
|
call showarray(vect3)
|
|
|
|
for n = 1 to vect1[?]
|
|
vect3[n] = vect1[n] * 11
|
|
next n
|
|
print "[" & vect1[1] & ", " & vect1[2] & "] * " & 11 & " = ";
|
|
call showarray(vect3)
|
|
|
|
for n = 1 to vect1[?]
|
|
vect3[n] = vect1[n] / 2
|
|
next n
|
|
print "[" & vect1[1] & ", " & vect1[2] & "] / " & 2 & " = ";
|
|
call showarray(vect3)
|
|
end
|