(* 4.1, #24, 32, 54 *)
(* #24 *)
Plot[5^x+1,{x,-3,1},PlotRange->{0,5}]
(* Plot I *)

(* 32 *)
Plot[-(1/5)^x,{x,-3,3},PlotRange->{-5,0}]
(* Domain: R; Range: R^+; Asymptote: y=0 *)

(* 54 *)
P[t_]:=4000(1+.0575/4)^(4t)
Plot[P[x],{x,0,8},PlotRange->{0,7000}]
P[4]
P[6]
P[8]
(* Domain: R; Range: R^+; Asymptote: y=0 *)

(* 4.2, #7, 9 *)
(* #7 *)
Plot[-Exp[x],{x,-3,2},PlotRange->{-8,0}]
(* Domain: R; Range: R^-; Asymptote: y=0 *)

(* #9 *)
Plot[{Exp[-x]-1,-1},{x,-2,2},PlotRange->{-1,8}]
(* Domain: R; Range: (-1,infinity); Asymptote: y=-1 *)