Forum TI-Planet.org

Bonjour,

J’ai besoin d’aide, je n’arrive pas à voir mes erreurs sur ma TI-82 Advanced. Est-ce que quelqu’un pourrait m’aider à comprendre ce qui ne va pas ?

Code: Select all

Lbl Z
EffÉcran
Menu(" FINANCE ","FDR",1,"BFR",2,"TN",3,"CAP.ECO",4,"RE",5,"RF",6,"COMMENTAIRES",7,"Suite",Y)

Lbl Y
EffÉcran
Menu(" FINANCE II ","Precedent",Z,"Retour Menu",0)

Lbl 0
Stop

Lbl 1  // FONDS DE ROULEMENT (FDR)
EffÉcran
Disp "FONDS DE ROULEMENT"
Disp "Capitaux propres ?"
Input C
Disp "Emprunts ?"
Input E
Disp "Actif immobilisé ?"
Input A

EffÉcran
Disp "FDR = (", C, "+", E, ") -", A 
Pause  // Laisse voir l’application numérique

(C + E - A)→F  // Calcul du FDR

EffÉcran
Disp "FDR =", F 
Pause

If F > 0
   Then Disp "Solide financiere."
Else
   Disp "Situation fragile !"
End
Pause
Goto Z

Lbl 2  // BESOIN EN FONDS DE ROULEMENT (BFR)
EffÉcran
Disp "BESOIN EN FONDS DE ROULEMENT"
Disp "Stocks ?"
Input S
Disp "Créances clients ?"
Input CC
Disp "Autres créances ?"
Input AC
Disp "Dettes fournisseurs ?"
Input DF
Disp "Autres dettes ?"
Input AD

EffÉcran
Disp "BFR = (", S, "+", CC, "+", AC, ") - (", DF, "+", AD, ")" 
Pause

(S + CC + AC - DF - AD) → B 

EffÉcran
Disp "BFR =", B
Pause

If B > 0
   Then Disp "Financement nécessaire."
Else
   Disp "Bonne gestion de tresorerie."
End
Pause
Goto Z

Lbl 3  // TRESORERIE NETTE (TN)
EffÉcran
Disp "TRESORERIE NETTE"
Disp "Fonds de roulement ?"
Input F
Disp "Besoin en fonds de roulement ?"
Input B

EffÉcran
Disp "TN = ", F, " - ", B 
Pause

(F - B) → T 

EffÉcran
Disp "TN =", T
Pause

If T > 0
   Then Disp "Tresorerie excédentaire."
Else
   Disp "Besoin de financement !"
End
Pause
Goto Z

Lbl 4  // CAPITAL ÉCONOMIQUE
EffÉcran
Disp "CAPITAL ECONOMIQUE"
Disp "Capitaux propres ?"
Input CP
Disp "Dettes financières nettes ?"
Input DFN

EffÉcran
Disp "Capital Éco = ", CP, "+", DFN
Pause

(CP + DFN) → CE

EffÉcran
Disp "Capital Économique =", CE
Pause
Goto Z

Lbl 5  // RENTABILITÉ ÉCONOMIQUE (Re)
EffÉcran
Disp "RENTABILITE ECONOMIQUE"
Disp "Résultat d'exploitation ?"
Input RE
Disp "Capital économique ?"
Input CE

EffÉcran
Disp "Re = (", RE, " / ", CE, ") × 100"
Pause

((RE / CE) × 100) → Re

EffÉcran
Disp "Re =", Re, "%"
Pause

If Re > 10
   Then Disp "Entreprise rentable."
Else
   Disp "Rentabilité faible."
End
Pause
Goto Z

Lbl 6  // RENTABILITÉ FINANCIÈRE (Rf)
EffÉcran
Disp "RENTABILITE FINANCIERE"
Disp "Résultat net ?"
Input RN
Disp "Capitaux propres ?"
Input CP

EffÉcran
Disp "Rf = (", RN, " / ", CP, ") × 100"
Pause

((RN / CP) × 100) → Rf

EffÉcran
Disp "Rf =", Rf, "%"
Pause

If Rf > 12
   Then Disp "Bonne rentabilité pour actionnaires."
Else
   Disp "Rendement faible."
End
Pause
Goto Z

Lbl 7  // COMMENTAIRES
EffÉcran
Menu("COMMENTAIRES","FDR",C1,"BFR",C2,"TN",C3,"CAP.ECO",C4,"RE",C5,"RF",C6,"Retour",Z)

Lbl C1
EffÉcran
Disp "FDR: Représente","la solidité fi."
Disp "Positif -> Stable"
Disp "Négatif -> Risqué"
Pause
Goto 7

Lbl C2
EffÉcran
Disp "BFR: Financement","du cycle d'activité."
Disp "Positif -> Besoin €"
Disp "Négatif -> Bon équilibre"
Pause
Goto 7

Lbl C3
EffÉcran
Disp "TN: Liquidités dispo."
Disp "Positif -> Tréso OK"
Disp "Négatif -> Problème"
Pause
Goto 7

Lbl C4
EffÉcran
Disp "Capital Éco: Total des","ressources engagées."
Pause
Goto 7

Lbl C5
EffÉcran
Disp "Re: Indique si l'activité","est rentable."
Disp "Elevé -> Bonne rentabilité"
Disp "Faible -> Risqué"
Pause
Goto 7

Lbl C6
EffÉcran
Disp "Rf: Rentabilité pour","les actionnaires."
Pause
Goto 7

Hello,

J'ai pas testé mais je vois au moins un problème lié aux espaces: il n'en faut pas dans les expressions:
Par exemple ((RN / CP) × 100) → Rf doit être ((RN/CP)×100)→Rf

Dans presque tout sauf les chaînes de caractères.
Il y a les instructions avec espace il faut mettre les espaces mais sinon si ce n'est pas une chaîne de caractères ol faut éviter de mettre des espaces.

Donc il y a certains points à modifier, les Disp, les affectations, les calculs et les conditions.

autre chose, à l'exception des variables spéciaux, (liste, chaîne de caractères, matrices etc...) les variables doivent comporter qu'un seul caractère en majuscule.