42 lines
995 B
Plaintext
42 lines
995 B
Plaintext
dim vect1(2)
|
|
vect1(1) = 5 : vect1(2) = 7
|
|
dim vect2(2)
|
|
vect2(1) = 2 : vect2(2) = 3
|
|
dim vect3(arraysize(vect1(),1))
|
|
|
|
for n = 1 to arraysize(vect1(),1)
|
|
vect3(n) = vect1(n) + vect2(n)
|
|
next n
|
|
print "[", vect1(1), ", ", vect1(2), "] + [", vect2(1), ", ", vect2(2), "] = ";
|
|
showarray(vect3)
|
|
|
|
for n = 1 to arraysize(vect1(),1)
|
|
vect3(n) = vect1(n) - vect2(n)
|
|
next n
|
|
print "[", vect1(1), ", ", vect1(2), "] - [", vect2(1), ", ", vect2(2), "] = ";
|
|
showarray(vect3)
|
|
|
|
for n = 1 to arraysize(vect1(),1)
|
|
vect3(n) = vect1(n) * 11
|
|
next n
|
|
print "[", vect1(1), ", ", vect1(2), "] * ", 11, " = ";
|
|
showarray(vect3)
|
|
|
|
for n = 1 to arraysize(vect1(),1)
|
|
vect3(n) = vect1(n) / 2
|
|
next n
|
|
print "[", vect1(1), ", ", vect1(2), "] / ", 2, " = ";
|
|
showarray(vect3)
|
|
end
|
|
|
|
sub showarray(vect3)
|
|
print "[";
|
|
svect$ = ""
|
|
for n = 1 to arraysize(vect3(),1)
|
|
svect$ = svect$ + str$(vect3(n)) + ", "
|
|
next n
|
|
svect$ = left$(svect$, len(svect$) - 2)
|
|
print svect$;
|
|
print "]"
|
|
end sub
|