Modérateur : Politburo
Effectivement. J'ai lu dans la doc (ou sur un forum) qu'il possible de forcer pour que cela fonctionne partout en précisant le nom de l'APPS dans la fonction, mais je n'ai pas trouvé. Ca doit être un truc du genre Triangle.SSS(..)C.Ret a écrit : A noter que le programme ne fonctionne que si l'application Triangle est sélectionnée dans le menu APPS. Sinon, la fonction SSS() n'est pas reconnue.
Je pensais juste à lancer l'app en mode interactif avec les données initialisées. Reste à trouver comment ! Et de toute façon le 'dessin' est juste pour illustration et ne s'adapte pas aux données ...
Par contre, je suis toujours en train de chercher à dessiner le triangle. Ce ne doit pas être très difficile, mais cela fais quelques mois que je n'ai plus bricolé sur cette machine.
Excellente initiative!Marge a écrit :Faites-moi part des erreurs éventuelles, et que les étourdis n'oublient pas de m'indiquer le nombre d'octets pour les programmes qui sont encore hors-concours, merci ![/url]
Ce programme utilise 125 octets au total : 83 + 6*7
L'important c'est de tout compter de la même façon pour pouvoir comparer ...Hobiecat a écrit :Ça se discute pour les registres : autant les pas de programme sont "bloqués", autant les registres utilisés par un programmes restent disponibles pour les autres ( sauf si on y stocke des constantes utiles au programme). Le décompte ou non des registres est donc négociable !
Sur ce point, pas de discussion !zpalm a écrit :L'important c'est de tout compter de la même façon pour pouvoir comparer ...
Et même les registres, il est vrai que cela permet de voir l'usage de la mémoire à l'instant t, ce qui a aussi un intérêt ! 
Code : Tout sélectionner
10 INPUT x1,Y1 @ INPUT X2,Y2 @ INPUT X3,Y3
20 DEF FNA(X,Y,Z,T)=SQR((X-Z)^2+(Y-T)^2)
30 DEF FNB(H,H,I)=ACOS((H^2+I^2-G^2)/2/H/I)
40 A=FNA(X1,Y1,X2,Y2) @ B=FNA(X2,Y2,X3,Y3) @ C= FNA(X1,Y1,X3,Y3)
50 D=FNB(B,A,C) @ E=FNB(C,B,A) @ F=FNB(A,B,C)
60 DISP USING 70 ; A,B,C @ STOP @ DISP USING 100 ; D,E,F
70 IMAGE ddd.dd,2x,ddd.dd,2x,ddd.dd
Zut, je fais à moi tout seul les 2/3 des étourdis !Marge a écrit :[...] et que les étourdis n'oublient pas de m'indiquer le nombre d'octets pour les programmes qui sont encore hors-concours, merci !
Code : Tout sélectionner
double xy[3][2],a[3];
double cote(i){
char j;
j=(i+1)%3;
return(sqrt(pow(xy[i][0]-xy[j][0],2)+pow(xy[i][1]-xy[j][1],2)));
}
double angl(i){
return(acos((pow(a[i],2)+pow(a[(i+2)%3],2)-pow(a[(i+1)%3],2))
/(2*a[i]*a[(i+2)%3])));
}
main(){
char i,c1,c2;
for (i=0;i<3;i++) {
printf("Point %c? ",i+65);
scanf("%lf %lf",&xy[i][0],&xy[i][1]);
}
for (i=0;i<3;i++) {
a[i]=cote(i);
}
for (i=0;i<3;i++) {
c1=i+65;c2=(i+1)%3+65;
printf("%c%c=%lf ^%c=%lf\n",c1,c2,a[i],c1,angl(i));
getch();
}
}