Bonjour à tous !
Je suis nouveau sur le forum, donc je vais me présenter très rapidement : Je m’appelle Louis j'ai 16 ans et je suis en Seconde cette année.
Dès les début d'année, la programmation sur la calculette m'a intéresse, j'ai donc fait quelques programmes assez simple pour m'entraîner mais voilà mon réel premier programme qui a pour but d'être utile.
Ce programme va permettre de vérifier (Je dit vérifier car les profs voudront les calculs détaillés sur la copie ) la nature d'un quadrilatère, si c'est un rectangle, parallélogramme, losange ou carré avec les coordonnées de ses points.
Rappel : c'est mon premier programme, soyez indulgent et si vous avez des remarques constructives dans le but de l'améliorer, je prends en compte !
Remarque : La flèche -> sur le forum correspond à la touche sto> sur la calculette.
Code : edit par linkakro:quelques commentaires ajoutés
Si jamais vous constatez un problème, n’hésitez pas à m'en faire part.
A+
Je suis nouveau sur le forum, donc je vais me présenter très rapidement : Je m’appelle Louis j'ai 16 ans et je suis en Seconde cette année.
Dès les début d'année, la programmation sur la calculette m'a intéresse, j'ai donc fait quelques programmes assez simple pour m'entraîner mais voilà mon réel premier programme qui a pour but d'être utile.
Ce programme va permettre de vérifier (Je dit vérifier car les profs voudront les calculs détaillés sur la copie ) la nature d'un quadrilatère, si c'est un rectangle, parallélogramme, losange ou carré avec les coordonnées de ses points.
Rappel : c'est mon premier programme, soyez indulgent et si vous avez des remarques constructives dans le but de l'améliorer, je prends en compte !
Remarque : La flèche -> sur le forum correspond à la touche sto> sur la calculette.
Code : edit par linkakro:quelques commentaires ajoutés
- Code:
Input "XA=",A
Input "YA=",B
Input "XB=",C
Input "YB=",D
Input "XC=",E
Input "YC=",F
Input "XD=",G
Input "YD=",H
√((C-A)²+(D-B)²)->I //longueur AB
√((E-C)²+(F-D)²)->J //longueur BC
√((G-E)²+(H-F)²)->K //longueur CD
√((G-A)²+(H-B)²)->L //longueur AD
If I=K et J=L:Disp "ABCD EST UN","PARALLELOGRAMME
If I=J et K=J et K=L:Disp "ABCD EST UN","LOSANGE
√((E-A)²+(F-B)²)->M // longueur AC
√((G-C)²+(H-D)²)->N // longueur BD
If I=K et J=L et M=N:Disp "ABCD EST UN","RECTANGLE
If I=J et K=L et M=L:Disp "ABCD EST UN","CARRE
Si jamais vous constatez un problème, n’hésitez pas à m'en faire part.
A+
Dernière édition par chrysler5798 le Lun 8 Déc 2014 - 18:51, édité 1 fois