24 lines
606 B
Plaintext
24 lines
606 B
Plaintext
10 DIM x(10): DIM y(10)
|
|
20 FOR i=1 TO 10
|
|
30 READ x(i),y(i)
|
|
40 NEXT i
|
|
50 LET min=1e30
|
|
60 FOR i=1 TO 9
|
|
70 FOR j=i+1 TO 10
|
|
80 LET p1=x(i)-x(j): LET p2=y(i)-y(j): LET dsq=p1*p1+p2*p2
|
|
90 IF dsq<min THEN LET min=dsq: LET mini=i: LET minj=j
|
|
100 NEXT j
|
|
110 NEXT i
|
|
120 PRINT "Closest pair is ";mini;" and ";minj;" at distance ";SQR min
|
|
130 STOP
|
|
140 DATA 0.654682,0.925557
|
|
150 DATA 0.409382,0.619391
|
|
160 DATA 0.891663,0.888594
|
|
170 DATA 0.716629,0.996200
|
|
180 DATA 0.477721,0.946355
|
|
190 DATA 0.925092,0.818220
|
|
200 DATA 0.624291,0.142924
|
|
210 DATA 0.211332,0.221507
|
|
220 DATA 0.293786,0.691701
|
|
230 DATA 0.839186,0.728260
|