ClearAll["Global`*"];
Solve[{u[t]==R*i+L*deri+uc,i==c*deruc},{deri,deruc}]

R=1;
L=0.01;
c=22.*(10^(-6));
u[t_]:=10*Tanh[10*Sin[314.t]];
ClearAll[derivace];
derivace[t_,{i_,uc_,e_}]:={((-i R+u[t]-uc)/L),(i/c),R*(i^2)};
derivace[0.01,{0.1,100,0}]

tmax=0.06;
nKroku=200;
Δt=(tmax/nKroku);
RungeKuttaKrok[{t_,y_}]:=Module[
{k1,k2,k3,k4},
k1=derivace[t,y];
k2=derivace[t+((Δt)/2),y+((Δt)/2)*k1];
k3=derivace[t+((Δt)/2),y+((Δt)/2)*k2];
k4=derivace[t+Δt,y+Δt*k3];
{t+Δt,y+((Δt)/6)*(k1+2k2+2k3+k4)}
];


start={0.,{0.,0.,0}};
sol=NestList[RungeKuttaKrok,start,nKroku];

Show[ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,u},Joined->True,AxesLabel->{"t[s]","uc[V]"}],ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,u},PlotStyle->{Red,PointSize[0.007]}]]
Show[ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,e},Joined->True,AxesLabel->{"t[s]","E[J]"}],ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,e},PlotStyle->{Red,PointSize[0.007]}]]
Show[ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,i},Joined->True,AxesLabel->{"t[s]","i[A]"}],ListPlot[sol/.{t_,{i_,u_,e_}}:>{t,i},PlotStyle->{Red,PointSize[0.007]}]]