Closest-pair problem: Difference between revisions
Content deleted Content added
MaiconSoft (talk | contribs) m Added Delphi reference to Pascal code |
Closest-pair problem en Yabsic |
||
Line 5,288: | Line 5,288: | ||
0.891663,0.888594 -- 0.925092,0.818220 |
0.891663,0.888594 -- 0.925092,0.818220 |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
'''Versión de fuerza bruta: |
|||
<lang Yabasic> |
|||
minDist = 1^30 |
|||
dim x(9), y(9) |
|||
x(0) = 0.654682 : y(0) = 0.925557 |
|||
x(1) = 0.409382 : y(1) = 0.619391 |
|||
x(2) = 0.891663 : y(2) = 0.888594 |
|||
x(3) = 0.716629 : y(3) = 0.996200 |
|||
x(4) = 0.477721 : y(4) = 0.946355 |
|||
x(5) = 0.925092 : y(5) = 0.818220 |
|||
x(6) = 0.624291 : y(6) = 0.142924 |
|||
x(7) = 0.211332 : y(7) = 0.221507 |
|||
x(8) = 0.293786 : y(8) = 0.691701 |
|||
x(9) = 0.839186 : y(9) = 0.728260 |
|||
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 |
|||
mini = i |
|||
minj = j |
|||
end if |
|||
next j |
|||
next i |
|||
print "El par mas cercano es ", mini, " y ", minj, " a una distancia de ", sqr(minDist) |
|||
end |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
El par mas cercano es 2 y 5 a una distancia de 3.68449e-05 |
|||
</pre> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |