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 |