'integral alma CLS PRINT "a degerini giriniz="; INPUT a PRINT "b degerini giriniz="; INPUT b DEF fnfonk (x) = (1 / SQR(6.28)) * EXP(-.5 * x ^ 2) n = 10000 r = (b - a) / n FOR k = 1 TO n t = t + r * fnfonk(a + k * r) NEXT k PRINT t