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