REM Астроноимя 4
CONST bad$ = "mft120o0l6eeel2c"
CONST good$ = "mft200o2l5cl7el7g>l4c<l8g>l2c"
COLOR 10, 0: CLS : LOCATE 10, 20: PRINT "ТЕМА: Солнце и звезды.": GOSUB 500
SLEEP 2
COLOR 10, 0: k = 10
CLS : a$ = "     I. Сколько продолжается цикл солнечной активности?"
GOSUB 100
a$ = "                     1. 14 лет"
k = k + 2: GOSUB 100
a$ = "                     2. 11 лет"
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "                     3. 9 лет"
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
SLEEP 2
COLOR 14, 3: k = 10
CLS : a$ = "II. Солнце движется относительно звезд по направлению"
GOSUB 200
a$ = "к созвездию:                                 "
k = k + 1: GOSUB 200
a$ = "      1. Геркулеса.      "
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "2. Девы.      "
k = k + 1: GOSUB 200
a$ = "      3. Скорпиона.      "
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
SLEEP 1
COLOR 15, 5: k = 10
CLS : a$ = "III. Расположите участки строения Солнца в порядке"
GOSUB 100
a$ = "     возрастания от центра:"
k = k + 1: GOSUB 100
a$ = "  1. фотосфера, хромосфера, солнечная корона,"
k = k + 2: GOSUB 100
a$ = "     зона конвекций, ядро."
k = k + 1: GOSUB 100
a$ = "  2. ядро, зона конвекций, фотосфера, хромосфера,"
k = k + 1: GOSUB 100: n = CSRLIN - 1
a$ = "     солнечная корона."
k = k + 1: GOSUB 100
a$ = "  3. солнечная корона, хромосфера, фотосфера,"
k = k + 1: GOSUB 100
a$ = "     зона конвекций, ядро."
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
SLEEP 1
COLOR 12, 1: k = 10
CLS : a$ = "         IV. Какое расстояние от Земли до Солнца?"
GOSUB 100
a$ = "                   1. 150000 млн. км."
k = k + 2: GOSUB 100: n = CSRLIN - 1
a$ = "                   2. 325000 млн. км."
k = k + 1: GOSUB 100
a$ = "                   3. 400000 млн. км."
k = k + 1: GOSUB 100
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
SLEEP 1
COLOR 14, 3: k = 10
CLS : a$ = "V. Радиус Солнца равен:       "
GOSUB 200
a$ = "  1. ~500000 км.       "
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "  2. ~850000 км.       "
k = k + 1: GOSUB 200
a$ = "  3. ~700000 км.       "
k = k + 1: GOSUB 200
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
SLEEP 1

COLOR 9, 0: k = 10
CLS : a$ = "                  VI. Один парсек это:"
GOSUB 100
a$ = "                 1. 3,26 световых года."
k = k + 2: GOSUB 100: n = CSRLIN - 1
a$ = "                 2. 4,07 световых года."
k = k + 1: GOSUB 100
a$ = "                 3. 2,26 световых года."
k = k + 1: GOSUB 100
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
SLEEP 1

COLOR 15, 4: k = 10
CLS : a$ = "    VII. Паралакс звезды 0,15 сек., определите расстояние от"
GOSUB 100
a$ = "         звезды до Земли в световых годах."
k = k + 1: GOSUB 100
a$ = "                       1. ~27 лет."
k = k + 2: GOSUB 100
a$ = "                       2. ~19 лет."
k = k + 1: GOSUB 100
a$ = "                       3. ~22 года."
k = k + 1: GOSUB 100: 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
SLEEP 1

COLOR 10, 0: k = 10
CLS : a$ = " VIII. Определите положение звезды, если известно, что     "
GOSUB 200
a$ = "       расстояние от звезды до Земли равно 425 световых лет."
k = k + 1: GOSUB 200
a$ = "    1. ~0,02    "
k = k + 2: GOSUB 200
a$ = "    2. ~0,008   "
k = k + 1: GOSUB 200: n = CSRLIN - 1
a$ = "    3. ~0,003   "
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
SLEEP 1

COLOR 14, 2: k = 10
CLS : a$ = "IX. Быстровращающиеся сверхплотные звезды,"

GOSUB 200: a$ = "радиусом около 10 км, называются:"

k = k + 1: GOSUB 200
a$ = "  1. Пульсарами  "
k = k + 2: GOSUB 200: n = CSRLIN - 1
a$ = "    2. Свехгигантами "
k = k + 1: GOSUB 200
a$ = "  3. Гигантами   "
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
SLEEP 1


COLOR 15, 5: k = 10
CLS : a$ = "           X. Звезды, подобные Солнцу, относятся к:"
k = k + 1: GOSUB 100
 a$ = "                      1. Сверхгигантам"
k = k + 2: GOSUB 100
 a$ = "                      2. Гигантам"
k = k + 1: GOSUB 100: n = CSRLIN - 1
 a$ = "                      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
SLEEP 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 "ваша оценка ДВА"
FOR I = 0 TO 50000
NEXT I
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)), 1, c
CIRCLE (x(I), Y(I)), 1, 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)), 1, 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 "                                      "
RETURN
500
PLAY "<C4E8G8"
PLAY ">C16C16C16C16C16C16C16C16"
PLAY "D16D16D16D16D16D16D16D16"
PLAY "E4D4C8C16.C32C8P8"
RETURN