Regroupement de Programmes de Maths

Bonjour tout le monde,
Voici ma première compilation de programme de maths. Elle contient toutes les fonctions de la description soit : distance et milieux entre deux points d'un repère, division euclidienne, calcul de droite affine à partir de deux points d'un repère, et calcul de vecteur. Vous serez surement capables de l'améliorer (notez cependant que certains choix étaient esthétiques plutôt que dans une idée d'optimisation).
Il fait 654 octets et s'appelle MATHS. J'espère qu'il vous sera utile!

le lien : http://www.4shared.com/file/5pm5SvnG/MATHS.html

Code:

:Lbl M
:ClrHome
:Menu("MENU","DISTANCE",D,"MILIEU",E,"DIVISION",P,"DROITE",1,"VECTEUR",2,"QUITTER",Q
:Lbl 2
:Disp "OBTENIR UN","VECTEUR A PARTIR","DE 2 POINTS","a(A,B),b(C,D)
:Prompt A,B,C,D
:Disp "v(E,F),E=",C-A,"       F=",D-B
:Pause
:Goto M
:Lbl D
:Disp "DISTANCE ENTRE","2 PTS D'UN","REPERE
:Disp "a(A,B),b(C,D)
:Prompt A,B,C,D
:√((A-C)²+(B-D)²
:Disp "DISTANCE DE AB:",Ans,"OU AU CARRE",Ans²
:Pause
:Goto M
:Lbl E
:Disp "OBTENIR LE","MILIEU DE LA","DROITE DE 2 PTS","a(A,B) b(C,D)
:Prompt A,B,C,D
:Disp "LE MILIEU A","POUR COORDONNEES",(A+C)/2,"ET",(B+D)/2
:Pause
:Goto M
:Lbl P
:Disp "DIVISION","EUCLIDIENNE","DE A PAR B
:Prompt A,B
:int(A/B)
:Disp "Q=",Ans,"R=",A-B*Ans
:Pause
:Goto M
:Lbl 1
:Disp "Y=MX+P,M?,P?","a(A,B) b(C,D)
:Prompt A,B,C,D
:(B-D)/(A-C
:Disp "Y=MX+P : M=",Ans►Frac,"         P=",B-AnsA►Frac
:Pause
:Goto M
:Lbl Q

mets "regroupement" au lieu de "compilation"...
on pourrait croire que c'était ton premier programme assembleur, alors evite ce genre de confusions
sinon, c'est pas mal com programme, continue dans cette voie!!

rpgcreator a écrit:sinon, c'est pas mal com programme, continue dans cette voie!!

Bin disons que ça fait a peu près un an que je l'ai fait... Là j'ai juste optimisé le programme et rajouté ce à quoi chaque fonction servait.

bah de toute facon ca agit comme corrigé, puisque on essaiera tous de faire ce programme de resolution d'equations (dont g une version)