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

212 s = SQR(2) / 2 DIM m a x ( - 3 0 0 TO 3 0 0 ) DIM m i n ( - 3 0 0 TO 3 0 0 ) F O R i = — 3 0 0 T O 3 0 0 : m i n ( i ) = 300: m a x ( i ) = WINDOW (-200, — 2 0 0 ) - ( 2 0 0 , 2 0 0 ) l = g r a f 'Построение осей координат FORx=—120TO150STEP 2 c% = c% + 1 : SELECT CASE c% CASE 1 : k = .5: CASE 2 : k = 1 : CASE 3 : k = 2 : CASE 5 : k = 4 : CASE 6 : k = 5 : CASE 7 : k = 6 : CASE 9 : k = 8 : c % = 1 : END SELECT FORy=—120TO150STEP k z = S I N ( ( x 2 + y 2 ) / 2000) * 20 u = x * s — y * s v = z + y * s + x * s I F v < m i n ( u ) THEN m i n ( u ) = v : PSET ( u , v ) , I F v > m a x ( u ) THEN m a x ( u ) = v : PSET ( u , v ) , NEXT NEXT A A Языки Бейсик — 3 0 0 : NEXT i CASE 4 : k = 3 CASE 8 : k = 7 c% c% FUNCTION g r a f LINE (-200, 0 ) - ( 2 0 0 , 0 ) , 1 LINE ( 0 , — 2 0 0 ) - ( 0 , 2 0 0 ) , 2 LINE (-200, — 2 0 0 ) - ( 2 0 0 , 2 0 0 ) , 3 ' F O R x = — 2 0 0 TO 200 STEP .5 'sin((xA2+yA2)/2000)=0 'PSET ( x , SQR(x / 2 ) ) END FUNCTION 13.10. П р о г р а м м а " И г р а в о т г а д ы в а н и е с л о в " ( с а м о о б у ч а ю щ а я с я программа) 'Самообучающаяся программа Программист Волков Сергей DECLARE FUNCTION o t v % () DIM s ( 1 0 0 0 ) AS STRING SCREEN 12 VIEW PRINT 15 TO 20 q: CLS ' COLOR 1 3 , 9 LOCATE , 20 PRINT " Здравствуй! PRINT " Давай поиграем в слова ?" c: COLOR 4 I F o t v % <> 0 THEN GOTO a ' CLS : PRINT "Очень жаль.": END a: i t = 0 CLS COLOR 13 LOCATE , 20 PRINT "————————————————————————-" "