کد برنامه ی انتگرال گیری با روش ذوزنقه ای

سلام دوستان
کد برنامه ی انتگرال گیری با روش ذوزنقه ای رو میخواستم به زبان بیسیک
سپاسگذارم اگه می تونید در اختیارم بزارین
بدرود

خودم نوشتم اگه درست باشه(کد بیسیک)
[HTML]

Cls
DEF FNF(X) = X ^ 2 - 2
INPUT " Enter a : ", a
INPUT " Enter b : ", b
INPUT " Enter n : ", n
h = (b - a) / n
sum = ( FNF(a)+ FNF(b))
FOR i = 1 TO n-1
sum = sum + 2 * FNF(a + i * h)
NEXT i
s = h / 2 * sum

print "integral="; s
end


[/HTML]