esercitazioni con Turbo Basic

esci turboba.htm

esercizi su derivate

 

REM deriva3
SCREEN 2
CLS
x1 = -3: x2 = 3: dx = .5
LINE (1, 100)-(300, 100)
LINE (60, 1)-(60, 150)
FOR k = 1 TO 200 STEP 20
LINE (k, 100)-(k, 102)
NEXT k
DEF fny (x)
fny = -x ^ 2 + 1
END DEF
DEF fndy (x)
fndy = -2 * x
END DEF
a = 0
h = 10
REM fattore scala ordinate
FOR x = -3 TO 3 STEP .1
REM fattore scala h=1 per ordinate
LINE (a, 100 - h * fny(x))-(a, 100 - h * fny(x))
LINE (a, 100 - h * fndy(x))-(a, 100 - h * fndy(x))
a = a + 2
NEXT x
r = 4
y$ = "-x^2+1"
LOCATE 20, 2: PRINT y$
LOCATE 2, 30: PRINT "x", "y", "derivata"
FOR x = x1 TO x2 STEP dx
LOCATE r, 30: PRINT x, fny(x), fndy(x)
IF (fndy(x) = 0) THEN LOCATE r, 60: PRINT "massimo funzione"
r = r + 1
NEXT x
LOCATE 22, 2: PRINT "grafico funzione e sua derivata prima"
LOCATE 23, 2: PRINT "osserva ove funzione cambia segno o annulla"
END