' Esegui e poi correggi il programma (la assegnazione y2 = 1)
' Poi confronta la precisione dei valori calcolati nei due modi
' -> Matematica e Calcolatore, sch.1, es.2
PRINT
PRINT "Per arrestare il programma premi <Ctrl+C>"
PRINT "                            ______                         1"
PRINT "Dato   x    calcolo       \| x^2+1 - x     e       ______________ "
PRINT "                                                      ______"
PRINT "                                                    \| x^2+1 + x"
PRINT

' Se vuoi i risultati in precisione doppia togli "'" dalla riga seguente
'DEFDBL X-Y

Calc:  INPUT ; x
       y1 = SQR(x ^ 2 + 1) - x: y2 = 1
       PRINT TAB(25); y1; TAB(55); y2
GOTO Calc