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

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