15 COLOR 1,15,8:CLS:PRINT"Для вывода полученного графика на принтер на жмите клавишу ESC":PRINT
20 PRINT "1. Построение графика функции в декартовых координатах":PRINT "2. Построение кривых в полярных координатах":INPUT"Режим (1,2)";SW:ON SW GOTO 110,390
50 '   
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
70 '   
O Построение графика функции в декартовых координатах
O
90 '   
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
110 SX=255:SY=191:HY=SY/2 'Форматирование экрана дисплея!
120 CLS:DEFFNA(X)=EXP(-ABS(X))*SIN(1/X)
130 PRINT"Область изменения X:"
140 INPUT"min-значение:";A:INPUT"max-значение:";B:PRINT
160 IF A>=B THEN PRINT"Ошибка!":GOTO130
170 INPUT"Количество точек на единицу площади экрана";W
180 C=(B-A)/100:M=1E-30:SCREEN2 'C-шаг 
200 FORX=ATOBSTEPC:IFX=0THENNEXT'Учет области определения!
220 Y=ABS(FNA(X)):IF M<Y THEN M=Y:NEXT ELSE NEXT
240 C=C/W:FORX=A TO B STEPC:IF X=0 THEN NEXT ELSEY=-FNA(X)
260 U=SX*(X-A)/(B-A):V=HY+HY*Y/M:IF V<0 OR V>SY THEN NEXT
290 PSET(U,V),1:NEXT:GOTO 800
320 '        
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
340 '        
O Кривые в полярных координатах 
O
370 '        
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
390 SX=255:SY=191:RAT=.86:HY=SY/2:HX=SX/2
410 CLS:DEFFNA(Z)=COS(8*Z)
420 PRINT"X=COS(A
GZ)COS(8
GZ)":PRINT"Y=SIN(B
GZ)COS(8
GZ)":PRINT
440 INPUT"A=";A:INPUT"B=";B
450 M=1E-30:FOR Z=0 TO 8*ATN(1):R=ABS(FNA(Z))
470 IF M<R THEN M=R+.1:NEXT ELSE NEXT
480 SCREEN2:FOR Z=0 TO 24*ATN(1) STEP.01
500 R=-FNA(Z):U=HX+HY*RAT*COS(A*Z)*R/M:IFU<0ORU>SXTHENNEXT
530 V=HY+HY*SIN(B*Z)*R/M:IF V<0 OR V>SY THEN NEXT
550 PSET(U,V),1:NEXT
800 PIT$=INKEY$:IF PIT$<>CHR$(27) THEN 800
830 GOSUB 850'
W
W▐
840 A=USR(0):END '
W
W
W
W
W
W
W▐
850 DT=&HEF00:DEFUSR=DT:RESTORE 890
860 FOR I=0 TO &HAB:READ DT$:POKE DT+I,VAL("&H"+DT$)
880 NEXT:RETURN '
W
W▐
890 DATA 21,00,20,22,AC,EF,21,91,EF,CD,87
900 DATA EF,21,9B,EF,CD,87,EF,0E,08,2A,AC
910 DATA EF,CD,4A,00,57,E6,0F,5F,CB,3A,CB,3A
920 DATA CB,3A,CB,3A,00,3E,0F,BA,20,0D,BB
930 DATA 20,03,AF,18,11,CD,7F,EF,EE,FF,18
940 DATA 0A,BB,28,04,3E,FF,18,03,CD,7F,EF,23
950 DATA 22,AC,EF,06,08,21,AE,EF,CB,27,CB
960 DATA 1E,23,10,F9,0D,20,BE,06,08,21,AE
970 DATA EF,7E,CD,A5,00,23,10,F9,2A,AC,EF,AF
980 DATA BD,20,A9,3E,0D,CD,A5,00,3E,0A,CD
990 DATA A5,00,3E,38,BC,20,94,21,A2,EF,CD
1000 DATA 87,EF,C9,CB,AC,CD,4A,00,CB,EC,C9,7E
1010 DATA FE,FF,C8,CD,A5,00,23,18,F6,1B,54,31
1020 DATA 36,1B,45,1B,3E,0E,FF,1B,53,30,32,35
1030 DATA 36,FF,1B,4E,0F,1B,41,1B,3C,0D,0A,FF