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

Г л а в а XIII. П р и м е р ы п р о г р а м м 207 13.6. П р о г р а м м а п о с т р о е н и я м о д е л и с о л н е ч н о й с и с т е м ы . Внутренние планеты солнечной системы 'Внутренние планеты солнечной системы. Программист С.Н. Гольцов DECLARE SUB Zem () DECLARE SUB o s i ( x ! , y!) x = 100 y = x / 4 * 3 SCREEN 12 DIM M e r ( 1 5 0 ) , V e n ( 1 5 0 ) , Ter(150) 'рисую Землю и запоминаю ее в массив T e r Zem GET ( 1 , 1 ) - ( 3 6 , 3 0 ) , T e r CLS 'Рисую Меркурий и запоминаю его в массив Mer CIRCLE ( 1 8 , 1 5 ) , 9 * . 3 , 7 PAINT ( 1 8 , 1 5 ) , 13, 7 GET ( 1 , 1 ) - ( 3 6 , 3 0 ) , Mer CLS 'Рисую Венеру и запоминаю ее в массив Ven CIRCLE ( 1 8 , 1 5 ) , 9 * . 9 , 5 PAINT ( 1 8 , 1 5 ) , 5, 5 GET ( 1 , 1 ) - ( 3 6 , 3 0 ) , Ven CLS RANDOMIZE TIMER WINDOW SCREEN (-x, y ) - ( x , — y ) CALL o s i ( x , y ) COLOR 1 1 : LOCATE 2, 20 PRINT "ВНУТРЕННИЕ ПЛАНЕТЫ СОЛНЕЧНОЙ СИСТЕМЫ И ЗЕМЛЯ" COLOR 14: LOCATE 15, 3 4 : PRINT "СОЛНЦЕ" COLOR 3: LOCATE 5, 3: PRINT "Г Планета год ( з . с ) " COLOR 7: LOCATE 6, 3: PRINT " 1 . Меркурий 8 8 " LOCATE 7, 3: PRINT " 2 . Венера 2 2 4 . 7 " LOCATE 8, 3: PRINT " 3 . Земля 3 6 5 . 2 5 7 " FORi=1TO1000 zx = RND * 200 — 100: z y = RND * 200 — 100 PSET ( z x , z y ) , RND * 15 NEXT i 'Это СОЛНЦЕ CIRCLE ( 6 , 5 ) , 9 * .9, 12 CIRCLE ( 6 , 5 ) , 9, 12 CIRCLE ( 6 , 5 ) , 9 * 1 . 1 , 12 PAINT ( 6 , 5 ) , 14, 12 DO xMer = S I N ( p * 6) * 80 * .3: yMer = COS(p * 6) * 60 * .3 xVen = S I N ( p * 1.5) * 80 * .7: yVen = COS(p * 1.5) * 60 * .7 x T e r = S I N ( p ) * 80: y T e r = COS(p) * 60 PUT (xMer, y M e r ) , Mer, XOR PUT (xVen, y V e n ) , V e n , XOR PUT ( x T e r , y T e r ) , T e r , XOR