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

Г л а в а XIII. П р и м е р ы п р о г р а м м 209 DO x1= x—rad*4—COS(d1) y1= y — r a d * 4 + S I N ( d 1 ) PUT ( x 1 , y 1 ) , mer, PSET (.24 * 30) d1= d 1 + 1 / x2= x—rad*4—COS(d2) y2= y — r a d * 4 + S I N ( d 2 ) PUT ( x 2 , y 2 ) , Ven, PSET (.62 * 30) d2= d 2 + 1 / x3= x—rad*4—COS(d3) y3= y — r a d * 4 + S I N ( d 3 ) PUT ( x 3 , y 3 ) , Zem, PSET d3= d 3 + 1 / ( 1 * 3 0 ) x4= x—rad*4—COS(d4) y4= y — r a d * 4 + S I N ( d 4 ) PUT ( x 4 , y 4 ) , Mar, PSET d4= d 4 + 1 / (1.88 * 30) x5= x—rad*14—COS(d5) y5= y—rad*14+SIN(d5) PUT ( x 5 , y 5 ) , J u p , PSET d5= d 5 + 1 / (11.86 * 30) CALL s o l ( x , y, r a d ) CALL O r b i t a ( x , y ) a$ = INKEY$ THEN EXIT DO IFa $ = " " LOOP END .387 * 20 0 'Двигаем Меркурий .387 * 200 .723 * 200 'Двигаем Венеру .723 * 200 200 200 Двигаем Землю 1.524 * 200 'Двигаем Марс 1.524 * 200 * 5.203 * 200 'Двигаем Юпитер * 5.203 * 200 Planety: 'рисую и запоминаю планеты CLS CIRCLE ( x , y ) , r a d * .382, 7 'Рисуем МЕРКУРИЙ PAINT ( x , y ) , 7, 7 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , y mer(0) CLS CIRCLE ( x , y ) , r a d * .95, 13 'Рисуем Венеру PAINT ( x , y ) , 13, 13 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , y Ven(0) CIRCLE ( x , y ) , r a d , 11 ' Рисуем Землю PAINT ( x , y ) , 3, 11 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , y Zem(0) CLS CIRCLE ( x , y ) , r a d * . 5 3 1 , 1 2 ' Рисуем Марс PAINT ( x , y ) , 12, 12 GET ( x — r a d * 4, y — r a d * 4 ) - ( x + r a d * 4 , y Mar(0) CLS CIRCLE ( x , y ) , r a d * 1 1 . 2 , 8' Рисуем Юпитер PAINT ( x , y ) , 6, 8 + r a d * 4 ) , + r a d * 4 ) , + r a d * 4 ) , + r a d * 4 ) ,