10 REM ********* ΠΡΟΓΡΑΜΜΑ Π102 ****************

20 REM * *

30 REM * Αναδιάταξη των σημείων x(i) με *

40 REM * με ταυτόχρονη αλλαγή των τιμών y(i) *

50 REM * *

60 REM ******************************************

70 CLS

80 DIM X(20),Y(20)

90 INPUT "Δώσε το αριθμό σημείων";N

100 FOR I=1 TO N

110 READ X(I)

120 NEXT I

130 RESTORE

140 FOR J=1 TO N

150 READ Y(J)

160 NEXT J

170 PRINT

180 PRINT "Τυπώνονται με τη σειρά όπως έχει"

190 PRINT

200 GOSUB 490

210 REM Καλούμε το υποπρόγραμμα διάταξης

220 GOSUB 280

230 PRINT

240 PRINT "Τυπώνονται με αύξουσα σειρά"

250 PRINT

260 GOSUB 490

270 END

280 TROP=N

290 TROP=INT(TROP/2)

300 IF TROP=0 THEN GOTO 410

310 JJ=N-TROP

320 FOR J=1 TO JJ

330 I=J

340 G3=I+TROP

350 IF X(I)<=X(G3) THEN GOTO 390

360 GOSUB 420

370 I=I-TROP

380 IF I>0 THEN GOTO 340

390 NEXT J

400 GOTO 290

410 RETURN

420 TEMP=X(I)

430 X(I)=X(G3)

440 X(G3)=TEMP

450 TEMP=Y(I)

460 Y(I)=Y(G3)

470 Y(G3)=TEMP

480 RETURN

490 FOR I=1 TO N

500 PRINT X(I),Y(I)

510 NEXT I

520 RETURN

530 END

540 DATA 2,1,5,8,3,9

550 DATA .7,.6,.1,.4,.1,.34