Misez P'tit, Optimisez - N°33 (angles & côtés d'un triangle)
Modérateur : Politburo
- Hobiecat
- Fonctionne à 9600 bauds
- Messages : 3639
- Enregistré le : 06 sept. 2011 14:57
- Localisation : Normandie
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
Comme dit par zpalm, peut importe que les registres soient comptés ou pas, par contre il faut être cohérent : ou ils sont comptés pour tous les programmes, ou ils ne sont comptés pour aucun !
PS : mazette, quel MPO : 7 pages et des versions pour plein de bécanes d'époque variées... Assurément un MPO qui restera dans les annales !
PS : mazette, quel MPO : 7 pages et des versions pour plein de bécanes d'époque variées... Assurément un MPO qui restera dans les annales !
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- dprtl
- Fonctionne à 1200 bauds
- Messages : 463
- Enregistré le : 27 janv. 2013 00:26
- Localisation : Strasbourg
- Contact :
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
Voici une version retravaillée pour la Casio Z-1 en C, qui produit exactement le même résultat que précédemment, mais en 351 octets + 10 variables :
C'était juste pour passer devant les Basic dans le classement ; car les versions de zpalm en LMS sont vraiment intouchables
Code : Tout sélectionner
#define f3 for(i=0;i<3;i++)
#define i1 (i+1)%3
#define i2 (i+2)%3
main(){
double x[3],y[3],a[3];
int i;
f3{printf("Point %c? ",i+65);scanf("%lf %lf",&x[i],&y[i]);}
f3{a[i]=sqrt(pow(x[i]-x[i1],2)+pow(y[i]-y[i1],2));}
f3{x[i]=acos((pow(a[i],2)+pow(a[i2],2)-pow(a[i1],2))/2/a[i]/a[i2]);
printf("%c%c=%lf ^%c=%lf\n",i+65,i1+65,a[i],i+65,x[i]);getch();}
}
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3419
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
J'ai aussi finalemetn corrigé le programme pour HP-29s :
Soit 55 octets de programme et 6*7 = 42 donc total 97 octets seulements.
Code : Tout sélectionner
001 STO 4 021 STO - 2 041 -
002 X<>Y 022 RCL 1 042 STO 4
003 STO 2 023 - 043 RTN
004 R/S 024 ->P
005 STO 6 025 STO 1 044 LBL 8
006 RCL 4 026 Rdn 045 1
007 - 027 STO 6 046 CHS
008 x:y 028 GSB 9 047 COS^-1
009 STO 1 029 STO 5 048 RTN
010 RCL 2 030 GSB 8
011 - 031 x:y 049 LBL 9
012 ->P 032 RCL 4 050 -
013 STO 3 033 RCL 2 051 GSB 8
014 Rdn 034 ->P 052 +
015 STO 5 035 STO 2 053 COS
016 R/S 036 Rdn 054 COS^-1
017 STO - 4 037 RCL 6 055 RTN
018 RCL 6 038 GSB 9
019 - 039 STO 6
020 x:y 040 +
+ 6 registres: R1=a R2=b R3=c R4=^A R5=^B R6=^C
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
C'est un record !
Le temps de vérifier tout ça, et je mets à jour. Merci C.Ret pour cette contribution qui pourrait placer ma machine préférée en excellente position !
Le temps de vérifier tout ça, et je mets à jour. Merci C.Ret pour cette contribution qui pourrait placer ma machine préférée en excellente position !
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- C.Ret
- Fonctionne à 9600 bauds
- Messages : 3419
- Enregistré le : 31 mai 2008 23:43
- Localisation : N 49°22 E 6°10
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
L'honneur en revient à zpalm qui a bien déboggué mes précèdentes productions. Et si tous les angles fonctionnent, c'est grâce en quelque sorte à lui et à l'usage astucieux de ACOS et COS.
Pour le compte des octets, j'ai un doute, STO 1 compte bien uniquement pour 1 octet ?
Pour le compte des octets, j'ai un doute, STO 1 compte bien uniquement pour 1 octet ?
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
Selon le même zpalm (le monde est petit !), oui.
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- Hobiecat
- Fonctionne à 9600 bauds
- Messages : 3639
- Enregistré le : 06 sept. 2011 14:57
- Localisation : Normandie
Re: Misez P'tit, Optimisez - N°33 (angles & côtés d'un trian
Tout simplement bravo !
(y compris à l'initiateur de ce MPO qui restera dans les annales ! )
(y compris à l'initiateur de ce MPO qui restera dans les annales ! )