data = Table[N[Sin[30 2 Pi n/256]],  {n, 256}];

ListPlot[ data,  PlotJoined  ->  True ]

ListPlot[ Abs[Fourier[data]],  PlotJoined  ->  True,  
      PlotRange  ->  All ]