esercitazioni con Turbo Basic

esci turboba.htm

esercizi su derivate

REM deriva6
REM ricerca massimo e minino assoluto
100 CLS
INPUT "dx=prova 1...0.5.."; dx
CLS
SCREEN 2
LOCATE 2, 20: PRINT "funzione=3x^5-25x^3+60x-1"
x1 = -2: x2 = 3: a = 0
DEF fny1 (x) = 3 * x ^ 5 - 25 * x ^ 3 + 60 * x - 1
LINE (0, 100)-(300, 100)
FOR k = 0 TO 300 STEP 20
LINE (k, 98)-(k, 102)
NEXT k
a1 = 40
LINE (a1, 50)-(a1, 300)
FOR x = x1 TO x2 STEP .1
LINE (a, 100 - fny1(x))-(a, 100 - fny1(x))
a = a + 2
NEXT x
LOCATE 3, 30: PRINT "x", "fny(x)"
r = 6
FOR x = x1 TO x2 STEP dx
LOCATE r, 30: PRINT x, fny1(x)
r = r + 1
NEXT x
LOCATE 20, 2: PRINT "minimi relativi per x=-1,2"
LOCATE 21, 2: PRINT "minimo assoluto per x=-1"
LOCATE 22, 2: PRINT "massimo assoluto per x=3"
LOCATE 23, 2:
INPUT "altra prova:1..fine:2 "; s
IF s = 1 THEN 100 ELSE 200
200 CLS
END