Forum tama's team

cp: ne peut évaluer `brain': Aucun fichier ou dossier de ce type
AccueilPortailGalerieCalendrierFAQRechercherS'enregistrerMembresGroupesConnexion
Connexion
Nom d'utilisateur:
Mot de passe:
Connexion automatique: 
:: Récupérer mon mot de passe
Derniers sujets
» Network, essai 1
par godbod Dim 09 Juil 2017, 02:18

» GODBOD
par godbod Sam 08 Juil 2017, 14:05

» Numbers
par godbod Sam 08 Juil 2017, 13:54

» Mort ?
par godbod Sam 08 Juil 2017, 13:47

» mon humeur
par Ver2guerre Sam 30 Juil 2016, 19:44

» [A voir] Programme de traduction original : WikiTranslate
par AdRiWeB Lun 01 Fév 2016, 04:50

» Reprise ?
par Emyl Jeu 14 Juin 2012, 21:17

» Euh, ah ?
par Ver2guerre Dim 27 Mai 2012, 12:11

» Problème TI 89 Titanium non visible après mise à jour
par abdoukid Mer 23 Mai 2012, 13:37

» Y'a quelqu'un ?
par Ver2guerre Sam 21 Avr 2012, 23:10

Quick message
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 367 le Dim 18 Oct 2009, 00:16

Partagez | 
 

 Programme de récurrence

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
granola
élite
élite
avatar

Nombre de messages : 277
Age : 27
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 3726
Date d'inscription : 21/12/2007

Profil
TI: V200
TO: 700
Spécialité: aucune

MessageSujet: 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, Laughing , 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

_________________
http://tisolutions.unblog.fr
site pour les débutants et confirmés en programmation
Et maintenant un nouveau forum pour TI-Solutions :
http://tisolutions.forum-actif.net
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tisolutions.unblog.fr
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7088
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: 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 ^^

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
granola
élite
élite
avatar

Nombre de messages : 277
Age : 27
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 3726
Date d'inscription : 21/12/2007

Profil
TI: V200
TO: 700
Spécialité: aucune

MessageSujet: 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.

_________________
http://tisolutions.unblog.fr
site pour les débutants et confirmés en programmation
Et maintenant un nouveau forum pour TI-Solutions :
http://tisolutions.forum-actif.net
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tisolutions.unblog.fr
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7088
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: 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à

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
granola
élite
élite
avatar

Nombre de messages : 277
Age : 27
Humeur : dans le pétrin
items : o
Personalized field :
Réputation : 0
Points : 3726
Date d'inscription : 21/12/2007

Profil
TI: V200
TO: 700
Spécialité: aucune

MessageSujet: Re: Programme de récurrence   Dim 20 Jan 2008, 15:42

oups! désolé... je ne m'en suis pas rendu compte.

_________________
http://tisolutions.unblog.fr
site pour les débutants et confirmés en programmation
Et maintenant un nouveau forum pour TI-Solutions :
http://tisolutions.forum-actif.net
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://tisolutions.unblog.fr
tama
Admin
Admin
avatar

Nombre de messages : 12375
Age : 26
Localisation : DTC ? :triso:
Humeur : =)
items : o
Personalized field : huh ? oO
Réputation : 3
Points : 7088
Date d'inscription : 08/08/2007

Profil
TI: 84+, 89 tita, 89 tita
TO: infini :p
Spécialité: C 68k

MessageSujet: Re: Programme de récurrence   Lun 21 Jan 2008, 21:23

bah pas grave....au moins on pourra trouver d'autres trucs :p

_________________


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Programme de récurrence   

Revenir en haut Aller en bas
 

Programme de récurrence

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum tama's team :: Dead corner :: Archives :: Archives 2008 :: Granola :: Projet-
Créer un forum | © phpBB | Forum gratuit d'entraide | Contact | Signaler un abus | Forumactif.com