Pendel

x0=3.141;
xLoesung=x/.NDSolve[{x''[t]==-Sin[x[t]],x[0]==x0,x'[0]==0},x,{t,0,50}][[1]]
Plot[{xLoesung[t],π,-π},{t,0,50}]