Forum

Oui, tous les chiffres une seule fois. Je n'ai trouvé qu'une seule solution ce soir, après avoir pas mal galéré : 123 -4 -5 -6 -7 +8 -9 = 100 Il est possible qu'il existe d'autres solutions, on me dit... a priori, à voir, je vais revérifier mon prog. EDIT : solutions : 1 + 2 + 3 - 4 + 5 + 6 + 78 + 9...

On a les chiffres de 1 à 9. Les opérateurs +, -, et concaténation (8 & 9 = 89) On utilise tous les chiffres. Le résultat doit être égal à 100. Ca dépasse les capacités de bien des calculettes. Je suis en train de réfléchir à un programme en Qbasic, probablement pour demain, n'étant toujours pas au c...

Il a commencé à programmer en 1962/63 à cette époque, il fallait se souvenir des instructions chiffrées. Le slogan d'IBM était alors, du genre "programmez pour rester jeune" :) Cette 41 CX avec ses flag (drapeaux pardon) quand je vois mon hp 9g j'ai un peu honte :) . Les flags binaires permettaient ...

La voilà dans un environnement meilleur : http://img11.hostingpics.net/pics/157044HP41CX.jpg Du coup il se replonge dans le manuel pour réapprendre comment elle fonctionne...! Et dire que j'ai cru un instant qu'elle serait pour ma pomme.. :) "Qu'est-ce que j'ai pu faire comme calculs dessus... " il ...

Elle marche ! Une fois changé les batteries, insertion du nouveau module porte-batteries, affichage "MEMORY LOST" !!!

Du coup elle est bichonnée et réhabilitée... mais elle ne sera pas pour moi C'est la calculatrice qu'il a utilisé au cours de sa vie professionnelle...

L

Celui là, le vrai :

Simplification : PROG 3 Lbl 1: U=0; FOR(Y=1;Y=<5;Y++){ Z=Y*2-1; GOSUB PROG 6;}; FOR(Y=4;Y>=1;Y--){ Z=Y*2; GOSUB PROG 6;}; IF(U==0)THEN {PRINT "ABC";END}; GOTO 1 END PROG 6 X=Z+1; IF(A[Z]>A[X]) THEN{ SWAP(A[Z],A[X]); U=1; }; Ne peut traiter que les listes de longueur pair. Il y a l'autre algo qui me ...

Simplification : PROG 3 U=1; "initialisation Lbl 1: GOSUB PROG 4; GOSUB PROG 5; IF(U==0)THEN {PRINT "ABC";END}; GOTO 1 END PROG 4 U=0; FOR(Y=1;Y=<5;Y++){ Z= Y*2 - 1; GOSUB PROG 6;}; END PROG 5 U=0; FOR(Y=4;Y>=1;Y--){ Z= Y*2; GOSUB PROG 6;}; END PROG 6 X=Z+1; IF(A[Z]>A[X]) THEN{ SWAP(A[Z],A[X]); U=1;...

C'est pour cela que le "tri à bulles" persiste à exister; Oui, j'avais un cas où je voulais juste extraire les 20 plus grands éléments d'une liste de 200. Inutile de classer toute la liste, les I, J x20 suffisent. Une autre question intéressante est la compression... :) Huffman, etc... c'est encore...

Photos de la Hp 9g :

Notons que la dorure du bouton Hp a déjà été "patinée", ternie.

Bon j'ai retravaillé le marbre :

Le programme gégé enfin réalisé : La condition de sortie U+V==2 oblige le programme à s'arrêter après le parcours complet des 2 boucles sans changement. Tout cela n'est pas bon parce que si j'ai 15 él. le programme ne suit pas.... Mais cela prendrait encore beaucoup de lignes de codes. Si ton algo ...

Bonjour, Je ne vois pas trop la différence avec le tri à bulles classique (en termes de nombre d'étapes bien sûr) ? Le principe est aussi plutôt identique ? :?: G.E. En ce qui concerne mon code ? il n'y en a pas. Le fait de trier les pairs puis les impairs peut intéresser les machines à architectur...

Un programme doit toujours pouvoir se désassembler (démonter), c'est ce qui va me donner le courage de réécrire mon prog de 1450 lignes en Q basic... Remonter des SUB aux DIM, TYPE, (en gros des headers). C'est pire que du désossage.... Chaque SUB doit avoir sa fiche sanitaire, son parcours de soins...

C'est ça que j'avais en tête en fait : http://en.wikipedia.org/wiki/Cocktail_sort Cocktail sort is a slight variation of bubble sort. It differs in that instead of repeatedly passing through the list from bottom to top, it passes alternately from bottom to top and then from top to bottom. It can ach...

Quand j'étais au collège (j'avais 12 ou 13 ans), j'avais fait un programme de tri, et je n'ai su que plus tard que c'était un tri à bulles :P 12 ou 13 ans.. eh bé.. moi j'étais content de finir mes devoirs :) et d'aller jouer. Ensuite il n'y avait que des bull micral à mon époque, ou de grosses mac...