encore mieux que la calculatrice chauffante
(cf :
- Code: Select all
Lbl 0
Goto 0
)

ClrGraph
AxesOff
0»A~Z
ViewWindow 1,127,0,1,63,0
1»B
For 63»A To 30 Step - 1
Horizontal B
Horizontal A
B+1»B
Next
PxlOn 1,1
0»N
Lbl 0
If 1.07^N2:Then N+1»N:Goto 0
IfEnd
N
ClrText
"Quel taux d'intérêt"?
?»T
0»N
1000»K
While K2000:K(1+T/100)»K:N+1»N:WhileEnd
N
Mic wrote:Pas sur qu'elle soit meilleure, déjà le code du prof est plus court mais bon ça c'est pas le plus important. Ce qu'il faut voir, c'est le coup en opérations.
Users browsing this forum: ClaudeBot [spider] and 21 guests