esercitazioni con Turbo Basic

esci turboba.htm

studio di funzioni. ricerca di massimi e minimi

REM max1
REM ricerca massimi e minimi funzione
REM grafico funzione e derivata prima
REM tabella valori x funzione derivata1
CLS
DEF fny (x)
fny = x ^ 2
END DEF
DEF fnd1 (x)
fnd1 = 2 * x
END DEF
DEF fny2 (x)
fny2 = 2
END DEF
SCREEN 2
a = 0
b = 120
h = 100
LINE (a, h)-(200, h)
LINE (b, 1)-(b, 200)
FOR k = a TO 200 STEP 20
LINE (k, h - 2)-(k, h + 2)
NEXT k
FOR x = -6 TO 6 STEP .1
LINE (a, h - fny(x))-(a, h - fny(x))
LINE (a, h - fnd1(x))-(a, h - fnd1(x))
a = a + 2
NEXT x
r = 4
LOCATE 2, 30: PRINT "x", "x^2", "d1"
FOR x = -6 TO 6 STEP 1
LOCATE r, 30: PRINT x, fny(x), fnd1(x)
r = r + 1
NEXT x
LOCATE r, 2: PRINT "minimo assoluto per x=0 "
END