f[x_]  :=  Sin[((π x)/5)]

B  =  Table[f[k],  {k,  1,  10}];

g1  =  
      ListPlot[B, 
PlotJoined -> 
          True, 
AxesOrigin -> {0, 0},   (* 
          origine degli assi *) 
PlotRange -> {-1, 1}
]

F  =  Table[Cos[((π k)/5)],  {k,  1,  10}];

g2  =  
      ListPlot[F,  PlotJoined -> True,  AxesOrigin -> {0, 0},  
        PlotRange -> {-1, 1}]

Show[g1, g2]