granola
élite
Nombre de messages : 277
Age : 33
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 6064
Date d'inscription : 21/12/2007
Profil
TI: V200
TO: 700
Spécialité: aucune
 |  Sujet: Programme de récurrence  Sam 19 Jan 2008, 17:51 | |
| Voilà, je le poste là pour le moment, mais si tama tu veux le bouger il n'y a aucun problème. Voici le code du programme, il n'est pas du tout définitif,  , ce n'est que le début. Si vous constatez des erreurs, n'hésitez pas à m'en faire part. - Code:
-
Recur()
Prgm
ClrHome:ClrIO
Local vi,n,pn
Dialog
Title "Récurrence V.1.00"
Text "Bienvenue sur le programme de"
Text "raisonnement par récurrence"
EndDlog
Loop
Dialog
Title "Récurrence V.1.00"
Request "U(n+1)=",un
Text "Valeur Interdite de n si aucune"
Request "tapez aucune",vi
EndDlog
expr(un)→p(n)
If ok=0 Then
Exit
Else
Dialog
Title "Récurrence V.1.00"
Text "Hypothèse de récurrence avec"
Text "n et m des réels"
DropDown "P(n):",{"U(n+1) > U(n)","U(n+1) < U(n)","U(n+1) > U(n) > n","U(n) > U(n+1) > n","U(n) < U(n+1) < n","U(n+1) < U(n) < n","m > U(n+1) > U(n) > n","m> U(n) > U(n+1) > n"},pn
EndDlog
EndIf
Text "Initialisation"
If vi=string(aucune) Then
0→n
For n,0,1,1
Disp "P("&string(n)&")="&string(p(n))
EndFor
Pause
ElseIf vi≠string(aucune) Then
1→n
For n,1,2,1
Disp "P("&string(n)&")="&string(p(n))
EndFor
Pause
EndIf
EndLoop
Delvar un
EndPrgm |
|
tama
Admin
Nombre de messages : 12376
Age : 32
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 9427
Date d'inscription : 08/08/2007
Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k
| | Sujet: Re: Programme de récurrence Sam 19 Jan 2008, 17:57 | |
| bah disons que j'ai déjà vu ce code plein de fois, j'crois même qu'il y a un sujet avec le même code dans "Problèmes TI" alors non j'ai pas grand-chose à dire ^^ |
|
granola
élite
Nombre de messages : 277
Age : 33
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 6064
Date d'inscription : 21/12/2007
Profil
TI: V200
TO: 700
Spécialité: aucune
| | Sujet: Re: Programme de récurrence Sam 19 Jan 2008, 18:01 | |
| Comment ça? je ne refais pas un trucs qui a déjà été fait quand même?... Pourtant je certifie ne rien avoir copié (faut dire, il n'y a pas grand chose. |
|
tama
Admin
Nombre de messages : 12376
Age : 32
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 9427
Date d'inscription : 08/08/2007
Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k
| | Sujet: Re: Programme de récurrence Dim 20 Jan 2008, 14:47 | |
| nan nan, c'est juste que t'avais crée un autre sujet pour poser des questions, et t'y avais mis exactement le même code que c'lui-là |
|
granola
élite
Nombre de messages : 277
Age : 33
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 6064
Date d'inscription : 21/12/2007
Profil
TI: V200
TO: 700
Spécialité: aucune
| | Sujet: Re: Programme de récurrence Dim 20 Jan 2008, 15:42 | |
| oups! désolé... je ne m'en suis pas rendu compte. |
|
tama
Admin
Nombre de messages : 12376
Age : 32
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 9427
Date d'inscription : 08/08/2007
Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k
| | Sujet: Re: Programme de récurrence Lun 21 Jan 2008, 21:23 | |
| bah pas grave....au moins on pourra trouver d'autres trucs :p |
|
Contenu sponsorisé
| | Sujet: Re: Programme de récurrence | |
| |
|
