esercitazioni con Turbo Basic

esci turboba.htm

REM simo5 cfr.pag321
SCREEN 2
CLS
x1 = -3: x2 = 3: dx = .5
100
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 ^ 3 - x ^ 2 - 10
END DEF
a = 0
h = 1
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))
a = a + 2
NEXT x
r = 4
y$ = "x^3-x^2-10"
LOCATE 20, 2: PRINT y$
LOCATE 2, 30: PRINT "x", "y"
FOR x = x1 TO x2 STEP dx
LOCATE r, 30: PRINT x, fny(x)
IF (fny(x) = 0) THEN LOCATE r, 60: PRINT "soluzione"
r = r + 1
NEXT x
LOCATE 22, 2: PRINT "una soluzione solo approssimata"
LOCATE 23, 2: PRINT "osserva ove funzione cambia segno"
LOCATE 24, 2: PRINT "altra prova:1..fine:2 "; : INPUT s
IF s = 1 THEN GOTO 200 ELSE GOTO 300
REM inserire x1 x2 osservando ove funzione cambia segno
REM ridurre modulo dx
200 INPUT "x1="; x1
INPUT "x2="; x2
INPUT "dx="; dx
CLS
GOTO 100
300 END