15 lines
506 B
Plaintext
15 lines
506 B
Plaintext
Dim x(9)
|
|
x = {0.654682, 0.409382, 0.891663, 0.716629, 0.477721, 0.925092, 0.624291, 0.211332, 0.293786, 0.839186}
|
|
Dim y(9)
|
|
y = {0.925557, 0.619391, 0.888594, 0.996200, 0.946355, 0.818220, 0.142924, 0.221507, 0.691701, 0.728260}
|
|
|
|
minDist = 1^30
|
|
For i = 0 To 8
|
|
For j = i+1 To 9
|
|
dist = (x[i] - x[j])^2 + (y[i] - y[j])^2
|
|
If dist < minDist Then minDist = dist : minDisti = i : minDistj = j
|
|
Next j
|
|
Next i
|
|
Print "El par más cercano es "; minDisti; " y "; minDistj; " a una distancia de "; Sqr(minDist)
|
|
End
|