* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а XIII. П р и м е р ы п р о г р а м м 13.4. П р о г р а м м а п о с т р о е н и я о к р у ж н о с т е й 'Программа построения окружностей и их фрагментов CONST p i = 3.141593 SCREEN 2 CIRCLE ( 3 2 0 , 1 0 0 ) , 2 0 0 , , — p i , — p i / 2 CIRCLE STEP(-100, — 4 2 ) , 100 CIRCLE STEP(0, 0 ) , 1 0 0 , , , , 5 / 2 5 LOCATE 25, 1 : PRINT "нажмите любую клавишу" DO LOOP WHILE INKEY$ = "" 13.5. П р о г р а м м а п о с т р о е н и я м о д е л и с о л н е ч н о й с и с т е м ы . Планеты земной группы 205 'Модель солнечной системы. Планеты земной группы С.Н. Гольцов DECLARE SUB P l a n e t y ( x ! , y!, r a d ! ) DECLARE SUB O r b i t a ( x ! , y!) DECLARE SUB S o l ( x ! , y!, r a d ! ) DIM SHARED M e r ( 5 5 0 ) , V e n ( 5 5 0 ) , Z e m ( 1 5 5 0 ) , M a r ( 1 5 5 0 ) , J u p ( 1 5 5 0 ) ' k f — коэффициент масштаба ( 1 . 5 — для планет земной группы 'T — масштаб времени C L S : k f = 1 . 5 : x = 3 2 0 * k f : y = 2 4 0 * k f : r a d = 1 0 : d = 0 : T = 1 SCREEN 12: WINDOW ( 0 , 0 ) - ( 6 4 0 * k f , 480 * k f ) CALL P l a n e t y ( x , y, r a d ) : CALL S o l ( x , y, r a d ) COLOR 14: LOCATE 3, 1 : PRINT "Солнечная система": PRINT "Планеты земной группы" DO x 1 = x — r a d * 4 — COS(d1) * .387 * 200 'Двигаем Меркурий y 1 = y — r a d * 4 + S I N ( d 1 ) * .387 * 200 PUT ( x 1 , y 1 ) , Mer, PSET d1 = d 1 + T / (.24 * 30) I F d 1 > 6.28 THEN M e r g o d = M e r g o d + 1 LOCATE 15, 3 3 : PRINT M e r g o d x 2 = x — r a d * 4 — COS(d2) * .723 * 200 'Двигаем Венеру y 2 = y — r a d * 4 + S I N ( d 2 ) * .723 * 200 PUT ( x 2 , y 2 ) , Ven, PSET d 2 = d 2 + T / (.62 * 30) I F d2 > 6.28 THEN V e n g o d = V e n g o d + 1 LOCATE 15, 2 8 : PRINT Vengod x 3 = x — r a d * 4 — C O S ( d 3 ) * 1 * 2 0 0 'Двигаем Землю y 3 = y — r a d * 4 + S I N ( d 3 ) * 1 * 2 0 0 PUT ( x 3 , y 3 ) , Zem, PSET d 3 = d 3 + T / ( 1 * 3 0 ) I F d3 > 6.28 THEN Zemgod = Zemgod + 1 LOCATE 15, 2 3 : PRINT Zemgod x4 = x — r a d * 4 — y4 = y — r a d * 4 + COS(d4) * 1.524 * 200 'Двигаем Марс S I N ( d 4 ) * 1.524 * 200