les liens:
-le programme pour la TI : FORMULES.83p
-la source (voir plus bas) : FORMULES.z80
-le lanceur du compilateur : compiler2.bat
-le compilateur même : spasm.exe
-le fichier include : ion.inc
N'UTILISER QU'AVEC UNE TI82stats, TI82stats.fr, ou TI83(non+)
JE NE SUIS NULEMENT RESPONSABLE DE L'UTILISATION DE CE PROGRAMME (ni bugs possibles, ni punition pour triche, ni autre).
Les versions 2 et trois comportent aussi un programme pour les TI83+.
ATTENTION : il y a une erreure non corigée dans la v2 : il manque le "*pi" dans le volume de la sphère, prennez donc la v3 où ce problème est rectifié.
Voici le code source
.nolist #include "ion.inc" .list #ifdef TI83P .org progstart-2 .db $BB,$6D #else .org progstart #endif ret jr nc,start .db "FORMULES",0 start: ld hl,0 ld (currow),hl ld hl,0 ld (curcol),hl ld hl,titre1 call _puts ld a,7 ld (penrow),a ld a,1 ld (pencol),a ld hl,carre call _vputs ld a,13 ld (penrow),a ld a,1 ld (pencol),a ld hl,rectangle call _vputs ld a,19 ld (penrow),a ld a,1 ld (pencol),a ld hl,triangle call _vputs ld a,25 ld (penrow),a ld a,1 ld (pencol),a ld hl,losange call _vputs ld a,31 ld (penrow),a ld a,1 ld (pencol),a ld hl,disque call _vputs ld a,37 ld (penrow),a ld a,1 ld (pencol),a ld hl,parallelogramme call _vputs ld a,43 ld (penrow),a ld a,1 ld (pencol),a ld hl,trapeze call _vputs ld a,49 ld (penrow),a ld a,1 ld (pencol),a ld hl,cerfvolant call _vputs ld a,55 ld (penrow),a ld a,1 ld (pencol),a ld hl,sphere call _vputs call _getkey call _clrlcdf ld hl,0 ld (currow),hl ld hl,2 ld (curcol),hl ld hl,titre21 call _puts ld hl,1 ld (currow),hl ld hl,4 ld (curcol),hl ld hl,titre22 call _puts ld a,15 ld (penrow),a ld a,1 ld (pencol),a ld hl,cube call _vputs ld a,21 ld (penrow),a ld a,1 ld (pencol),a ld hl,parallelepipederectangle1 call _vputs ld a,27 ld (penrow),a ld a,4 ld (pencol),a ld hl,parallelepipederectangle2 call _vputs ld a,33 ld (penrow),a ld a,1 ld (pencol),a ld hl,prisme call _vputs ld a,39 ld (penrow),a ld a,1 ld (pencol),a ld hl,cylindre call _vputs ld a,45 ld (penrow),a ld a,1 ld (pencol),a ld hl,cone call _vputs ld a,51 ld (penrow),a ld a,1 ld (pencol),a ld hl,pyramide call _vputs ld a,57 ld (penrow),a ld a,1 ld (pencol),a ld hl,boule call _vputs call _getkey ret titre1: .db"Formules d'aires",0 carre: .db"Carre : A=c*c",0 rectangle: .db"Rectangle:A=L*l",0 triangle: .db"Triangle:A=(b*h)/2",0 losange: .db"Losange:A=(d1*d2)/2",0 disque: .db"Disque:A=pi*r*r",0 parallelogramme: .db"Parallelogramme:A=b*h",0 trapeze: .db"Trapeze:A=(B+b)/2*h",0 cerfvolant: .db"Cerf-volant : A=(d1*d2)/2",0 sphere: .db"Sphere:4*pi*r*r",0 titre21: .db"Formules de",0 titre22: .db"volumes",0 cube: .db"Cube:V=c*c*c",0 parallelepipederectangle1: .db"Parallelepipederectangle:",0 parallelepipederectangle2: .db"V=l*L*h",0 prisme: .db"Prisme:V=B*h",0 cylindre .db"Cylindre:V=pi*r*r*h",0 cone: .db"Cone:V=r*r*h*pi/3",0 pyramide: .db"Pyramide:V=B*h/3",0 boule: .db"Boule:V=4/3*r*r*r",0 .endSandro
PS : merci beaucoup à Deeph, Contra et Chikendude sans lequelles je n'aurrait été capable de faire un programme en assembleur.