PART 1

For[i=1; x=0,
	i<10,
	i++,
	x=i^2 ; Print[x]
    ]

PART 2

Note!  Part c asks you what the output will look like. 
Figure it out BEFORE typing the code in below and trying it!

For[ (* Replace this comment with your initial conditions. (If you have more than one, separate them by semicolons, not commas!) *),
	(* Put your "termination condition" here *),
	(* Put your "increment statement" here *),
         (* This is the heart of your code what HAPPENS on each step? *)
	]

PART 3

xx=tt=vv=Table[0,{i,1,201}];
dt=.1;
ifinal=200;
For[i=1,
	i<ifinal,
	i++,
	vv[[i]] = 5; xx[[i+1]] = xx[[i]]+vv[[i]]*dt;   tt[[i+1]]=tt[[i]]+dt]

ListLinePlot[Table[{tt[[i]],xx[[i]]},{i,1,200}]]