REM Астрономия 3
CONST bad$ = "mft120o0l6eeel2c"
CONST good$ = "mft200o2l5cl7el7g>l4c<l8g>l2c"
COLOR 10, 0: CLS : LOCATE 10, 20: PRINT "ТЕМА: Строение Солнечной системы.": GOSUB 500
SLEEP 2
CLS : a$ = "         I. По какой орбите будет двигаться тело"
b$ = "            если ему сообщили 2-ю космическую скорость."
c$ = "            1. гиперболической."
d$ = "            2. круговой."
e$ = "            3. параболической."
f$ = "Для продолжения нажмите любую клавишу.": GOSUB 400
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 22, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE 19, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
SCREEN 0
CLS : a$ = "II. По каким орбитам движутся планеты вокруг Солнца?"
b$ = "                                    "
c$ = "1. По окружностям."
d$ = "2. По эллипсам, близким к окружностям."
e$ = "3. По параболам."
f$ = "Для продолжения нажмите любую клавишу.": GOSUB 300
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 2 THEN
PRINT "вы не правы": LOCATE 14, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
SCREEN 0
COLOR 7, 6: CLS : k = 10: a$ = "III.Ближайшую к Солнцу точку орбиты называют:"
GOSUB 200
a$ = "1. афелием."
k = k + 2: GOSUB 200
a$ = "2. фокусом."
k = k + 1: GOSUB 200
a$ = "   3. перигелием."
k = k + 1: GOSUB 200: n = CSRLIN - 1
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
COLOR 0, 7: CLS : LOCATE 10, 15: PRINT "IV. Наиболее удаленная к Земле точка орбиты Луны называется:"
LOCATE 12, 35: PRINT "1. апогеем."
LOCATE 13, 35: PRINT "2. перигеем."
LOCATE 14, 35: PRINT "3. афелием."
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE 12, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
k = 10
COLOR 14, 5: CLS : a$ = "V. Какие тела солнечной системы испытывают наибольшее"
GOSUB 100
a$ = "   возмущения и почему?"
k = k + 1: GOSUB 100
a$ = "         1. те, у которых большая масса."
k = k + 2: GOSUB 100
a$ = "         2. те, у которых малая масса."
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "         3. масса значениe не имеет."
k = k + 1: GOSUB 100
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 2 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
COLOR 10, 1: CLS : LOCATE 10, 15: PRINT "VI. Какая планета вызывает наибольшее возмущение движения"
LOCATE 11, 15: PRINT "    других планет солнечной системы?"
LOCATE 13, 35: PRINT "1. Mарс."
LOCATE 14, 35: PRINT "2. Cатурн."
LOCATE 15, 35: PRINT "3. Юпитер."
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 3 THEN
PRINT "вы не правы": LOCATE 15, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 3 THEN S = S + 1
COLOR 13, 0: k = 10: CLS : a$ = "VII. Определите звездный период обращения Mарса, зная, что"
b$ = "     его синодический период равен 780 суток."
c$ = "1. прибл. 690 суток."
d$ = "2. прибл. 850 суток."
e$ = "3. прибл. 540 суток."
f$ = "Для продолжения нажмите любую клавишу.": GOSUB 300
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE 13, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
SCREEN 0: COLOR 14, 3: k = 10: CLS : a$ = "VIII. Чему равнялся бы синодический период обращения планеты,звездный"
GOSUB 200
a$ = "     период обращения которой вокруг Солнца составлял бы 370 суток?"
k = k + 1: GOSUB 200
a$ = "1. прибл. 74 года."
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "2. прибл. 82 года."
k = k + 1: GOSUB 200
a$ = "3. прибл. 69 лет."
k = k + 1: GOSUB 200
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 1 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 1 THEN S = S + 1
COLOR 15, 6: k = 10
CLS : a$ = "IX. Определите массу Урана, приняв за единицу измерения "
GOSUB 100
a$ = "    массы массу Земли и сравнивая движение Луны вокруг"
k = k + 1: GOSUB 100
a$ = "    Земли с движением спутника Титанa, обращающегося"
k = k + 1: GOSUB 100
a$ = "    вокруг Урана с периодом 8д.17ч. на расстоянии 438 тыс.км."
k = k + 1: GOSUB 100
a$ = "                 1. 15,9 массы Земли."
k = k + 3: GOSUB 100
a$ = "                 2. 14,7 массы Земли."
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "                 3. 17,3 массы Земли."
k = k + 1: GOSUB 100
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 2 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
COLOR 14, 11: k = 10
CLS : a$ = "  X. Какая планета вращается в направлении,"
GOSUB 200
a$ = "  обратном ее движении вокруг Солнца?"
k = k + 1: GOSUB 200
a$ = "   1. Марс."
k = k + 2: GOSUB 200
a$ = "     2. Венера."
k = k + 1: GOSUB 200: n = CSRLIN - 1
a$ = "    3. Сатурн."
k = k + 1: GOSUB 200
DO: INPUT a: LOOP WHILE a < 1 OR a > 3: LOCATE 20, 34
IF a <> 2 THEN
PRINT "вы не правы": LOCATE n, 10: PRINT "----->": PLAY bad$
ELSE
PRINT "ответ верный": PLAY good$
END IF: SLEEP 2
IF a = 2 THEN S = S + 1
CLS : LOCATE 13, 31: IF S = 10 OR S = 9 THEN PRINT "ваша оценка ПЯТЬ"
LOCATE 13, 31: IF S = 8 THEN PRINT "ваша оценка ЧЕТЫРЕ"
LOCATE 13, 31: IF S = 6 OR S = 7 THEN PRINT "ваша оценка ТРИ"
LOCATE 13, 31: IF S < 6 THEN PRINT "ваша оценка ДВА"
SLEEP 3
SYSTEM
100
FOR I = 1 TO LEN(a$)
b$ = MID$(a$, I, 1) + " "
FOR X = 65 TO I STEP -1
x1 = X + 10
LOCATE k, x1, 0
PRINT b$
FOR Z = 1 TO 10
NEXT Z
NEXT X
NEXT I
RETURN
200
IF LEN(a$) / 2 > INT(LEN(a$) / 2) THEN a$ = a$ + " "
FOR I = 1 TO LEN(a$) / 2
b$ = MID$(a$, 1, I) + MID$(a$, LEN(a$) + 1 - I, I)
LOCATE k, 40 - I
PRINT b$
FOR Z = 1 TO 1000
NEXT Z
NEXT I
RETURN
300 SCREEN 9
DIM X(50), y(50), V(50), U(50)
FOR I = 1 TO 50
c = INT(RND(1) * 15)
CIRCLE (X(I), y(I)), 2, c
CIRCLE (X(I), y(I)), 2, 0
IF X(I) > 0 AND X(I) < 600 AND y(I) > 0 AND y(I) < 360 THEN 390
X(I) = 320
y(I) = 160
V(I) = -10 + 20 * RND(1)
U(I) = -10 + 20 * RND(1)
390 X(I) = X(I) + V(I)
y(I) = y(I) + U(I)
CIRCLE (X(I), y(I)), 2, c
NEXT I
LOCATE 10, 10: PRINT a$
LOCATE 11, 10: PRINT b$
LOCATE 13, 19: PRINT c$
LOCATE 14, 19: PRINT d$
LOCATE 15, 19: PRINT e$
LOCATE 19, 14: PRINT f$
IF INKEY$ = "" THEN GOTO 300 ELSE GOTO 13
13 LOCATE 19, 13: PRINT "                                      "
LOCATE 19, 20: PRINT "Введите номер вашего варианта ответа."
RETURN
400
SCREEN 9
X = 330: y = 100:
DO
FOR I = 1 TO 2000: NEXT I: CLS 1
FOR j = 1 TO 100
PSET (50 + RND(1) * 550, 20 + RND(1) * 160)
NEXT j
U = U + .04 'МЕРКУРИЙ
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 3, 6: PAINT (x1, y1), 6, 6
CIRCLE (x1, y1), 3, 0
x1 = 100 * COS(U) + X
y1 = .2 * 100 * SIN(U) + y
U1 = U1 + .05 'ВЕНЕРА
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 4, 6: PAINT (x1, y1), 8, 6
CIRCLE (x1, y1), 4, 0
x1 = 110 * COS(U1) + X
y1 = .2 * 110 * SIN(U1) + y
U2 = U2 + .06 'ЗЕМЛЯ
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 4, 6: PAINT (x1, y1), 2, 6
CIRCLE (x1, y1), 4, 0
x1 = 130 * COS(U2) + X: y1 = .2 * 130 * SIN(U2) + y
U3 = U3 + .07 'МАРС
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 4, 6: PAINT (x1, y1), 12, 6
CIRCLE (x1, y1), 4, 0
x1 = 150 * COS(U3) + X: y1 = .2 * 150 * SIN(U3) + y
U4 = U4 + .08 'ЮПИТЕР
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 8, 6: PAINT (x1, y1), 4, 6
CIRCLE (x1, y1), 8, 0
x1 = 180 * COS(U4) + X: y1 = .2 * 180 * SIN(U4) + y
U5 = U5 + .09 'САТУРН
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 6, 6: PAINT (x1, y1), 6, 6
CIRCLE (x1, y1), 6, 0
CIRCLE (x1, y1), 14, 7, , , .2
CIRCLE (x1, y1), 16, 6, , , .2
x1 = 200 * COS(U5) + X: y1 = .2 * 200 * SIN(U5) + y
U6 = U6 + .1 'УРАН
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 5, 6: PAINT (x1, y1), 5, 6
CIRCLE (x1, y1), 5, 0
x1 = 220 * COS(U6) + X
y1 = .2 * 220 * SIN(U6) + y
U7 = U7 + .11 'НЕПТУН
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 5, 6: PAINT (x1, y1), 3, 6
CIRCLE (x1, y1), 5, 0
x1 = 240 * COS(U7) + X
y1 = .2 * 240 * SIN(U7) + y
U8 = U8 + .03 'ПЛУТОН
CIRCLE (X, y), 20, , , , .7: PAINT (X, y), 14, 15
CIRCLE (x1, y1), 3, 6: PAINT (x1, y1), 1, 6
CIRCLE (x1, y1), 3, 0
x1 = 90 * COS(U8) + X
y1 = .2 * 90 * SIN(U8) + y
VIEW SCREEN (50, 20)-(600, 180), , 7
VIEW PRINT 15 TO 23
LOCATE 15, 10: PRINT a$
LOCATE 16, 10: PRINT b$
LOCATE 17, 19: PRINT c$
LOCATE 18, 19: PRINT d$
LOCATE 19, 19: PRINT e$
LOCATE 20, 21: PRINT f$
LOOP WHILE INKEY$ = ""
LOCATE 20, 13: PRINT "                                                 "
LOCATE 20, 20: PRINT "Введите номер вашего варианта ответа."
RETURN
500
PLAY "<C4E8G8"
PLAY ">C16C16C16C16C16C16C16C16"
PLAY "D16D16D16D16D16D16D16D16"
PLAY "E4D4C8C16.C32C8P8"
RETURN