1 REM    CARTESIO.xxx
2  CLS
3 LOCATE 3,10:PRINT  STRING$(68,177)
4  LOCATE 5,10:PRINT "METODO DI CARTESIO:"
5 LOCATE 7,10:PRINT  STRING$(68,177)
6  LOCATE 10,10:PRINT "Determinazione del segno delle radici di un'equazione di secondo grado."
7  LOCATE 11,10:PRINT "a coefficienti dipendenti da un parametro."
8  LOCATE 13,10:PRINT "La scelta dell'espressione dei coefficienti a(k),b(k),c(k)"
9 LOCATE 14,10:PRINT "Š contenuta nelle tre istruzioni 110,120 e 130."
10 LOCATE 16,10:PRINT "Occorre assegnare il valore del parametro  K .
11 A$="":A$=INKEY$:IF A$="" THEN 11
12 CLS
13 REM 
100 LOCATE 5,5:INPUT "Valore del parametro K = ",K
110 A=K
120 B=1-2*K
130 C=K-3
135 LOCATE 7,5:PRINT "L'equazione Š   ";A;"Xý + ";B;"X + ";C;" = 0 "
140 DELTA=B*B-4*A*C
150 IF A=0 THEN LOCATE 9,5:PRINT "A = 0,equaz. di primo grado...":GOTO 249
160 IF DELTA<0 THEN LOCATE 9,5:PRINT "Delta negativo ":GOTO 249
170 IF B<>0 THEN  200
180 IF C<>0 THEN  LOCATE 10,5:PRINT "Una radice > 0 e una < 0 ":GOTO  249
190 LOCATE 10,5:PRINT "Due radici = 0 ": GOTO  249
200 IF A*B<0 THEN  LOCATE 10,5:PRINT "Una variazione:una radice > 0":GOTO 220
210 LOCATE 10,5:PRINT "Una permanenza:una radice < 0"
220 IF C=0 THEN  LOCATE 11,5:PRINT "e una radice = 0 ":GOTO  249
230 IF B*C<0 THEN  LOCATE 11,5:PRINT "e una variazione:una radice > 0":GOTO 249
240 LOCATE 11,5:PRINT "e una permanenza:una radice < 0 ":GOTO 249
249 GOSUB 1000
250 CLS:GOTO 100
1000 LOCATE 23,1:PRINT "Premere un tasto, I per tornare all'indice "
1001 A$="":B$=INKEY$:IF A$=B$ THEN 1001
1002 IF B$="I" OR B$="i" THEN  CHAIN"INDICE.BAS",170
1003 RETURN

         ____________________________________________________________________

         METODO DI CARTESIO:

         ____________________________________________________________________


         Determinazione del segno delle radici di un'equazione di secondo grado.
         a coefficienti dipendenti da un parametro.

         La scelta dell'espressione dei coefficienti a(k),b(k),c(k)
         è contenuta nelle tre istruzioni 110,120 e 130.

         Occorre assegnare il valore del parametro  K .


    Valore del parametro K = 5

    L'equazione è    5 X² + -9 X +  2  = 0


    Una variazione:una radice > 0
    e una variazione:una radice > 0



ritorna