Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата



20 INPUT "   Угол должен быть <=80"; a

     GOTO 7

40   INPUT "   Ввести дальность до цели от 200 до 5000 м"; l

45   IF l < 200 THEN 50

     IF l > 5000 THEN 60

     GOTO 70

50   INPUT "   Расстояние до цели должно быть >=200"; l

     GOTO 45

60   INPUT "   Расстояние до цели должно быть <=5000"; l

     GOTO 45

70    INPUT "   Для выстрела нажать F1"; enter

 

  REM построение координат

  SCREEN 9:

 x0 = 50

 y0 = 300

 x1 = 600

 y1 = 50

 x2 = 50

 y2 = 300

REM координата Y

 LINE (x0, y0)-(x0, y1), 12

 LOCATE 18, 4: PRINT "250"

 LOCATE 14, 4: PRINT "500"

 LOCATE 10, 4: PRINT "750"

 LOCATE 6, 4: PRINT "1000"

  LINE (48, 245)-(52, 245), 11

  LINE (48, 190)-(52, 190), 11

  LINE (48, 135)-(52, 135), 11

  LINE (48, 80)-(52, 80), 11

REM координата X

 LINE (x0, y0)-(x1, y0), 12

 LOCATE 23, 19: PRINT "1000"

 LOCATE 23, 31: PRINT "2000"

 LOCATE 23, 44: PRINT "3000"

 LOCATE 23, 56: PRINT "4000"

 LOCATE 23, 69: PRINT "5000"

  LINE (150, 302)-(150, 298), 11

  LINE (250, 302)-(250, 298), 11

  LINE (350, 302)-(350, 298), 11

  LINE (450, 302)-(450, 298), 11

  LINE (550, 302)-(550, 298), 11

 

REM ЦЕЛЬ

   LINE (x0 + l / 10, 299)-(x0 + l / 10 + 5, 299), 10

   LINE (x0 + l / 10, 298)-(x0 + l / 10 + 5, 298), 10

REM показания

LOCATE 1, 6: PRINT "V m/s"

LOCATE 2, 6: PRINT "H m"

LOCATE 2, 24: PRINT "S m"

Рекомендуем скачать другие рефераты по теме: мировая экономика, титульный курсовой работы.

Предыдущая страница реферата | 16  17  18  19  20  21  22  23  24  25  26 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки