- 7


 

 

0

0

0

3

4

0

5

10

 

.

:

 


<1> <1>

<4> <4>

:

<ml> <m2> <m3> <m4>

= <m>

:

<n1> <n2> <n3> <n4>

= <mn>

 

­ , .

 

¢. . . .

cls

n = 4 = 4

dim x(n),y(n),r(n,n) dim x(n),y(n),r(n,n)

? 껠 ( )

gosub vvdan ' --

restore mrshrt ' -

? : (:)

mr = 1*2*3 mr

=1*2*3

mx = 0 = 0

for l = 1 to mr l = 1 mr

read k1, k2, k3, k4 k1, k2, k3, k4

dl = r(kl,k2) + r(k2,k3) dl = r(kl,k2)

+ r(k2,k3)

d3 = r(k3,k4) + r(k4,kl) d3

=

r(k3,k4) + r(k4,k1)

d = dl + d3 d = d1 + d3

? kl; k2; k3; k4, d (k1; k2; k3; k4, d)