Программа зацикливается (подсчет интеграла), 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

[Altair]

Код

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

h! = (b!-a!)/(n!-1)
x!=a!
print "    x!     y!    "
while x!<b!+h!/2
   y!=5*(cos(x!))^2 + 2 * x! - 1
   'print "    ";x;"    ";y;
   print x!
   x!=x!+h!

   
wend



end

работает

причина в том что на стадии вычисления h бейсик длумал что h это целое... и окрглял до нуля все время.... ТИПИЗИРОВАТЬ надо переменные!