Реферат: Использование языка программирования Visual Basic для решения математических задач

5 INPUT « Ввести угол стрельбы от 5 до 80 град»; a

7 IF a < 5 THEN 10

IF a > 80 THEN 20

GOTO 40

10 INPUT « Угол должен быть >=5»; a

GOTO 7

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”