Программа зацикливается (подсчет интеграла), QBasic Опции

[klem4]

Олег :
FreeBasic на этом зацикливается, а QBasc нет, интересно почему, как попробуешь напиши тут.

Код

rem v4lab34

dim y, x, h, a, b, maxX, minX as single
dim n as integer

cls

input "a=";a
input "b=";b
input "n=";n

h = (b-a)/(n-1)

x=a
print "    x      y    "
do
    y=5*(cos(x))^2 + 2 * x - 1
    rem print "    ";x;"    ";y;
    print x
    x=x+h
    
loop until x>b+h/2

input e

end

М

не забываем, что тег для подсветки Паскаля не подсветит Бейсик Altair