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

208 PUT (xMer, y M e r ) , Mer, XOR PUT (xVen, y V e n ) , Ven, XOR PUT ( x T e r , y T e r ) , T e r , XOR p = p + .005 I F p = 6.2 8 T H E N p = 0 LOOP UNTIL I N K E Y $ = " " 'данные для рисунка Земли DATA 0,0,0,0,1,1,1,1,1,0,0,0 DATA 0,0,0,1,1,1,1,1,1,1,0,0 DATA 0,0,0,9,9,0,0,0,0,9,9,9 DATA 0,0,0,9,9,9,9,9,9,9,9,0 DATA 0,0,0,9,9,9,9,9,9,9,9,0 DATA 0,0,0,9,0,9,9,9,9,9,0,0 DATA 0,9,9,0,0,0,9,9,9,9,0,0 DATA 0,9,9,9,9,9,9,0,0,9,9,0 DATA 0,0,9,9,9,9,0,0,0,0,9,0 DATA 0,0,9,9,9,0,0,0,9,0,0,0 DATA 0,0,9,9,9,0,0,0,9,9,9,0 DATA 0,0,0,9,0,0,0,0,0,9,9,0 DATA 0,0,1,1,1,1,1,1,1,1,1,0 DATA 0,0,0,1,1,1,1,1,1,1,0,0 SUB o s i ( x , y ) LINE ( x , y ) - ( - x , END SUB Языки Бейсик — y), , B SUB Zem 'рисуем Землю CIRCLE ( 1 7 , 1 5 ) , 9, 11 PAINT ( 1 8 , 1 5 ) , 9, 11 FORy=9TO22: FORx = 1 1 T O 2 2 : I F k = 9 T H E N PSET ( x , y ) , 10 I F k = 1 T H E N PSET ( x , y ) , 15 NEXT x, y END SUB READ k 13.7. П р о г р а м м а п о с т р о е н и я м о д е л и с о л н е ч н о й с и с т е м ы 'Программа построения модели солнечной системы. С.Н. Гольцов DECLARE SUB P l a n e t y () 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 — для планет земной группы : '5 — c Юпитером '25 — вся солнечная система C L S : k f = 5 : x = 3 2 0 * k f : y = 2 4 0 * k f : rad=10 SCREEN 12: WINDOW ( 0 , 0 ) - ( 6 4 0 * k f , 480 * k f ) GOSUB P l a n e t y d = 0