Aller au contenu

Soulalex
 Share

Recommended Posts

En cours, vous utilisez de nombreux algorithmes que vous pouvez insérer dans une calculatrice équipée d'une fonction "Programmes". Tous les algorithmes partagés par la communauté de Melinyel seront regroupés ici pour vous faciliter la recherche.

 

 

NOTE : Aide à la recherche

  • Les algorithmes sont classés par matière et sont ensuite classés par niveau croissant.
  • Le titre de l'algorithme indique son niveau, sa fonction et son créateur.
  • Dans un spoiler, vous trouverez plusieurs langages pour un même algorithme.

 

IMPORTANT : Pour partager votre algorithme avec nous, vous devez faire figurer le nom de votre calculatrice ainsi que le niveau et le chapitre associé au programme.

 

 


 

Mathématiques

  • [Terminale Spé. Maths - Divisibilité] Division Euclidienne  :

    Programmé en TI-Basic par Vegnar42
    // Initialisation des variables d'entrées
    
    0 -> A
    
    0 -> B
    
     
    
    // Entrée des variables d'entrées
    
    Disp "Entrez le dividende"
    
    Input A
    
    Disp "Entrez le diviseur"
    
    Input B
    
     
    
    // Phase de calcul
    
    ent(A/B) -> C
    
    A - (C*B ) -> D
    
     
    
    // Affichage des résultats
    
    Disp "Quotient", C
    
    Disp "Reste", D
    
    

  • [Première - Second degré | Terminale - Nombres Complexes] Delta dans une fonction du 2nd degré  :

    Programmé en TI-Basic par Vegnar42
    // Initialisation des variables d'entrées
    
    0 -> A
    
    0 -> B
    
    0 -> C
    
     
    
    // Entrée des variables d'entrées
    
    Disp "Entrez A"
    
    Input A
    
    Disp "Entrez B"
    
    Input B
    
    Disp "Entrez C"
    
    Input C
    
     
    
    // Phase de calcul
    
    B² - 4*A*C -> D
    
     
    
    // Détermination de x1 et x2 si le delta est positif
    
    If (D > 0)
    
    Then
    
    (-B - sqrt(D)) / (2*A) -> U
    
    (-B + sqrt(D))) / (2*A) -> V
    
     
    
    // Détermination de x1 et x2 si le delta est négatif
    
    Else
    
    (D*(-1))*i² -> D
    
    (-B - sqrt(D)) / (2*A) -> U
    
    (-B + sqrt(D))) / (2*A) -> V
    
    End
    
     
    
    // Affichage des résultats
    
    Disp "Delta vaut", D
    
    Disp "x1 vaut", U
    
    Disp "x2 vaut", V
    
    

 

 

 

 

Ce sujet sera complété au fur et à mesure que des membres posteront des algorithmes concernant les cours. Je compte sur vous pour partager vos connaissances :)

Lien vers le commentaire
Partager sur d’autres sites

Voici les algorithmes que j'ai créé pour me faciliter la tâche pendant les épreuves de maths/sciences ingénieur.

Tout ces algorithmes sont pour le modèle TI-82 de Texas Instruments. (Pour les non-initiés, les lignes commençant par "//" sont des commentaires, ne les mettez pas dans le programme)

 

Division Euclidienne (Niveau Terminale Spé. Maths (pas vraiment besoin d'être en terminale, mais ça aide dans ce chapitre) - Chapitre Divisibilité) :

// Initialisation des variables d'entrées

0 -> A

0 -> B

 

// Entrée des variables d'entrées

Disp "Entrez le dividende"

Input A

Disp "Entrez le diviseur"

Input B

 

// Phase de calcul

ent(A/B) -> C

A - (C*B ) -> D

 

// Affichage des résultats

Disp "Quotient", C

Disp "Reste", D

Modifié par Vegnar42
Lien vers le commentaire
Partager sur d’autres sites

  • 3 weeks later...

http://www.planet-casio.com/Fr/aide/tutorial-transfert-casio.php

 

J'ai fais un algo de calcul de mesures principales (Math - Première S) mais il y a des soucis d'affichage (Il ne met pas de fraction >< )

Fait sur une Casio 35+:

Lbl 0
? → A
If A>-1 And A<1
Then Locate 5, 4, "Deja mesure principale"
IfEnd
-------------- Notez que ça ne s'affichera pas, je n'arrive pas a mettre en pause le programme avec GetKey :s
If A>0
Then Int A → I
If Int(I/2) ≠ I/2
I+1→I
IfEnd
I+1→S
Locate 5, 5, I
Locate 9, 5,  "<"
Locate 10, 5, A
Locate 14, 5, "<"
Locate 15, 5, S
A-I→R
Locate 5, 6, "0<"
Locate 7, 6, R
Locate 10, 6, "< π"
Else
Int A→S
If Int(S/2) ≠ S/2
Then S+1→S
IfEnd
S-1→S
Locate 5, 5, I
Locate 9, 5, "<"
Locate 10, 5, A
Locate 14, 5, "<"
Locate 15 5, S
A-S→R
Locate 5, 6, "-π<"
Locate 8, 6, R
Locate 12, 6,  "<0"
IfEnd
Mais il est buggué je sais pas trop pourquoi, si qqun pouvait m'aider ça serait cool :/

Il marche pas au niveau des negatifs

Modifié par Knux14
Lien vers le commentaire
Partager sur d’autres sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Invité
Répondre à ce sujet…

×   Vous avez collé du contenu avec mise en forme.   Supprimer la mise en forme

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Chargement
 Share

×
×
  • Créer...