Manipulate[Plot[Exp[-k*t],{t,0,100},PlotRange->{0,1.1}],{k,0.02,0.2}]

Manipulate[Plot[1/(1+k*t),{t,0,100},PlotRange->{0,1.1}],{k,0.02,0.2}]