Conversion programme casio en ti nspire cx cas

→ **MyCalcs** profile · by **jules moreau** » 10 Feb 2017, 14:05

Bonjour, à tous , j'ai recupéré un programmer de comptabilité pour faire les fusions ?, existe t'il un moyen pour pouvoir utiliser convertir ce programme sur ma ti nspire? ou faut t'il forcement modifier le programme ce que je ne sais pas faire
Merdi d'avance pour votre réponse

→ **MyCalcs** profile · by **jules moreau** » 10 Feb 2017, 14:06

Voici le programme en question ,

Filename:FUSION

Show/Hide spoilerAfficher/Masquer le spoiler

Code: Select all: "Procedure de fusion"Ù Menu "Participation","Sans parti",1,"AãB",2,"BãA",3,"Partic croise",4Ù Ù Ù Lbl 1Ù "Sans participation"Ù "Absorbante:A":Ù "Nb act"?ãAÙ "VN"?ãBÙ "VR"?ãCÙ "VF"?ãDÙ "---"Ù "Absorbante:B"Ù "Nb act"?ãEÙ "VN"?ãFÙ "VC"?ãGÙ "VR"?ãHÙ "VF"?ãIÙ "----------"Ù "Etape 1:"Ù "Parite avec VF"Ù "Tbl des parite:"Ù "ãpour A:"Ù "x1 a x10"Ù DØ DÀ2Ø DÀ3Ø DÀ4Ø DÀ5Ø DÀ6Ø DÀ7Ø DÀ8Ø DÀ9Ø DÀ10Ø "ãpour B:"Ù "x1 a x10"Ù IØ IÀ2Ø IÀ3Ø IÀ4Ø IÀ5Ø IÀ6Ø IÀ7Ø IÀ8Ø IÀ9Ø IÀ10Ø Ù Lbl AÙ "Calcul auto"Ù "x actA pour x actB"Ù IÁDØ "Vous retenez:"Ù "Act A:"?ãJÙ JÀDãKØ "Act B:"?ãLÙ LÀIãMØ Ù If K=MÙ Then Ù "Parite juste"Ù 0ãNØ IfEndÙ Ù If K>MÙ Then Ù "Soulte imposs dans ce sens"Ù Goto AÙ IfEndÙ Ù If K<MÙ Then Ù "Soulte pour A de:"Ù (M)-(K)ãNØ IfEndÙ Ù "-----------"Ù "Etape2: Augm K"Ù "Nb actA a creer:"Ù "Nb actB À parite"Ù EÀ(JÁL)ãOØ "soit augm K de:"Ù BÀOØ "soit soulte de:"Ù "soulte unit À (nb actBÁParitB)"Ù NÀ(EÁL)ãPØ "----------"Ù "Etape 3: Prime"Ù "EN VC:"Ù "Apport de B (456)"Ù GÀEØ "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù (GÀE)-(BÀO)-PØ "--"Ù "EN VR"Ù "Apport de B (456)"Ù HÀEØ "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù (HÀE)-(BÀO)-PØ Goto 8Ù Ù Ù Ù Lbl 2Ù "AãB"Ù "Absorbante:A":Ù "Nb act"?ãAÙ "VN"?ãBÙ "VR"?ãCÙ "VF"?ãDÙ "---"Ù "Absorbante:B"Ù "Nb act"?ãEÙ "VN"?ãFÙ "VC"?ãGÙ "VR"?ãHÙ "VF"?ãIÙ "---"Ù "Nb act AãB"?ãZÙ "soit % deten"Ù (ZÁE)À100Ø "VNC actB ds bilan A"?ãYÙ Ù "----------"Ù "Etape 1:"Ù "Parite avec VF"Ù "Tbl des parite:"Ù "ãpour A:"Ù "x1 a x10"Ù DØ DÀ2Ø DÀ3Ø DÀ4Ø DÀ5Ø DÀ6Ø DÀ7Ø DÀ8Ø DÀ9Ø DÀ10Ø "ãpour B:"Ù "x1 a x10"Ù IØ IÀ2Ø IÀ3Ø IÀ4Ø IÀ5Ø IÀ6Ø IÀ7Ø IÀ8Ø IÀ9Ø IÀ10Ø Ù Lbl BÙ "Calcul auto"Ù "x actA pour x actB"Ù IÁDØ "Vous retenez:"Ù "Act A:"?ãJÙ JÀDãKØ "Act B:"?ãLÙ LÀIãMØ Ù If K=MÙ Then Ù "Parite juste"Ù 0ãNØ IfEndÙ Ù If K>MÙ Then Ù "Soulte imposs dans ce sens"Ù Goto BÙ IfEndÙ Ù If K<MÙ Then Ù "Soulte pour A de:"Ù (M)-(K)ãNØ IfEndÙ "---"Ù "Etape2: Augm K"Ù "Nb actA a creer:"Ù "Nb B non detenu À parite"Ù (E-Z)À(JÁL)ãOØ "soit augm K de:"Ù BÀOØ "soit soulte de:"Ù "slte unit À (nb actB non detenuÁParitB)"Ù NÀ((E-Z)ÁL)ãPØ "----------"Ù "Etape 3: Prime et renonciation"Ù "EN VC:"Ù "Apport de B x %no dentent(456)"Ù (GÀE)À(1-(ZÁE))Ø "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù ((GÀE)À(1-(ZÁE)))-(BÀO)-PØ "Renonciation:"Ù "Apport B deja detenu"Ù (GÀE)À(ZÁE)Ø "VNC actB ds bilan A"Ù YØ "soit renonciation"Ù ((GÀE)À(ZÁE))-YãXØ If XÊ0Ù Then "Boni"Ù Else "Mali"Ù "Max mali techn"Ù ((EÀH)-(EÀG)À(ZÁE))Ø IfEndÙ "--"Ù "EN VR"Ù "Apport de B x %no dentent(456)"Ù (HÀE)À(1-(ZÁE))Ø "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù ((HÀE)À(1-(ZÁE)))-(BÀO)-PØ "Renonciation:"Ù "Apport B deja detenu"Ù (HÀE)À(ZÁE)Ø "VNC actB ds bilan A"Ù YØ "soit renonciation"Ù ((HÀE)À(ZÁE))-YãXØ If XÊ0Ù Then "Boni"Ù Else "Mali"Ù "Max mali techn"Ù ((EÀH)-(EÀG)À(ZÁE))Ø IfEndÙ Goto 8Ù Ù Ù Lbl 3Ù "BãA"Ù "Absorbante:A":Ù "Nb act"?ãAÙ "VN"?ãBÙ "VR"?ãCÙ "VF"?ãDÙ "---"Ù "Absorbante:B"Ù "Nb act"?ãEÙ "VN"?ãFÙ "VC"?ãGÙ "VR"?ãHÙ "VF"?ãIÙ "---"Ù "Nb act BãA"?ãZÙ "soit % deten"Ù (ZÁA)À100Ø "VNC actA ds bilan B"?ãYÙ "----------"Ù "Etape 1:"Ù "Parite avec VF"Ù "Tbl des parite:"Ù "ãpour A:"Ù "x1 a x10"Ù DØ DÀ2Ø DÀ3Ø DÀ4Ø DÀ5Ø DÀ6Ø DÀ7Ø DÀ8Ø DÀ9Ø DÀ10Ø "ãpour B:"Ù "x1 a x10"Ù IØ IÀ2Ø IÀ3Ø IÀ4Ø IÀ5Ø IÀ6Ø IÀ7Ø IÀ8Ø IÀ9Ø IÀ10Ø Ù Lbl CÙ "Calcul auto"Ù "x actA pour x actB"Ù IÁDØ "Vous retenez:"Ù "Act A:"?ãJÙ JÀDãKØ "Act B:"?ãLÙ LÀIãMØ Ù If K=MÙ Then Ù "Parite juste"Ù 0ãNØ IfEndÙ Ù If K>MÙ Then Ù "Soulte imposs dans ce sens"Ù Goto CÙ IfEndÙ Ù If K<MÙ Then Ù "Soulte pour A de:"Ù (M)-(K)ãNØ IfEndÙ "----------"Ù "Etape2: Augm K"Ù "Nb actA a creer:"Ù "Nb actB À parite"Ù EÀ(JÁL)ãOØ "soit augm K de:"Ù BÀOØ "soit soulte de:"Ù "soulte unit À (nb actBÁParitB)"Ù NÀ(EÁL)ãPØ "----------"Ù "Etape 3: Prime et reduc K"Ù "EN VC:"Ù "Apport de B (456)"Ù GÀEØ "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù (GÀE)-(BÀO)-PØ "Reduction de K:"Ù "VNC actA ds bilan B"Ù YØ "VN actA ds bilan B"Ù ZÀBØ "Reduc K de"Ù Y-(ZÀB)Ø "--"Ù "EN VR"Ù "Apport de B (456)"Ù HÀEØ "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù (HÀE)-(BÀO)-PØ "Reduction de K:"Ù "VR actA ds bilan B"Ù CÀZØ "VN actA ds bilan B"Ù ZÀBØ "Reduc K de"Ù (CÀZ)-(ZÀB)Ø Goto 8Ù Ù Ù Ù Ù Lbl 4Ù "Participation croisee"Ù "----------"Ù "Pre-etape: les VR"Ù "Nb actA"?ãAÙ "Nb actB chez A"?ãRÙ "ANCC A hors actB"?ãSÙ "Nb actB"?ãEÙ "Nb actA chez B"?ãTÙ "ANCC B hors actA"?ãUÙ "Equation:"Ù "100%A=ANCC A + actB"Ù "100%B=ANCC B + actA"Ù "soitVR de B:"Ù Solve(((U+TÀ((SÁA)+(250XÁA)))ÁE)-X,X)ãHØ "soitVR de A:"Ù Solve(((S+(RÀH))ÁA)-X,X)ãCØ Ù "Absorbante:A":Ù "Nb act"Ù AØ "VN"?ãBÙ "VR"Ù CØ "VF"?ãDÙ "---"Ù "Absorbante:B"Ù "Nb act"Ù EØ "VN"?ãFÙ "VC"?ãGÙ "VR"Ù HØ "VF"?ãIÙ "---"Ù "% AãB"Ù (RÁE)À100Ø "% BãA"Ù (TÁA)À100Ø "VNC actA ds bilan B"?ãYÙ "VNC actB ds bilan A"?ãWÙ "----------"Ù "Etape 1:"Ù "Parite avec VF"Ù "Tbl des parite:"Ù "ãpour A:"Ù "x1 a x10"Ù DØ DÀ2Ø DÀ3Ø DÀ4Ø DÀ5Ø DÀ6Ø DÀ7Ø DÀ8Ø DÀ9Ø DÀ10Ø "ãpour B:"Ù "x1 a x10"Ù IØ IÀ2Ø IÀ3Ø IÀ4Ø IÀ5Ø IÀ6Ø IÀ7Ø IÀ8Ø IÀ9Ø IÀ10Ø Ù Lbl DÙ "Calcul auto"Ù "x actA pour x actB"Ù IÁDØ "Vous retenez:"Ù "Act A:"?ãJÙ JÀDãKØ "Act B:"?ãLÙ LÀIãMØ Ù If K=MÙ Then Ù "Parite juste"Ù 0ãNØ IfEndÙ Ù If K>MÙ Then Ù "Soulte imposs dans ce sens"Ù Goto DÙ IfEndÙ Ù If K<MÙ Then Ù "Soulte pour A de:"Ù (M)-(K)ãNØ IfEndÙ "----------"Ù "Etape2: Augm K"Ù "Nb actA a creer:"Ù "Nb B non detenu À parite"Ù Int ((E-R)À(JÁL))ãOØ "soit augm K de:"Ù BÀOØ "soit soulte de:"Ù "slte unit À (nb actB non detenuÁParitB)"Ù "+arrondi sur creat actA"Ù NÀ((E-R)ÁL)+((E-R)ÀI)-OÀDãPØ "----------"Ù "Etape 3: Prime renonc. red K"Ù "EN VC:"Ù "Apport de B x %no dentent(456)"Ù (GÀE)À(1-(RÁE))Ø "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù ((GÀE)À(1-(RÁE)))-(BÀO)-PØ "Renonciation:"Ù "Apport B deja detenu"Ù (GÀE)À(RÁE)Ø "VNC actB ds bilan A"Ù WØ "soit renonciation"Ù ((GÀE)À(RÁE))-WãXØ If XÊ0Ù Then "Boni"Ù Else "Mali"Ù "Max mali techn"Ù ((EÀH)-(EÀG)À(RÁE))Ø IfEndÙ "Reduction de K:"Ù "VNC actA ds bilan B"Ù YØ "VN actA ds bilan B"Ù TÀBØ "Reduc K de"Ù Y-(TÀB)Ø Ù "--"Ù "EN VR"Ù "Apport de B x %no dentent(456)"Ù (HÀE)À(1-(RÁE))Ø "Augm K (101)"Ù BÀOØ "Soulte (512)"Ù PØ "soit prime (104)"Ù ((HÀE)À(1-(RÁE)))-(BÀO)-PØ "Renonciation:"Ù "Apport B deja detenu"Ù (HÀE)À(RÁE)Ø "VNC actB ds bilan A"Ù WØ "soit renonciation"Ù ((HÀE)À(RÁE))-WãXØ If XÊ0Ù Then "Boni"Ù Else "Mali"Ù "Max mali techn"Ù ((EÀH)-(EÀG)À(RÁE))Ø IfEndÙ "Reduction de K:"Ù "VR actA ds bilan B"Ù TÀCØ "VN actA ds bilan B"Ù TÀBØ "Reduc K de"Ù (TÀC)-(TÀB)Ø Goto 8Ù Ù Ù Ù Ù Ù Lbl 8Ù "FIN"Ù Ù Ù Ù Ù Ù Ù Ù

→ **MyCalcs** profile · by **Wistaro** » 10 Feb 2017, 14:35

Bonjour.

J'ai modifié légèrement la mise en page de ton précédant message pour le rendre plus lisible.

Le problème, c'est que tu as des caractères qui s'affichent mal (encodage raté) et du coup ton code est pas trop lisible.

Que fait exactement ce programme ? As-tu regardé qu'il n'existe aucun programme faisant la même chose sur Nspire ? (en haut à gauche, onglet recherche, si tu es sur l'interface ordinateur)

→ **MyCalcs** profile · by **jules moreau** » 10 Feb 2017, 15:19

Oui exact j'ai fais un copier coller du programme et il s'affiche mal , le programme calcul les fusions de société donc les augmentations de capital a faire , la prime d'emission , la soulte eventuele , j'ai beaucoup cherché un programme de ce genre ,notamment sur le site mais rien de comparable beaucoup de cours surtout pas de programme , merci encore

→ **MyCalcs** profile · by **jules moreau** » 10 Feb 2017, 15:24

Voici le programme je n'ai pu le mettre en piece jointe donc je l'ai mis en partage
https://mon-partage.fr/f/C4hOUqqL/

→ **MyCalcs** profile · by **Hamza.S** » 10 Feb 2017, 19:38

jamais entendu parlé de "fusions de société".

la "conversion" est un peu complexe, côté TI Basic Nspire, il n'y a pas de fonction qui permet de faire un menu, pas de Pause et les commandes ne se ressemblent pas.

pour t'aider un peu sur la "conversion" :
pour afficher :