Le Forum de TI-BANK.fr
Le forum de la banque de programmes pour calculatrices graphiques Texas Instruments (aide débutants, résolution problèmes...).
AccueilPortailCalendrierFAQRechercherS’enregistrerConnexion
Poster un nouveau sujet   Répondre au sujetLe Forum de TI-BANK.fr :: Forum TIz80 :: Programmation
 Mes petits programmesVoir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédente  1, 2, 3  Suivante
AuteurMessage
Mic
Administrateur
Administrateur


Sexe:MasculinGémeauxRat
Age : 24
Inscrit le : 07 Sep 2004
Messages : 9766
Localisation : Talence
Calculatrice : Voyage 200 & TI-Nspire CAS
Classe : Prof de Maths


Impureté:
56/450  (56/450)
Dernière note en maths: -/20
MessageSujet: Re: Mes petits programmes   Sam 10 Nov - 20:35
C'est fait.
_________________
Responsable de TI-BANK (http://www.ti-bank.fr)

Projet 1 : How well do you know your World ? [68k] (19%)
Projet 2 : Da Vinci Flight [68k] (0.5%)
Projet 3 : Mastermind Nspire [Nspire] (80%)
Projet 4 : Ephy Nspire [Nspire] (0%)
Revenir en haut Aller en bas
chicu
Elite
Elite


Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 27 Mai 2007
Messages : 200
Calculatrice : ti82 ti84+ ti89tita
Classe : TS SI


Impureté:
107/450  (107/450)
Dernière note en maths: 16.5/20
MessageSujet: Re: Mes petits programmes   Sam 10 Nov - 22:24
expr( tu fais catalogue f et tu remonte d'un cran
sub( tu fais s tu descend d'une dizaine de cran

sub et expr étant la à partir de ti82 Stats pas 82 tout court
M'en vais jeter un coup d'oeil :)

Edit : Ok je trouve ça beaucoup mieux personnellement enfin surtout plus simple :)

Pour la date échantillon :

Les profs de spé disent souvent en sachant que le xx/xx/xxxx est un jeudi trouvé le jour le yy/yy/yyyy. Moi je te proposer de permettre la saisie de xx/xx/xxxx voila tout en espérant avoir été plus clair :)

PS : Mets nous ton code pour qu'on te dise si il est entièrement optimisé :)
Revenir en haut Aller en bas
adriweb
Elite
Elite


Sexe:MasculinGémeauxSinge
Age : 16
Inscrit le : 01 Juin 2007
Messages : 787
Localisation : Sur ma chaise
Calculatrice : TI-84+
Classe : 1ère S


Impureté:
-1/450  (-1/450)
Dernière note en maths: **/20 ^^
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 11:33
chicu a écrit:
sub( tu fais s tu descend d'une dizaine de cran
Perso, j'tape T et je monte de 2 ^^

Ou alors tu télécharges Omnicalc et t'as un menu personnel ^^ mais bon ^^
_________________
http://ti83-84.skyblog.com : LE blog des 83+ et des 84+



•En cours :
- Un RPG (z80) => 60%
- Un pack utilitaire graphique (z80) => 25%

MON DIEU, SURTOUT NE CLIQUEZ PAS ICI
Revenir en haut Aller en bas
Syfo
Légende
Légende


Sexe:MasculinCapricorneCheval
Age : 17
Inscrit le : 21 Fév 2006
Messages : 2393
Localisation : Herault
Calculatrice : 80,82,83,83+, 84+
Classe : TS spe maths ;)


Impureté:
46/200  (46/200)
Dernière note en maths: 18/20
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 12:09
Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres.
Revenir en haut Aller en bas
chicu
Elite
Elite


Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 27 Mai 2007
Messages : 200
Calculatrice : ti82 ti84+ ti89tita
Classe : TS SI


Impureté:
107/450  (107/450)
Dernière note en maths: 16.5/20
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 12:35
Oui mais sur 82 stats ça existe :)
Revenir en haut Aller en bas
Dark Fox
Débutant



Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 25 Aoû 2007
Messages : 19
Calculatrice : Ti 89 Titanium et Ti 82
Classe : Terminale S

MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 16:01
Mic a écrit:
C'est fait.

je te remercie ^^

chicu a écrit:
expr( tu fais catalogue f et tu remonte d'un cran
sub( tu fais s tu descend d'une dizaine de cran

sub et expr étant la à partir de ti82 Stats pas 82 tout court
M'en vais jeter un coup d'oeil :)

Edit : Ok je trouve ça beaucoup mieux personnellement enfin surtout plus simple :)

Pour la date échantillon :

Les profs de spé disent souvent en sachant que le xx/xx/xxxx est un jeudi trouvé le jour le yy/yy/yyyy. Moi je te proposer de permettre la saisie de xx/xx/xxxx voila tout en espérant avoir été plus clair :)

PS : Mets nous ton code pour qu'on te dise si il est entièrement optimisé :)


Ok je vois ce que tu veux dire c'est pour trouver le jour d'une certaine date à partir d'un jour et d'une date donnée, je l'ai fait en spé. Cependant (sans vouloir t'offenser) je ne vois pas trop l'utilité vu qu'avec zeller tu n'a pas besoin d'une date de réference pour trouver un jour.
Sinon voilà mon code :
Code:

ClrHome
Output(2,4,"LA FORMULE
Output(3,8,"DE
Output(4,6,"ZELLER
Output(6,1,"-----------------
Output(7,1,"PROGRAMME CREE
Output(8,1,"PAR AMAURY DARNY
Pause
Lbl 1
ClrHome
Input "JOUR DU MOIS:      ",T
Input "MOIS:              ",M
Input "ANNEE:            ",A
If M=1
13->M
If M=2
14->M
M-2->M
If A>=1000
Then
iPart(A/100->H
100fPart(A/100->J
End
If A<1000
Then
Lbl 0
Input "SIECLE:            ",H
Input "ANNEE DS SIECLE:  ",J
H-1->H
Goto 2
End
If A>=10000
Goto 0
Lbl 2
T+int(2.6M-0.2)+J+int(J/4)+int(H/4)-2H->W
If W>=0
Then
iPart(W/7->Q
W-7Q->R
Else
If W<0
iPart(W/7->Q
W-7(Q-1->R
End
ClrHome
If R=0
Output(5,4,"DIMANCHE
If R=1
Output(5,4,"LUNDI
If R=2
Output(5,4,"MARDI
If R=3
Output(5,4,"MERCREDI
If R=4
Output(5,4,"JEUDI
If R=5
Output(5,4,"VENDREDI
If R=6
Output(5,4,"SAMEDI
Output(3,1,"----------------
Output(4,1,"CETTE DATE EST
Output(5,1,"UN
Output(6,1,"----------------
Pause
Menu("QUE FAIRE ?","CHERCHER JOUR",A,"QUITTER",B
Lbl A
Goto 1
Lbl B
ClrHome



Syfo a écrit:
Sub( et expr( n'existe pas sur 82, puisque cette ti ne possede pas de chaines de caracteres.

Ok j'ai donc bien confirmation que ça n'existe pas sur 82 normal
Revenir en haut Aller en bas
chicu
Elite
Elite


Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 27 Mai 2007
Messages : 200
Calculatrice : ti82 ti84+ ti89tita
Classe : TS SI


Impureté:
107/450  (107/450)
Dernière note en maths: 16.5/20
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 18:57
Pour moi il est optimisé à fond sauf à la fin
Code:
If non(R

à la place de
Code:
If R=0
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 17
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 19:01
.01A à la place de A/100
la multiplication est plus rapide que la division
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
Dark Fox
Débutant



Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 25 Aoû 2007
Messages : 19
Calculatrice : Ti 89 Titanium et Ti 82
Classe : Terminale S

MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 21:22
ok merci mais tu est sur de :
Code:
 If non(R

ça signifie quoi ? et si je le rajoute ma Ti mets un message d'erreur
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 17
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20
MessageSujet: Re: Mes petits programmes   Dim 11 Nov - 21:54
ça serait If not(R

not(X => si X est différent de 0, retourne 0, sinon retourne 1
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
Dark Fox
Débutant



Sexe:MasculinGémeauxCheval
Age : 18
Inscrit le : 25 Aoû 2007
Messages : 19
Calculatrice : Ti 89 Titanium et Ti 82
Classe : Terminale S

MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 21:06
tama a écrit:
ça serait If not(R

not(X => si X est différent de 0, retourne 0, sinon retourne 1


retourne 0 ? par rapport à quoi ?
Revenir en haut Aller en bas
tama
Animateur
Animateur


Sexe:MasculinLionChèvre
Age : 17
Inscrit le : 19 Déc 2005
Messages : 9389
Localisation : quelque part en France...
Calculatrice : TI-84+, TI89 tita HW3, TI89 tita HW4 (eh oui, 3 TI :#geek#:)
Classe : Terminale S spé maths


Impureté:
-9/500  (-9/500)
Dernière note en maths: 13/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:18
bah retourne le nombre 0...'comprends pas ta question...
_________________
<EMBED src="http://download.makeinflash.com/cd_digital_v1.swf?id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M" quality=high WIDTH="200" HEIGHT="50"NAME="cd_digital_v1.swf" ALIGN="" TYPE="application/x-shockwave-flash"PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer" FlashVars="id=mnwGcj1G-uGE7zMA6uMA6uMB4JNHD1cLR8vY7d0H7G0FOt-F-9c0Q8DLD0NgRjYEP94H-M"></EMBED> (1 an tst)
Revenir en haut Aller en bas
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 384
Localisation : indre et loire
Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P
Classe : sans


Impureté:
47/450  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:41
on peut faire aussi des
IF X THEN pour le test inverse

à noter ne marche pas sur 68K
et NOT(X) renvoi un entier signé sur 64bits et pas true ou false donc ne marche pas non plus sur 68000
Revenir en haut Aller en bas
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 384
Localisation : indre et loire
Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P
Classe : sans


Impureté:
47/450  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:44
tu dois aussi pouvoir remplacer, théoriquement (je n'ai pas de Z80 TI)

If M=1
13->M
If M=2
14->M
M-2->M

par

(M=1)*13+(M=2)*12->M
Revenir en haut Aller en bas
charognard
Vétéran
Vétéran


Sexe:MasculinSagittaireCheval
Age : 41
Inscrit le : 18 Oct 2007
Messages : 384
Localisation : indre et loire
Calculatrice : TI NSPIRE CAS, CANON X07, HP48GX, HP11C, SHARP PC1262, PC1360, PC1246, PC1600, PC1500, CASIO FX790P
Classe : sans


Impureté:
47/450  (47/450)
Dernière note en maths: 11/20
MessageSujet: Re: Mes petits programmes   Mar 13 Nov - 22:55
remplace ça

If W>=0
Then
iPart(W/7->Q
W-7Q->R
Else
If W<0 ; A
iPart(W/7->Q
W-7(Q-1->R
End


par ça
iPart(W/7->Q
W-7(Q-(W<0->R
Revenir en haut Aller en bas
Mes petits programmesVoir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 3Aller à la page : Précédente  1, 2, 3  Suivante

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Le Forum de TI-BANK.fr :: Forum TIz80 :: Programmation-
Poster un nouveau sujet   Répondre au sujet