Poster un nouveau sujet Poster une réponse
Quelques programmes de math
Auteur Message
Toto
Invité
Posté le : Mer 12 Oct 2011, 13:25   Citer 

Alors, voici un programme très simple pour passer de radian en degré (des fois qu'on ai oublier comment faire)


Code

Prgm: RADEGRE (35 octets)
:Radian
:Input R
:cos(R)->Q
:Degré
:Arccos(Q)->L
:Disp L



Si vous voulez passer de degré en radian, alors remplacez Radian par Degré et vice versa.

Encore un autre (ici, le calcul de delta pour les complexes)


Code

Prgm: DELTAZ
:EffEcr
:Disp "AX²+BX+C
:Prompt A,B,C
:B²-4AC->D
:If D<0
:(-B-[RACINE D]i)/(2A)->E
:If D<0
:(-B+[RACINE D]i)/(2A)->F
:If D>0
:(-B-[RACINE D])/(2A)->E
:If D>0
:(-B+[RACINE D])/(2A)->F
:If D=0
:-B/(2A)->E
:Disp E,F



Voilà, si il y a des améliorations à faire, n'hésiter pas. Ce sont mes deux premiers (et simple) programmes.

  Haut de page Bas de page 
 
Métalocif



Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24
Posté le : Mer 12 Oct 2011, 13:38   Citer 

Tu devrais permettre la conversion dans les deux sens,à part ça,le programme est bon(marque quand même Prompt au lieu de input).
Le programme du trinôme est un classique(j'en avais fait un qui inscrivait toute la rédaction...pratique en DST ^^);un peu moins pour les complexes.
Au lieu de marquer:

Code
If D<0
Faire ci
If D<0
Faire ça


Utilise plutôt:

Code
If d<0
Then
Faire ci
Faire ça
Else
Faire ci
Faire ça
End


Else signifie "Sinon" et permet d'exécuter quelque chose si des conditions ne sont pas respectées.
C'est un peu moins lourd,plus joli,ça prend plus de lignes mais dans un gros programme,tu t'y retrouves mieux.
Ce sera tout.
Métalocif

PS:tu est en terminale S. Spé Maths or not Spé Maths?

----------------------
&quot;On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse.&quot; Clémenceau
 Adresse email Haut de page Bas de page 
 
Toto
Invité
Posté le : Mer 12 Oct 2011, 14:29   Citer 

Oui, je suis en termS. Sinon, pas en spé math.

Ok, je vais corriger tout cela... Merci

Sinon, là, je suis sur un jeu de mémoire très poussé (2000 octets), et j'essai de corriger les petites erreurs, par ci par là, et de réduire le poids de ce programme.

  Haut de page Bas de page 
 
Métalocif



Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24
Posté le : Mer 12 Oct 2011, 17:49   Citer 

Pour ton jeu de mémoire, utilise les chaînes: tu associes chaque lettre à un chiffre, randInt(1,26) et ça diversifie un peu(parce que si c'est celui que tu viens de poster,c'est éprouvant pour les cellules grises mais aussi rébarbatif qu'une mauvaise copie de Cérébrale Académie,si tu me passes l'expression).
Un dernier conseil:si tu devais t'inscrire sur le forum(ce que je te conseille) ,change peut-être ton pseudo...

Métalocif

----------------------
&quot;On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse.&quot; Clémenceau
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Mer 12 Oct 2011, 18:39   Citer 

Ton programme DELTAZ, tu peut encore le simplifier :

Code
Prgm: DELTAZ
:EffEcr
:Disp "AX²+BX+C
:Prompt A,B,C
:B²-4AC->D
:a+bi                      //c'est dans mode
:Disp(-B-[RACINE D])/(2A
:If D
:Disp (-B+[RACINE D])/(2A
:réel                     //c'est aussi dans mode



Explication : en mode a+bi, lorsqu'on fait la racine carrée d'un nombre négatif, la TI, au lieu d'afficher une erreur, affiche le résultat sous forme complexe (a+bi).

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes