1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | DEFINT A-ZCLSINPUT "Kol-vo tochek : ", n f = FREEFILE OPEN "B", f, "Points.pix"PRINT "Teper' koordinaty dlya kajdoi tochki v regime ekrana 12"FOR i = 1 TO n PRINT "___ TOCHKA #"; i; "__" INPUT "X : ", x INPUT "Y : ", y PUT #f, , x PUT #f, , yNEXT SCREEN 12 SEEK #f, 1 GET #f, , x GET #f, , yFOR i = 1 TO n - 1 GET #f, , x2 GET #f, , y2 LINE (x, y)-(x2, y2), 15 x = x2: y = y2NEXT CLOSE f KILL "Points.pix" WHILE INKEY$ = "": WEND |