100 REM ** HLAVNI MENU ** 110 CLS:ERASE:CLEAR100 120 A$=" , ," 130 B$="EXPONENCIALNI FUNKCE" 230 CLS 240 PRINT&3,5A$ 250 PRINT&4,5B$ 260 PRINT&12,2"T - TEORIE" 270 PRINT&15,2"G - GRAF" 280 PRINT&18,2"Z - ZKOUSENI" 290 PRINT&21,2"E - KONEC" 300 I$=INKEY$ 310 IFI$="T"THEN CALLHEX(F973):GOTO1000 320 IFI$="G"THEN CALLHEX(F973):GOTO 2000 330 IFI$="E"THEN CALLHEX(F973):GOTO 5000 335 IFI$="Z"THEN CALLHEX(F973):GOTO 3000 340 GOTO300 1000 REM ** TEORIE ** 1010 CLS:ERASE 1020 PRINT&3,27"x" 1025 PRINT&3,09", ," 1030 PRINT&4,0"Exponencialni funkce y = a je" 1035 PRINT&5,7",":PRINT&5,26"v ," 1040 PRINT&6,0"definovana pro a>0. Definicnim" 1045 PRINT&7,11"v ,":PRINT&7,24"v" 1047 PRINT&8,0"oborem promenne x jsou vsechna" 1050 PRINT&10,0"realna cisla,oborem hodnot jsou" 1055 PRINT&9,2", , v," 1057 PRINT&11,5", , , v,":PRINT&11,22"v" 1060 PRINT&12,0"kladna realna cisla. Vsechny" 1063 PRINT&13,1"v":PRINT&13,14"," 1065 PRINT&14,0"krivky obsahuji body [0;1] a" 1067 PRINT&15,12",":PRINT&15,23"v" 1070 PRINT&16,0"[1;a]. Pro zaklad a=1 krivka" 1075 PRINT&17,1"v":PRINT&17,10"v," 1080 PRINT&18,0"prejde v primku o rovnici y=1." 1085 PRINT&19,15"v":PRINT&19,28"," 1090 PRINT&20,0"Je-li a>1, je krivka rostouci," 1095 PRINT&21,14"v":PRINT&21,26", ," 1100 PRINT&22,0"pro 04THENIX=VAL(IX$):PRINT&PX,PY" ";:CALLHEX(F973):RETURN 7050 IFASC(I$)<46 OR ASC(I$)>57 OR ASC(I$)=47 THEN7020 7060 PRINT&PX,PY;I$;:CALLHEX(F973) 7070 IX$=IX$+I$:PY=PY+1:CO=CO+1:GOTO7020 9000 REM ** KRESLENI ** 9010 XO=-4:YO=A^XO 9020 DRAWXO,YO 9030 FORXO=-4TO4STEP0.05 9040 YO=A^XO:DRAWXO,YO,-1 9050 NEXTXO 9060 RETURN