29 lines
363 B
Plaintext
29 lines
363 B
Plaintext
sub sq_mul(a(), b(), c())
|
|
local n, i
|
|
|
|
n = arraysize(a(), 1)
|
|
|
|
for i = 1 to n
|
|
c(i) = a(i) * b(i)
|
|
next i
|
|
end sub
|
|
|
|
sub sq_sum(a())
|
|
local n, i, r
|
|
|
|
n = arraysize(a(), 1)
|
|
|
|
for i = 1 to n
|
|
r = r + a(i)
|
|
next i
|
|
return r
|
|
end sub
|
|
|
|
dim a(3), b(3), c(3)
|
|
|
|
a(1) = 1 : a(2) = 3 : a(3) = -5
|
|
b(1) = 4 : b(2) = -2 : b(3) = -1
|
|
sq_mul(a(), b(), c())
|
|
|
|
print sq_sum(c())
|