Integrate[(c*b*h/a*1000)*9.8*(d+a-h), {h,0,a}]