by jpbauer » 01 Oct 2014, 19:17
Voici l'extrait du code en question. Le problème se situe à la fin, si je remplace
- Code: Select all
Disp "a=",a
par
- Code: Select all
Disp "a="&string(a)
Les valeurs affichées sur les lignes suivante des chaines de caractères entre "" sont bonne et semblent être numérique...
- Code: Select all
Input "Nb de séries",nb
0→sxi
0→syi
0→sxiyi
0→sxicar
For i,1,nb
sxi+i→sxi
Input "CA Y",val
syi+val→syi
sxiyi+i*val→sxiyi
sxicar+i*i→sxicar
EndFor
Disp "sxi=",sxi
Disp "syi=",syi
Pause
Disp "sxiyi=",sxiyi
Disp "sxicar=",sxicar
Pause
sxi/nb→x
syi/nb→y
Disp "x=",x
Disp "y=",y
Pause
Disp "(sxiyi-(nb*x*y))=",(sxiyi-(nb*x*y))
Disp "(sxicar-(nb*x*x))=",(sxicar-(nb*x*x))
Pause
(sxiyi-(nb*x*y))/(sxicar-(nb*x*x))→a
y-a*x→b
Disp "Résultat:"
Disp "a=",a
Pause
Disp "b=",b
Pause
Disp "y=",a,"x + ",b
Pause
Disp "y=",(a*(nb+1)+b)
Last edited by jpbauer on 01 Oct 2014, 21:43, edited 1 time in total.