ti=0.;tf=2.0;delta=0.1;
x[ti]=0;Vx[ti]=10;y[ti]=0;Vy[ti]=0;g=-9.8;
Do[Vx[t+delta]=Vx[t];x[t+delta]=x[t]+Vx[t+delta] delta;
  Vy[t+delta]=Vy[t]+g delta;y[t+delta]=y[t]+Vy[t+delta] delta,{t,ti,tf,delta}]

data=Table[{x[t],y[t]},{t,ti,tf,delta}];
ListPlot[data,AxesLabel[Rule]{"x","y"}];

Do[Show[Graphics[{PointSize[0.05],Point[{x[t],y[t]}]}],AspectRatio[Rule]1,
    Axes[Rule]Automatic,PlotRange[Rule]{{0,20},{-25,0}}],{t,ti,tf,delta}];

ti=0.;tf=3.0;delta=0.1;
x[ti]=0.;Vx[ti]=10;y[ti]=0.;Vy[ti]=15.;g=-9.8;
Do[Vx[t+delta]=Vx[t];x[t+delta]=x[t]+Vx[t+delta] delta;
  Vy[t+delta]=Vy[t]+g delta;y[t+delta]=y[t]+Vy[t+delta] delta,{t,ti,tf,delta}]

data=Table[{x[t],y[t]},{t,ti,tf,delta}];
ListPlot[data,AxesLabel[Rule]{"x","y"}]

Do[Show[Graphics[{PointSize[0.05],Point[{x[t],y[t]}]}],AspectRatio[Rule]1,
    Axes[Rule]Automatic,PlotRange[Rule]{{0,30},{0,12}}],{t,ti,tf,delta}]