Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » Forum Ti68K » Programmation TI-Basic » Conversion binaire (54 réponse(s))

./REPRISE DU POST PRECEDENT (post n°38) Marquer comme non lu.

geogeo

Ecrit le: Jeudi 22 avril 2004 à 00:53

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4257

Membre n°3

Inscrit le 29 janvier 2004

A mon avis on peut faire mieux en utilisant les fonctions hex, bin par morceaux, biensûr on ne peut pas faire toutes les bases.

[EDIT les cellules sont en noWrap mdr.

-Edité le: Jeudi 22 avril 2004 à 00:55 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°39 Marquer comme non lu.

Invité

Ecrit le: Jeudi 22 avril 2004 à 06:52

Ah non mais ces fonctions sont interdites ! Faut pas exagérer quand même... Mais attendez, j'optimise. Je vous donnerai mes résultats pour la base 17.

./Post n°40 Marquer comme non lu.

Invité

Ecrit le: Jeudi 22 avril 2004 à 20:53

Bon, puisque mon sujet se transforme en tournoi du meilleur programmeur, j'organise un concours !
C'est le concours du programme de conversion le plus rapide !
Date de début : maintenant.
Date de fin : Le 1 mai 2004. (demande de matth)
But : Créer un programme de conversion le plus rapide possible pour convertir le nombre 10^999 en base 2 minimum jusqu'en base 255 maximum.
Règles :
Programme .PRGM rédigé uniquement en TI-Basic pur.
Programmes .ASM et Execs interdits.
Instructions Bin, Dec, Hex interdites.
Tout recours à une bibliothèque quelconque (ou lib) est interdite.
Il ne doit y a voir qu'un seul fichier .PRGM, tout appel à une fonction ou un autre programme est interdit.
Le programme doit permettre au moins les bases 2, 8, 16, et 17 (demande de matth).
Pour les conversions au-dessus de la base 36, tous les caractères de la calculatrice sont autorisés, sinon ce sont les caractères de "0" à "Z".
Seules les fonctions de temps starttmr() et checktmr() sont autorisées.
Les résultats doivent être retournés en secondes.
Le programme peut créer et utiliser autant de variables qu'il veut, mais le nombre le plus petit de variables est préférable.
Tout candidat rendant ses résultats complets et sa source (pour vérification de triche, tests, et si vous êtes le plus rapide, pour apprendre aux autres comment faire) au delà de 0h00 dans le nuit du 1 mai 2004 au 2 mai 2004 sera ignoré.
Plus le programme propose de bases de conversion (donc 255 max), plus il verra son "score" s'élever.

Tous à vos caltos ! C'est parti !
Pour toute information supplémentaire ou suggestion, envoyez-moi un message privé sur ma boîte de TI-Gen ! Je mettrais la réponse dans ce post !

-Post créé et édité trois fois le jeudi 22 avril 2004.

-Edité le: Jeudi 22 avril 2004 à 21:35 par AS-

./Post n°41 Marquer comme non lu.

matth

Ecrit le: Jeudi 22 avril 2004 à 21:15

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

contestation !!!

Je demande des bases tordu aussi du genre base 17 ou bien base 145 etc ...
sinon, le prog n'a pas gran interet ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

http://www.informatiquefrance.com/stop-faute.jpg

./Post n°42 Marquer comme non lu.

Invité

Ecrit le: Jeudi 22 avril 2004 à 21:29

OK ! Les règles sont rectifiées !

-Edité le: Jeudi 22 avril 2004 à 21:30 par AS-

./Post n°43 Marquer comme non lu.

IP2X

Ecrit le: Dimanche 25 avril 2004 à 17:48

Membre: Maître Ultime

Messages: 2581

Membre n°37

Inscrit le 07 février 2004

AS, par contre change Disp par Pause, pour tout voir , c'est mieux

IP2X

./Post n°44 Marquer comme non lu.

matth

Ecrit le: Dimanche 25 avril 2004 à 18:05

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

Grrr, je n'est plus de calto jusqu'a 3Mai, donc je ne pourrait pas envoyer mon progs avant ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

./Post n°45 Marquer comme non lu.

Invité

Ecrit le: Lundi 26 avril 2004 à 20:52

Ok, pour IP2X, c'est Disp est remplacé par Pause.
Et pour matth, tu as droit jusqu'au 4 Mai dernier délai, mais ce retard sera pris en compte...

./Post n°46 Marquer comme non lu.

verytourist

Ecrit le: Mardi 27 avril 2004 à 02:06

Membre: Titan

Messages: 973

Membre n°26

Inscrit le 02 février 2004

je peux me joindre a vous ? (révision d'artihmétiq oblige: surtt que ce n'est plus au programme)
Au fait vous tourner tous sous 89 (il me semble que Math tourne sous v200..)
en tout cas fodra tester avec la même calc...

[EDIT]correction horto

-Edité le: Mardi 27 avril 2004 à 02:11 par verytourist-

./Post n°47 Marquer comme non lu.

verytourist

Ecrit le: Mardi 27 avril 2004 à 02:10

Membre: Titan

Messages: 973

Membre n°26

Inscrit le 02 février 2004

petite remarque:
"Par exemple, Disp string(10?Bin) est impossible, puisqu'une parenthèse intervient après le Bin."
dans ce cas tu peu toujours faire Disp 10>Bin sans pbs...

./Post n°48 Marquer comme non lu.

Invité

Ecrit le: Mardi 27 avril 2004 à 06:32

Oui, d'accord, mais tu ne peux pas faire 10>Bin->binfile...
Et bonne prog ! Il reste peu de temps !

./Post n°49 Marquer comme non lu.

matth

Ecrit le: Mardi 27 avril 2004 à 09:23

Membre privilégié

Messages: 1329

Membre n°54

Inscrit le 16 février 2004

oui je tourne sur v200 ...

Ici un peu de pub pour bestofmicro, n'hésiter pas a double-cliquer, vous y trouverez du matériel informatique tres interressant

./Post n°50 Marquer comme non lu.

verytourist

Ecrit le: Mardi 27 avril 2004 à 11:39

Membre: Titan

Messages: 973

Membre n°26

Inscrit le 02 février 2004

moi aussi (c'est quand même bcp mieuw que ces 89 ou il faut se tuer les yeux pour voir qqch...)

./Post n°51 Marquer comme non lu.

Dari

Ecrit le: Mardi 27 avril 2004 à 20:16

Membre privilégié

Messages: 968

Membre n°203

Inscrit le 18 avril 2004

Ouais mais les 89 c mieux que les CASIO?

"iPod, therefore, I am."

http://media.laquadrature.net/Quadrature_black-out_HADOPI_468x60px.gif

./Post n°52 Marquer comme non lu.

Invité

Ecrit le: Mercredi 28 avril 2004 à 14:16

Dans 3 jours, le concours est fini, allors grouillez-vous !

./Post n°53 Marquer comme non lu.

Invité

Ecrit le: Mercredi 28 avril 2004 à 21:49

J'arrive à convertir le nombre de 450 chiffres (147852369 50 fois) en base 17 en 16 secondes, mais je ne m'incline pas ! Je trouverais !

./Post n°54 Marquer comme non lu.

Invité

Ecrit le: Samedi 1er mai 2004 à 12:16

Bon, je n'arrive pas à faire mieux que ça :
147852369 50 fois en base 2 : 82 secondes.
147852369 50 fois en base 8 : 24 secondes.
147852369 50 fois en base 16 : 18 secondes.
147852369 50 fois en base 17 : 16 secondes.
10^999 en base 2 : 220 secondes.
10^999 en base 8 : 52 secondes.
10^999 en base 16 : 37 secondes.
10^999 en base 17 : 36 secondes.
Ma source :
base(n,b)
Prgm
""->r
checkTmr(0)->s
While n>0
mid("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",mod(n,b)+1,1)&r->r
int(n/b)->n
EndWhile
Disp checkTmr(s)
Disp r
EndPrgm
Je n'utilise que 4 variables et 8 lignes de code !

Bon, puisque personne n'a déposé son programme à part moi, je nomme mon programme le convertisseur le plus rapide au moins en base 2, 8, 16 et 17 !

-Edité le: Mercredi 5 mai 2004 à 14:11 par AS-